从数据库中读图片的问题.
我用以下办法可以把图片直接把数据库中的图片保存在硬盘中.现在我要不保存,怎样直接显示在Picturebox 中,或imagebox 中?
Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
iRe.Open "select * from img_t", iConc, adOpenKeyset, adLockReadOnly
'iRe.Filter = "id=1"
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("img")
'.SaveToFile App.path & "\22.jpg"
'Image1.Picture
End With
'关闭对象
iRe.Close
iStm.Close
End Sub