这个问题要这样分析解决:
SQL数据库里存放的是图片文件的路径,如果图片是存放在本地计算机还好处理,而存放在远程计算机里的,就比较麻烦.
vb访问SQL数据库,可以用dao控件或对象,访问到数据表,读取对应图片文件的路径.
利用picturebox的LoadPicture函数,动态加载图片
Dim Pic As New Stream
Pic.Type = adTypeBinary
Pic.Open
Pic.Write (Rs.Fields(6).Value)
Pic.SaveToFile App.PATH & "\Temp\" & List1.Text, adSaveCreateOverWrite
利用stream存取图片,先将图片从数据库取出,保存到指定的文件夹
再从将图片读到到PICTUREBOX
pShow.Picture1.Picture = LoadPicture(App.PATH & "\Temp\" & List1.Text)
数据库中的图片存放字段为IMAGE
图片写入数据库
Pic.Type = adTypeBinary
Pic.Open
Rs.Fields(6) = Pic.Read
DAO