关于VB 6 怎样读取Access数据库中的图片（ole类型数据）和调用chn帮助文件

关于VB 6 怎样读取Access数据库中的图片（ole类型数据）和调用chn帮助文件

给你个示例,下面是读取数据库中的二进制数据,并存放到指定的地方的,读取图片的,应该差不多
strSQL = "select * From CodeFile where CodeID=" & ID
Rs.Open strSQL, Conn, 1, 3
While Not Rs.EOF
FileName = Rs("FileName").Value
Str = Rs("FileContent").GetChunk(Rs("FileContent").ActualSize)
Call SaveFile(Str, App.Path & "\Tmp\" & FileName)
Rs.MoveNext
Wend

'下面是SaveFile的过程

Public Sub SaveFile(Str, fName)
Dim objstream As New ADODB.Stream
'--------------建立ADODB.Stream对象，必须要ADO 2.5以上版本---------
objstream.Type = 1
'-------------以二进制模式打开-------------------------------------
objstream.Open
'--------------------将字符串内容写入缓冲--------------------------
objstream.Write Str
'--------------------将缓冲的内容写入文件--------------------------
objstream.SaveToFile fName, 1
objstream.Close
Set objstream = Nothing
'-----------------------关闭对象，释放资源-------------------------
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息