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

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
...全文
135 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxcc 2004-10-25
  • 打赏
  • 举报
回复
Dotnet有FromStream方法!VB好像没有这种直接读流的方法!大部分都是通过临时文件实现的!
  • 打赏
  • 举报
回复
我有個笨方法,先保存為文件顯示出來,然後把文件刪除...
vic123 2004-10-25
  • 打赏
  • 举报
回复
自己顶...
hn123 2004-10-25
  • 打赏
  • 举报
回复
再等等.最好不用临时文件.

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧