还是image控件的问题!!

sksk 2003-10-16 01:49:11
我现在在表里加了一个字段,类型为image,
现在我要读取一个image记录
我应该怎么写
就是imgpicture.picture=loadpicture(_______)
里面的这个路径怎么写
...全文
40 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
sksk 2003-10-16
  • 打赏
  • 举报
回复
我是这样写的,
sql = " select picture from employee where employeeid='" & Trim(fg.TextMatrix(fg.Row, fg.ColIndex("employeeid"))) & "'"
rs.Open sql, conn, adOpenKeyset
imgpicture.Picture = LoadPicture(rs("picture"))
我的意思是照片是存在数据库里的。
golden24kcn 2003-10-16
  • 打赏
  • 举报
回复
Dim Rst As New ADODB.Recordset
Dim Mstream As ADODB.Stream


Set Mstream = New ADODB.Stream
Mstream.Type = adTypeBinary
Mstream.Open
Mstream.Write Rst.Fields("pic").Value
Mstream.SaveToFile App.Path & "\tmpImage.gif", adSaveCreateOverWrite
Mstream.Close
Set Mstream = Nothing
img.Picture = LoadPicture(App.Path & "\tmpImage.gif")

扩展名虽然是gif,可是什么格式的都行.

1,216

社区成员

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

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