在ms访问中存储大量图像 [英] storing large numbers of images in ms access

问题描述

我有一个库存/联系方式数据库，我需要在其中存储很多图像(10000件，1000人).现在，显然由于极度膨胀，所以没有对象.

I have a inventory/Contact database where I need to store a lot of images (10k items, 1k people). Now, obviously ole object is out of the question due to the sheer bloat.

是否有更好的方法来执行此操作，例如存储图像的路径(将存储在数据库的文件夹中)并在需要的位置显示该图像(这很好，因为重复了某些项目)?反正有这样做吗? (同样，我真的需要在实际图像上使用文件浏览器，而不是手动输入路径(那将是地狱))

Is there a better way to do this, such as storing the pathway to the image ( would be stored in a folder with the database) and having that image displayed where I need it(this would be great because some items are repeated)? Is there anyway to do this? (also, i really need to have a filebrowser to the actual image instead of typing the path manually (that would be hell))

推荐答案

这是一个概念

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

You may need to make changes and you must require the Microsoft Office 12.0 Object Library for FileDialog to work. Much of the FileDialog code was taken from Microsoft

这篇关于在ms访问中存储大量图像的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！