VBA를 사용하여 MS Access로 이미지 가져 오기

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

디렉토리를 선택 :이 작업을 수행하는 방법에는 여러 가지가
때문에, 나는 당신까지이 부분을 떠날거야. ? Here's some code if you want to use the Common 'Browse for Folder' Dialog window.

디렉토리의 각 이미지 찾으려면 당신이 실제 이미지 파일의 복사본을 저장하는 데 목적 수행

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