在vb中怎么显示access数据库的照片字段

发布网友发布时间：2022-06-13 11:22

共2个回答

热心网友时间：2023-10-13 05:22

给你个示例,下面是读取数据库中的二进制数据,并存放到指定的地方的,读取图片的,应该差不多
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

热心网友时间：2023-10-13 05:22

VB6 支持 ADODB.Stream .
工程-引用-
microsoft activex data objects 2.6 选中
确定。
OK!