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