ms-access - 在 ms 访问中存储大量图像

Question

我有一个库存/联系人数据库，我需要在其中存储大量图像（10k 物品，1k 人）。现在，由于过于臃肿，显然 ole 对象是不可能的。

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

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 对象库才能使 FileDialog 正常工作。大部分 FileDialog 代码取自Microsoft