减小字体
增大字体- ·上一篇文章：VB中远程数据库的访问
- ·下一篇文章：VB6.0数据库访问技术与例程解析
VB多类图片数据库存取技巧
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
喜欢这些内容嘛，请告诉你身边的朋友，易下载中心－QQ资源－itnetcn.com一起享受这份乐趣，本站内容来源互联网
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
喜欢这些内容嘛，请告诉你身边的朋友，易下载中心－QQ资源－itnetcn.com一起享受这份乐趣，本站内容来源互联网
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
众所周知，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 & "bmp" & a)
注释：bmp是我用于存取图片的本系统文件夹下的一个子文件夹。
Data1.Recordset.Edit
Data1.Recordset.Fields("tp") = a 注释：TP是存取图片名称的字段。
Data1.Recordset.Update
End If
End Sub
-
