VB多類圖片資料庫存取技巧

VB多類圖片資料庫存取技巧

 　　一、實現思路：

　　使用者添加或修改圖片時控制使用COMMONDIALOG的SHOWOPEN對話方塊，然後記錄通用對話方塊的FILENAME到變數A，再使用APP.PATH找到到特定目錄下的該圖片檔案，改變表單上放置圖片控制項的屬性即可顯示。資料庫中只使用一文本型欄位記錄下變數A，圖片檔案儲存在程式目錄下，此法可同時使用GIF、JPG和BMP等等影像檔。

　　二、實現方法：

　　1、在表單上建立IMAGE控制項，名為IMAGE1。

　　2、用DATA控制項得到資料來源表。

　　3、建立“更改圖片”按鈕COMMAND1，其代碼為:

　　PrivateSubCommand1_Click()

　　CommonDialog1.FileName=""

　　CommonDialog1.Filter="檔案bmp　*.bmp　檔案JPG　*.JPG　檔案GIF　*.GIF"

　　CommonDialog1.ShowOpen

　　DimaAsString

　　a=CommonDialog1.FileTitle注釋：得到不含路徑檔案名稱

　　Ifa<>""Then

　　Image11.Picture=LoadPicture(App.Path&"mp"&a)

　　注釋：mp是我用於存取圖片的本系統檔案夾下的一個子檔案夾。

　　Data1.Recordset.Edit

　　Data1.Recordset.Fields("tp")=a注釋：TP是存取圖片名稱的欄位。

　　Data1.Recordset.Update

　　EndIf

　　EndSub