vb 6.0 插入图像位图到ms access数据库

Question

为什么我的图像没有插入？这是我的代码。

Sub SaveToDBs(strImagePath As String, fname As String)
rs.Close
rs.Open "Sheet1", conn, adOpenDynamic, adLockBatchOptimistic, adCmdTable
Dim bytBLOB() As Byte
MsgBox strImagePath
Dim intNum As Integer
With rs   
    intNum = FreeFile
    Open strImagePath For Binary As #intNum
    ReDim bytBLOB(FileLen(strImagePath))
    'Read data and close file
    Get #intNum, , bytBLOB
    Close #1
    .Fields(fname).AppendChunk bytBLOB
    .Update
End With
    MsgBox "done"
End Sub

我得到了“完成”消息框，但图像未插入！！！！

Answer 1

我通常使用 ADODB.Stream 来做这类事情 - 我发现它比分块方法更容易理解。

Sub SaveToDBs(strImagePath As String, fname As String)
rs.Close
rs.Open "Sheet1", conn, adOpenDynamic, adLockBatchOptimistic, adCmdTable
MsgBox strImagePath
Dim intNum As Integer
Dim myStream as ADODB.Stream
With rs      
    .AddNew
    Set myStream = new ADODB.Stream
    myStream.Type = adTypeBinary
    myStream.LoadFromFile(strImagePath)
    .Fields(fname) = myStream.Read
    .Update
    Set myStream = Nothing
End With
    MsgBox "done"
End Sub

ADODB.Stream 是从 ADO 版本 2.5 添加的：
ADO 版本历史记录
ADO 流文档

Answer 2

您必须将位图保留在结构化存储中，MS Access 绑定才能按预期工作。

看看 Edanmo 的 加载图片并将其保存到字节数组以兼容方式序列化的示例。然后，如果记录集字段是客户端字段，则可以使用简单分配来更新记录集字段。