VB多類圖片數據庫存取技巧
眾所周知，MDB數據庫的通用類型和二進制類型字段都可以存取圖片，但這樣做會使數據庫的體積龐大，降低數據庫的存取效率。
筆者思考出數據庫中存取圖片的另一種方法，希望與愛好者們分享。
一、實現思路：
用戶添加或修改圖片時控制使用COMMONDIALOG的SHOWOPEN對話框，然后記錄通用對話框的FILENAME到變量A，再使用APP.PATH找到到特定目錄下的該圖片文件，改變窗體上放置圖片控件的屬性即可顯示。數據庫中只使用一文本型字段記錄下變量A，圖片文件保存在程序目錄下，此法可同時使用GIF、JPG和BMP等等圖像文件。
二、實現方法：
1、在窗體上建立IMAGE控件，名為IMAGE1。
2、用DATA控件得到數據源表。
3、建立“更改圖片”按鈕COMMAND1，其代碼為:
| Private Sub Command1_Click() CommonDialog1.FileName = "" CommonDialog1.Filter = "文件bmp|*.bmp|文件JPG|*.JPG|文件GIF|*.GIF" CommonDialog1.ShowOpen Dim a As String a = CommonDialog1.FileTitle '得到不含路徑文件名 If a <> "" Then Image11.Picture = LoadPicture(App.Path & "mp" & a) 'mp是我用于存取圖片的本系統文件夾下的一個子文件夾。 Data1.Recordset.Edit Data1.Recordset.Fields("tp") = a 'TP是存取圖片名稱的字段。 Data1.Recordset.Update End If End Sub |