Upload Files to Access Database as Attachment

Ví dụ 1: Đính kèm file (Attachment) txt vào file Access

Chuẩn bị:
* Tạo 1 table có tên Table1
Gồm 2 cột
ID: autonumber
DinhKem: kiểu Attachment
*************
* Chuẩn bị 2 file text ở ổ D: test.txt và text2.txt (nội dung bất kỳ)

Private Sub Command2_Click()
' Khai bao bien
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rsFiles As DAO.Recordset ' để quản lý các file Attachment
Dim strSQL As String
' Bay loi
On Error GoTo ErrorHandler

Set dbs = CurrentDb
strSQL = "SELECT * FROM Table1"
Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)

'Them moi
With rst
    .AddNew
    ''Set Col

    'Set Attachment 1
         Set rsFiles = rst.Fields("DinhKem").Value
         -- add file text 1
         rsFiles.AddNew
         rsFiles.Fields("FileData").LoadFromFile "D:\test.txt" 'FileData là tên cột cố định do Access quy định
         rsFiles.Update
         -- add file text 2
         rsFiles.AddNew
         rsFiles.Fields("FileData").LoadFromFile "D:\test2.txt" 'FileData là tên cột cố định do Access quy định
         rsFiles.Update

    ' Nếu có các cọt khác thì set
    '!TenCot="Gia tri"

    '''''''
    .Update
End With

' Clear var
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
Exit Sub
''''''''''''''''''''''''''''''''
ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub

https://www.youtube.com/watch?v=NXttvEe4DSo

Mục liên quan:

0935999617