使用ADODB。流將圖像文件保存/讀取到數據庫。
參考微軟ActiveX DataObjects 2.5庫及以上版本。
將文件保存到數據庫。
子保存文件()
Dim Stm作為新的ADODB。溪流
暗淡Cnn作為新的ADODB。關系
Dim rs作為新ADODB。記錄集
Dim strCnn作為字符串
strCnn = "Provider=Microsoft。Jet . OLEDB.4.0Persist安全信息= False數據源= " & amp_
App。路徑與路徑。" \DB1.mdb "
Cnn。打開strCnn
將文件讀入內存(二進制模式)
使用Stm
。Type = adTypeBinary
。打開
。LoadFromFile應用程序。Path + "\Image1.bmp "
以…結尾
帶rs
。打開“SELECT * FROM TABLE1”，Cnn，1，3
。添加新內容
。Fields("IMAGE") = Stm。閱讀
。更新
以…結尾
rs。關閉
Stm。關閉
設置rs =無
設置Cnn =無
設置Stm =無
末端接頭
從數據庫中讀取圖像文件
子讀取文件()
Dim Stm作為新的ADODB。溪流
暗淡Cnn作為新的ADODB。關系
Dim rs作為新ADODB。記錄集
Dim strCnn作為字符串
strCnn = "Provider=Microsoft。Jet . OLEDB.4.0Persist安全信息= False數據源= " & amp_
App。路徑與路徑。" \DB1.mdb "
Cnn。打開strCnn
rs。打開“從表1中選擇圖像，其中ID = 18”，Cnn，adOpenKeyset，adLockReadOnly
保存到文件
使用Stm
。Mode = adModeReadWrite
。Type = adTypeBinary
。打開
。寫rs(“圖像”)
。SaveToFile應用程序。Path + "\Image2.bmp "
以…結尾
顯示圖片
圖片1。圖片= LoadPicture(App。Path + "\Image2.bmp ")
rs。關閉
Stm。關閉
設置rs =無
設置Cnn =無
設置Stm =無
末端接頭