access数据库存储图片

CREATE TABLE Images (
    ID INT PRIMARY KEY AUTOINCREMENT,
    ImageName TEXT(50),
    ImageData OLEOBJECT
);

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim fs As FileSystemObject
Dim ts As TextStream

Set db = CurrentDb
Set rs = db.OpenRecordset("Images")

' 打开文件
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("C:\path\to\image.jpg", 1, False)

' 读取文件内容
Dim imageData As String
imageData = ts.ReadAll

' 关闭文件
ts.Close

' 插入数据
rs.AddNew
rs!ImageName = "image.jpg"
rs!ImageData = imageData
rs.Update

rs.Close
db.Close

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim fs As FileSystemObject
Dim ts As TextStream

Set db = CurrentDb
Set rs = db.OpenRecordset("Images")

' 查找图片
rs.FindFirst "ImageName = 'image.jpg'"

If Not rs.NoMatch Then
    ' 创建文件
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ts = fs.CreateTextFile("C:\path\to\retrieve_image.jpg", True)

    ' 写入文件内容
    ts.Write rs!ImageData

    ' 关闭文件
    ts.Close
End If

rs.Close
db.Close