vb 6.0将图像位图插入ms Access数据库

问题描述

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

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

我有“完成”的msgbox，但未插入图片！     

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）