VBA根据数据库条目中的相应数据将图像添加到MS数据库

Sub AddImageToDatabase()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim strImagePath As String
    Dim strImageName As String
    Dim strImageType As String
    Dim strImageDescription As String
    Dim objStream As Object
    
    ' 设置数据库连接字符串
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 设置图像路径、名称、类型和描述
    strImagePath = "C:\Path\To\Your\Image.jpg"
    strImageName = "Image Name"
    strImageType = "JPEG"
    strImageDescription = "Image Description"
    
    ' 读取图像数据
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 1 ' 二进制数据
    objStream.Open
    objStream.LoadFromFile strImagePath
    
    ' 构建插入图像的SQL语句
    strSQL = "INSERT INTO Images (Name, Type, Description, ImageData) VALUES ('" & strImageName & "', '" & strImageType & "', '" & strImageDescription & "', ?)"
    
    ' 执行SQL语句
    rs.Open strSQL, conn
    rs("ImageData").AppendChunk objStream.Read ' 将图像数据添加到数据库字段
    rs.Update
    
    ' 关闭记录集和数据库连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
    Set objStream = Nothing
    
    MsgBox "图像已成功添加到数据库。"
End Sub