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
Upload Files to Access Database as Attachment