Импорт изображений в MS Access с использованием VBA

Question

У меня есть каталог с сотнями изображений, которые я хотел бы использовать для создания и заполнения записей в Access. Как мне сделать это с помощью VBA? Я по сути хочу сделать:

choose directory
for each image in the directory:
     create new record
     set "name" field of the record to the file name
     add the image to the "image" attachment field of the record

Answer 1

Выберите каталог:
Поскольку есть много разных способов сделать это, я оставлю эту часть на ваше усмотрение. Вот некоторый код, если вы хотите использовать общее диалоговое окно «Обзор папок».

Чтобы найти каждое изображение в каталоге:

Public Sub LogPictureFilesToDatabase(sFolderPath As String)
    Dim sFileName As String
    sFileName = Dir(sFolderPath)

    Do Until sFileName = ""
        Select Case LCase(Right(sFileName, 4))
            Case ".jpg", ".gif", ".bmp"
                'Put your SQL Insert Statement here
                'Or you can use DAO or ADO to add new records instead, if you prefer
                'You may also want to use a function to insert a blob if you want to save
                'the file inside the database, which I do not recommend
            Case Else
                'Ignore other file extentions
        End Select
        sFileName = Dir 'Get next file
    Loop
End Sub