简谈VB中用数据库存取图片的简便方法

《简谈VB中用数据库存取图片的简便方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第8期计算机教育2010年4月25日ComputerEducationNo.8Apr.25,2010125文章编号：1672-5913(2010)08-0125-04中图分类号：G642文献标识码：B简谈VB中用数据库存取图片的简便方法李利平(太原理工大学阳泉学院管理系，山西阳泉045000)摘要：VB数据库中图像数据的存取对初学者来说是个难点，文章总结了绑定图片控件、存储图片文件路径、利用PropertyBag对象与Byte数组中转三种较为简便的方法以供初学者参考。关键词：VB；Data控件；数据库；图片；存取；路径；Pr

2、opertyBag；Byte数组图像数据的存取对初学者来说是个难点，而当前1.3界面设计的VB教学因课时较短，所选教材或讲授过程对数据库一章要么忽略要么只是简单地介绍，很少涉及到图在窗体上添加2个标签、2个文本框，2个命令像的存取问题，而专业数据库开发书籍中的大量源代按钮，1个Data控件，1个图像框，1个CommonDialog码又让初学者看得头疼，所以本文总结了3种相对简控件；设置图像框的BodyStyle属性为1，Stretch属便的方法以供参考。性设置为True；设置Data控件DataBaseName属性为顺利运行

3、程序，以下每种方法中，图片文件夹为stu.mdb，RecordSource属性为xs，设置Text1、Text2和数据库文件、VB程序文件同时存储在同一目录下。的DataSource属性Data1，Text1的DataField属性为姓名，Text2的DataField属性为学号；标签与命令按1绑定图片控件钮属性设置如图1所示。实现思路：用VB自带VisData建立数据库，把图片存储在数据库表的Binary字段中，通过常用工具箱中Data控件与Image控件绑定，添加CommonDialog部件用以选择图片文件，在Image

4、的DblClick事件中打开通用对话框，用LoadPicture函数把选定的图片载入Image，用Data控件的四个箭头浏览记录。1.1建立图片文件夹图1方法一的设计界面建立图片文件夹bmp，把准备好的图片(本例选用bmp、jpg、gif格式)放入其中，以备程序运行时添1.4代码编写加和修改用。Data控件自动提供了修改现有记录的能力，当1.2建立数据库直接改变和DATA绑定的控件的值后，只需单击Data启动外接程序下的可视化数据管理器VisData，控件上任一箭头，即可保存所做的修改。为防止任意建立stu数据库，新建xs表

5、，包含学号、姓名、照片修改，本例中在窗体的Load事件里使文本框只读(类型Binary)3个字段。因Binary型字段在表中无法(Locked属性为False)和图象框禁用(Enabled属性直接操作，所以生成表后并不需添加记录，等程序运True)，并在调用记录集的AddNew和Update方法中[1]行时添加即可。根据需要进行了改变。完整源码如下。作者简介：李利平(1978-)，女，讲师，硕士，研究方向为电子商务及计算机基础教学。计算机教育126ComputerEducation2010(1)窗体的Load的事件代码。复制

6、图片到指定路径，再用LoadPicture函数把图片PrivateSubForm_Load()载入Image，利用Data控件的四个箭头浏览、保存[2]Text1.Locked=True记录。Text2.Locked=TrueImage1.Enabled=False2.1建立图片文件夹Command1.Enabled=True建立图片文件夹pic，把准备好的缺省图片文件Command2.Enabled=FalseEndSubRose.bmp放入其中，其他图片文件可现在放入也可在运行时选择并复制。(2)添加记录(ADD按钮)代

7、码。2.2建立数据库PrivateSubCommand1_Click()Data1.Recordset.AddNew启动VisData建立数据库fm.mdb，表cy，包含Text1.Locked=False姓名、照片2个Text类型字段，并设置姓名字段的Text2.Locked=FalseImage1.Enabled=True缺省值“Rose”，照片字段的缺省值“picRose.bmp”，Text1.SetFocus以备新增记录时Reposition事件代码的正常运行。Command1.Enabled=FalseComma

8、nd2.Enabled=True2.3设计界面EndSub界面设计同方法二，只是照片字段绑定的是(3)保存记录(SAVE按钮)代码。Text2而非Image1，具体设计如图2所示。PrivateSubCommand2_Click()Data1.Recordset.UpdateText1.L