§★§★§§在线等待≌≌高手请进：怎样把OLE对象字段中的照片显示在PICTUREBOX控件上

Question

将记录中的照片字段与PictureBox的datafield还是datamember对应就可以啦
你还可以用loadpicture(rs("pic").getchunk)来读取，试试吧

Answer 1

用Adodb.Stream 先读出到一个临时文件中.然后改picturebox的文件.
比如:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=<name of your SQL Server>;
Initial Catalog=pubs;User Id=<Your Userid>;Password=<Your Password>"Set rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimisticSet mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("logo").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWrite
picture1.Image =LoadPicture("c:\publogo.gif") 
rs.Close
cn.Close参考:
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q258038&
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey