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

答案:5 悬赏:10 手机版

解决时间 2021-04-03 07:03

提问者网友：锁深秋
2021-04-02 16:20

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

最佳答案

五星知识达人网友：酒安江南
2021-04-02 17:27

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

全部回答

1楼网友：拾荒鲤
2021-04-02 21:49

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

2楼网友：有你哪都是故乡
2021-04-02 20:41

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

3楼网友：蓝房子
2021-04-02 20:06

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

4楼网友：鸽屿
2021-04-02 19:05

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

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！