Question

VB中显示数据库的OLE 对象（图片）

有点复杂，其实我只是想让数据库的已存图片在VB中显示出来
哪个高手懂得请赐教，还有，写的简单点啊·我是新手·

Answer 1

先读出来(用ado的stream对象或者用比较古老的旦悄getchunk方法),对于图片文件历枯一般先保存为临时文模烂渣件(对于文本则不用,不过可能需要转换为unicode字串),然后在控件上显示即可

Answer 2

Dim sz() As Byte
Dim fl As Single

fl = adors("Photo").ActualSize
ReDim sz(fl - 1) As Byte
sz() = adors("Photo").GetChunk(fl)

Open "如银棚C:\tmp.jpg"渣则搏塌 For Binary As 128
Put 128, , sz()
Close 128

Answer 3

private sub GetPic()
dim pic as string
pic=ado.fields("photo_path")
Set Picture1.Picture = LoadPicture(pic)
end sub

Answer 4

这个你从书里找就可以了,想学就自己学

Answer 5

代码我就不想写啦 一般纳掘慧我以前的做法是 把图片读到内存 转换成 数据流 存到数据库 用的时候就是把数据库中洞答的比特流读散含出来 再转换成图片