VB多類圖片數(shù)據(jù)庫(kù)存取技巧

一、實(shí)現(xiàn)思路：
    用戶添加或修改圖片時(shí)控制使用COMMONDIALOG的SHOWOPEN對(duì)話框，然后記錄通用對(duì)話框的FILENAME到變量A，再使用APP.PATH找到到特定目錄下的該圖片文件，改變窗體上放置圖片控件的屬性即可顯示。數(shù)據(jù)庫(kù)中只使用一文本型字段記錄下變量A，圖片文件保存在程序目錄下，此法可同時(shí)使用GIF、JPG和BMP等等圖像文件。
    二、實(shí)現(xiàn)方法：
    1、在窗體上建立IMAGE控件，名為IMAGE1。
    2、用DATA控件得到數(shù)據(jù)源表。
    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 & "\bmp\" & a)
    注釋：\bmp\是我用于存取圖片的本系統(tǒng)文件夾下的一個(gè)子文件夾。
    Data1.Recordset.Edit
    Data1.Recordset.Fields( "tp") = a 注釋：TP是存取圖片名稱的字段。
    Data1.Recordset.Update
    End If
    End Sub