姹傚姪VB涓殑鍦栬薄铏曠悊鍟忛

Question

鍦ˋCCESS琛ㄤ腑锛屽瓧娈?鎬?缃?-- OLE ?璞?
濡備綍鎶婂湒鐗囩敤浜岄€插埗淇濆瓨鍒癆CCESS涓拰鍦╲b涓?鐢ㄦ?鐗囷紵鍙﹀锛屽湪SQL Server涓瓧娈?鍨?缃?image锛?
鍦╒B涓篃涓嶇煡濡備綍?鐞嗭紵鏈涢珮鎵嬫寚鏁

Answer 1

使用Stream对象，可以实现对数据库的图像存取。  数据库中存放图像的字段是二进制类型（Access为OLE类型）。  比如，如果用“CommonDialog”控件来选择你硬盘上的图像文件；  用“Picture”控件来显示图像，那么下面的代码供参考：  （已连接数据库，打开了相应的记录集rs）         Dim  StmPic  As  ADODB.Stream         Dim  StrPicTemp  As  String  　　......  　　'保存你所选择的图像  　　Set  StmPic  =  New  ADODB.Stream         StmPic.Type  =  adTypeBinary        '指定流是二进制类型         StmPic.Open　　　　　　　　　　  '将数据获取到Stream对象中         StmPic.LoadFromFile  (CommonDialog1.FileName)  '将选择的图像加载到打开的StmPic中         rs.AddNew         rs.Fields(1).Value  =  StmPic.Read      '从StmPic对象中读取数据         rs.Update         StmPic.Close  　　......  　　'读取显示数据库中的图像  　　Set  StmPic  =  New  ADODB.Stream         StrPicTemp  =  "c:\temp.tmp"        '临时文件,用来保存读出的图片         With  StmPic  　　　　.Type  =  adTypeBinary              　　　　.Open                                            　　　　.Write  rs.Fields(1)              '写入数据库中的数据至Stream中  　　　　.SaveToFile  StrPicTemp,  adSaveCreateOverWrite    '将Stream中数据写入临时文件中  　　　　.Close  　　End  With  　　Picture1.Picture  =  LoadPicture(StrPicTemp)    '用Picture控件显示图像  　　......