vb如何读取数据库中的图片然后放到picturebox控件???

goodboyrwy 2003-12-28 12:17:13
vb如何读取数据库中的图片然后放到picturebox控件???
...全文
395 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
busisoft 2004-01-09
  • 打赏
  • 举报
回复
'从数据库中读图片
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

szConString = "Provider=sqloledb.1;Persist Security Info=False;User ID=sa;Initial Catalog=db;Data Source=(local);Password=soft
"
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open szConString

Set rs = New ADODB.Recordset
szSql = "Select * from photo_info " _
& " where photo_id='" & PhotoId & "'"
rs.Open szSql, cn, adOpenKeyset, adLockOptimistic

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("vehicle_photo").Value
szVehiclePhotoName = rs.Fields("vehicle_photo_name").Value
mstream.SaveToFile App.Path & "\"&szVehiclePhotoName,adSaveCreateOverWrite
Picture1.Picture = LoadPicture(App.Path & "\" & szVehiclePhotoName)
TomKen 2004-01-09
  • 打赏
  • 举报
回复
look
michaelowenii 2004-01-09
  • 打赏
  • 举报
回复
Stream : ADODB.Stream
goodboyrwy 2004-01-07
  • 打赏
  • 举报
回复
能不能不把图片先存到文件中再读出来写入数据库?有没有别的办法?
northwolves 2003-12-28
  • 打赏
  • 举报
回复
http://www.freevbcode.com/ShowCode.Asp?ID=485

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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