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