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

VB
串口通讯及其在VB平台下的实现
VB中用API实现文件拖放
VB表格控件总览与例程分析
在VB中用DAO实现数据库编程
VB6将XML数据传入TreeView控件
VB和VB.NET中的XML操作
用VB.NET实现你的游戏梦想
用FileStreams将DTD插入XML中
Visual Basic.NET编程的设计思考
用VB设计控制上网时间程序
VB.NET实现Windows进程管理器
VB.NET启动并监测外部程序
VB6.0数据库访问技术与例程解析
VB.NET开发扫描客户端服务工具
VB制作一个通信卡片ActiveX控件
用VB6.0设计一个打字练习软件
消息队列在VB.NET数据库开发中的应用
用VB6.0快速实现图象加柔效果
VB6.0设计真正实用的TreeView控件
优化之路:精简VB中的分段应用程序(上)

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-29   浏览: 86 ::
收藏到网摘: 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