当前位置: 首页 > 图文教程 > 开发语言 > VB > VB多类图片数据库存取技巧

VB
Visual Basic.NET中访问数据的方法
巧解VB安装程序制作
优化之路：精简VB程序的代码
VB.NET窗体操作技巧两则
Visual Basic数据库开发疑难问题解
利用VB驱动pcAnyWhere进行自动文件传输
用VB实现窗口图标最小化到通知栏
VB6实现局域网多站点互连完全手册

No. « 1 2 3 4 »

技术文章搜索

关键字

VB多类图片数据库存取技巧

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-29   浏览: 85 ::
收藏到网摘: n/a

　　笔者思考出数据库中存取图片的另一种方法，希望与爱好者们分享。

　　一、实现思路：

　　用户添加或修改图片时控制使用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