Question

我有一个库存/联系人数据库，我需要存储大量图像（10k项目，1k人）。现在，由于纯粹的臃肿，显然毫无疑问，对象是不可能的。

有没有更好的方法来做到这一点，例如将路径存储到图像（将存储在数据库的文件夹中）并将图像显示在我需要的地方（这会很好，因为有些项目会重复）？反正有没有这样做？（另外，我真的需要一个文件浏览器到实际图像而不是手动输入路径（这将是地狱））

Answer 1

这是一个概念

Sub Locate_File()
   Dim fDialog As Office.FileDialog
   Dim file_path As String
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

   With fDialog  
    'Set the title of the dialog box.
    .Title = "Please select one or more files"

    'Clear out the current filters, and add our own.
    .Filters.Clear
    .Filters.Add "All Files", "*.*"

    'Show the dialog box. If the .Show method returns True, the
    'user picked at least one file. If the .Show method returns
    'False, the user clicked Cancel.
    If .Show = True Then
       file_path = .SelectedItems(1)
       Copy_file(file_path,Right(file_path, Len(file_path) - InStrRev(file_path, "\")))
    Else
       MsgBox "You clicked Cancel in the file dialog box."
    End If
  End With
End

Sub Copy_file(old_path As String, file_name As String)
  Dim fs As Object
  Dim images_path As String
  images_path = CurrentProject.Path & "\images\"
  Set fs = CreateObject("Scripting.FileSystemObject")
  fs.CopyFile old_path, images_path  & file_name
  Set fs = Nothing
  'Update your database with the file location of images_path & file_name
End

您可能需要进行更改，并且必须要求Microsoft Office 12.0 Object Library for FileDialog才能运行。大多数FileDialog代码都来自Microsoft

以ms访问存储大量图像

1 个答案: