怎样用vb 的image控件读取ACCESS中以二进制保存的图片

来源：百度知道 编辑：UC知道 时间：2024/05/25 10:38:35
我想做个在线测试系统,里面有题目需要插入图片,在ACCESS数据库中的图片是以二进制保存的,怎么读取到VB的控件中去?
如果可以,帮我做全套也没事,我可以把分数全部给予!
Cesing@126.com

哥们 把邮箱发我 我发给你最强大的回答，记得多给分哦

Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.jpg"
End With

Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
'关闭对象
iRe.Close
iStm.Close
End Sub