从数据库中读图片的问题.

vic123 2004-10-25 10:05:58
我用以下办法可以把图片直接把数据库中的图片保存在硬盘中.现在我要不保存,怎样直接显示在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
...全文
86 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lxcc 2004-10-25
Dotnet有FromStream方法!VB好像没有这种直接读流的方法!大部分都是通过临时文件实现的!
回复
我有個笨方法,先保存為文件顯示出來,然後把文件刪除...
回复
vic123 2004-10-25
自己顶...
回复
hn123 2004-10-25
再等等.最好不用临时文件.
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告