Question

VB用什么代码显示access数据库的ole数据类型里的二进制图片在picturebox里

Answer 1

病情分析：
吃得很撑，然后打嗝，,指气从胃中上逆，喉间频频作声，声音急而短促。是一个生理上常见的现象，由横膈膜痉挛收缩引起的。
指导意见：
肯定会不好。会一天比一天胖，一定要控制食欲，防止肥胖。最好的办法多吃菜，少吃主食，在吃饭前喝水，或者喝汤，使胃口有饱的感觉，这样就可以少吃点主食了。

病情分析：
你好，偶然几次吃的很饱是正常的！因为大家都很喜欢吃的很饱的那种满足感！但是如果每次都这样的话就不好了！你想想啊胃部也象个机器一样，每天都加班工作来消化食物，却每次都累的够呛！时间一长肯定要病倒的啊！
指导意见：
所以大多时候吃饭吃到七成饱就好了！就是你感觉好像还想吃，但是不吃也可以的程度最好！只要不是这样总是撑着的话，应该可以避免肥胖加重的！当然如果还能经常锻炼的话就更好了！

每次吃东西吃撑了，那对你的胃有多大的过量负荷？你这样下去不仅要长胖，而且慢慢的你还会得胃病。，吃饭每次只吃到7分饱，觉得不饿了就行了。什么东西吃多了都是有害无益的。物极必反嘛！你现在已经开始打嗝了那就是说明你有轻微的慢性胃炎。所以以后你要注意吃饭的时间和量，要按时吃饭，按量吃饭。

Answer 2

注意：下列代码必须在引用VB6的ADO对象模型的前提下运行：
并且：将 数据库名、数据表名、照片字段名，修改成与你实际情况一致。
Dim MyStm As New ADODB.Stream

Dim MyConn As New ADODB.Connection

Dim MyRet As New ADODB.Recordset

MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False"
MyRet.Open "Select * From 数据表名", MyConn, adOpenKeyset, adLockOptimistic

MyRet.MoveFirst

MyStm.Mode = adModeReadWrite
MyStm.Type = adTypeBinary
MyStm.Open
MyStm.Write MyRet("照片字段名")

If Dir(App.Path & "\Exampl.jpg", vbNormal) <> "" Then
Kill App.Path & "\Exampl.jpg"
MyStm.SaveToFile App.Path & "\Exampl.jpg"
Else
MyStm.SaveToFile App.Path & "\Exampl.jpg"
End If

Picture1.Picture = LoadPicture(App.Path & "\Exampl.jpg ")

追问

运行后就这样了啊，怎么回事啊

追答

以上代码，已经在本人计算机VB6环境运行通过！

本人环境：windows xp vb6 + sp6