如何利用VB6_0存取Access中的图像数据

作者简介：符钰（１９８１－），女，江苏泰州人，助教．

第８卷第１期

２００８年２月泰州职业技术学院学报

ＪｏｕｒｎａｌｏｆＴａｉｚｈｏｕＰｏｌｙｔｅｃｈｎｉｃａｌＩｎｓｔｉｔｕｔｅＶｏｌ．８Ｎｏ．１Ｆｅｂ．２００８

摘要：随着社会的不断发展，信息管理也日趋复杂。单纯的文本信息存储已经不能适应时代

的需要，更多的时候，人们需要对大量的图像信息进行存储。因此，图像信息的最佳存

储方式已经成为人们研究的焦点。以ＶｉｓｕａｌＢａｓｉｃ６．０和Ａｃｃｅｓｓ２０００为基础，利用数

据控件和数据绑定控件、Ｃｈｕｎｋ方法和Ｓｔｒｅａｍ对象来实现图像的存取是三种较为实

用的图像存储策略。

关键词：文本信息存储；图像信息存储；一般策略；改进策略

中图分类号：ＴＰ３９１文献标识码：Ａ文章编号：１６７１－０１４２（２００８）０１－００１５－０４

１问题的提出

在传统的管理信息系统中，主要对文本信息进行存储、检索和维护。然而随着社会的不断发展，单纯的文本信息已经不能满足人们的日常需要，多媒体信息（如图像、声音、视频等）已成为一个新的需求。在这些媒体信息中，图像占据着非常重要的地位。图像存取是图像管理中的一个关键技术，是进行图像操作的前提，有着广泛的实际应用背景，如工程图纸的存储，地理信息系统中地图的显示，学生学籍管理中学生相片的管理等。它利用图像采集设备把文档原件的图像信息存储转化成计算机可识别的数字信息，压缩处理后，存储到海量存储设备中，实现海量数据的在线存储。其特点是便于管理、查询，降低了存储成本。并利用计算机网络，通过打印机输出，也可以通过传真或电子邮件发出。因此，图像存储管理系统的应用需求日益迫切。

２图像存储的一般策略

图像存取的一般方法是将图像文件作为一个外部文件处理，在数据库中存放该图像文件的文件名及路径信息。该方法可以节省数据空间，避免了数据库过分膨胀，但同时这种方法过分依赖于路径信息，一旦图像文件的路径发生变化，系统将失去对它的管理。此外，在基于Ｃ／Ｓ结构的应用系统中，为了使得每个客户机都能浏览图像，只能将图像文件拷贝到客户机上，同一份数据在多台机器上存储容易导致数据不一致，影响信息共享。

因此，要真正做到各类数据在数据库中的安全管理，研究和探索直接将图像数据存储在数据库关系表中的方法是非常必要的。本文以ＶｉｓｕａｌＢａｓｉｃ６．０和Ａｃｃｅｓｓ２０００作为开发工具，分别介绍如何从数据库中存取图像数据的三种方法。

３

图像存储的改进策略３．１利用数据控件和数据绑定控件

利用这种方法，不写或写少量代码就可以构造简单的数据库应用程序。下面就是通过ＶＢ６．０来实现对Ａｃｃｅｓｓ中的图像数据进行显示的一个具体实例。

（１）在Ａｃｃｅｓｓ中建立数据库“学生信息管理”，在该数据库中建立“学生通讯录表”（见表１），其中包如何利用ＶＢ６．０存取Ａｃｃｅｓｓ中的图像数据

符钰，刘永胜

（泰州职业技术学院，江苏泰州２２５３００）

括：姓名、住址、电话、相片四项。在该数据表中输入相应的记录，其中，“照片”字段中内容暂不输入。

（２）启动ＶＢ，建立一个标准ＥＸＥ工程，在该工程中添加窗体，如图１所示：其中，将Ａｄｏｄｃ１控件与数据库“学生信息管理”连接，表名选择“学生通讯录”。三个文本框和一个图片框的ＤａｔａＳｏｕｒｃｅ属性设置为Ａｄｏｄｃ１，ＤａｔａＦｉｅｌｄ属性设置为相应的字段。

（３）编写程序代码

“添加”按钮：Ａｄｏｄｃ１．Ｒｅｃｏｒｄｓｅｔ．ＡｄｄＮｅｗ‘向数据库中写入一条新的空白记录。

“添加照片”按钮：

ＷｉｔｈＣｍＤｉａｌｏｇ

．ＤｉａｌｏｇＴｉｔｌｅ＝”

装入图片”．Ｆｉｌｔｅｒ＝”（点阵图）＊．ｂｍｐ｜＊．ｂｍｐ｜（ＪＰＥＧ图）＊．ｊｐｇ｜＊．ｊｐｇ”

．ＤｅｆａｕｌｔＥｘｔ＝”＊．ｂｍｐ”

．ＳｈｏｗＯｐｅｎ

Ｉｆ．ＦｉｌｅＮａｍｅ＜＞”

”ＴｈｅｎＰｉｃｔｕｒｅ１．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（．ＦｉｌｅＮａｍｅ）

ＥｎｄＩｆ

ＥｎｄＷｉｔｈ

为图片框指定相应图片，“保存”按钮：Ａｄｏｄｃ１．Ｒｅｃｏｒｄｓｅｔ．Ｕｐｄａｔｅ‘将缓冲区中的数据（包括图像数据）保存到新添加的记录中。

（４）程序运行时，只需单击Ａｄｏｄｃ１控件的左右箭头即可对数据库中的数据（包括图像数据）进行浏览。这种方法比较简单，是三种方法中代码编写量最少的一种，但它不够灵活，必须使用控件绑定的方法，这样，对于存取数据库中的声音、视频等大字段来说，就无能为力了。

３．２利用Ｃｈｕｎｋ编写代码，实现图像的存取

ＶＢ６．０的ＡＤＯＦｉｅｌｄ对象提供了ＧｅｔＣｈｕｎｋ方法和ＡｐｐｅｎｄＣｈｕｎｋ方法来存取ＢＬＯＢ数据。

（１）ＡｐｐｅｎｄＣｈｕｎｋ方法主要用于将数据追加到大型文本、二进制数据或对象中。在Ｆｉｅｌｄ对象上的第一个ＡｐｐｅｎｄＣｈｕｎｋ调用将数据写入字段，覆盖任何现有的数据，随后的ＡｐｐｅｎｄＣｈｕｎｋ调用则将数据添加到现有数据中［１］。

其语法格式为：Ｏｂｊｅｃｔ．ＡｐｐｅｎｄＣｈｕｎｋＤａｔａ

由于系统资源总是有限的，如果一次存大量数据，可能会引起服务器、客户机死机或是服务器的性能大大下降，因此使用这个函数时，要将图像数据进行分段写。

程序代码为：

ＣｏｎｓｔＢｌｏｃｋＳｉｚｅ＝２０４８‘数据块大小

ＤｉｍＢｌｏｃｋＮｕｍＡｓＬｏｎｇ‘数据块数

ＤｉｍＬｅｆｔＯｖｅｒＡｓＬｏｎｇ‘剩余字节长度

表１

学生通讯录表字段名称

数据类型长度姓名

住址

电话

照片ＴｅｘｔＴｅｘｔＴｅｘｔＢｉｎａｒｙ８２０２０

图１窗体控件的设计图

第１期泰州职业技术学院学报１６

１７第１期符钰，刘永胜：如何利用ＶＢ６．０存取Ａｃｃｅｓｓ中的图像数据

ＤｉｍＢｙｔｅＤａｔａＡｓＢｙｔｅ‘数据块数组，用于保存图像数据

ＤｉｍＰｉｃＡｓＳｔｒｉｎｇ‘图像文件名

ＤｉｍＳｏｕｒｃｅＦｉｌｅＡｓＩｎｔｅｇｅｒ‘文件号

ＤｉｍＦｉｌｅＬｅｎｇｔｈＡｓＬｏｎｇ‘文件长度

ＯｎＥｒｒｏｒＧｏＴｏＥｒｒｏｒＨａｎｄｌｅ

ＣｏｍｍｏｎＤｉａｌｏｇ１．Ｆｉｌｔｅｒ＝”（＊．ｂｍｐ；＊．ｉｃｏ）｜＊．ｂｍｐ；＊．ｉｃｏ”

ＣｏｍｍｏｎＤｉａｌｏｇ１．ＳｈｏｗＯｐｅｎ

Ｐｉｃ＝ＣｏｍｍｏｎＤｉａｌｏｇ１．Ｆｉｌｅｎａｍｅ

ＳｏｕｒｃｅＦｉｌｅ＝ＦｒｅｅＦｉｌｅ‘产生随机的文件号

ＯｐｅｎＰｉｃＦｏｒＢｉｎａｒｙＡｃｃｅｓｓＲｅａｄＡｓＳｏｕｒｃｅＦｉｌｅ‘打开图像文件

ＦｉｌｅＬｅｎｇｔｈ＝Ｌｏｆ（ＳｏｕｒｃｅＦｉｌｅ）‘获取文件长度

ＩｆＦｉｌｅＬｅｎｇｔｈ＝０ｔｈｅｎ‘判断文件是否存在

ＣｌｏｓｅＳｏｕｒｃｅＦｉｌｅ

ＭｓｇＢｏｘＰｉｃ＆“不存在或者无内容”

Ｅｌｓｅ

ＢｌｏｃｋＮｕｍ＝ＦｉｌｅＬｅｎｇｔｈ＼ＢｌｏｃｋＳｉｚｅ‘数据块的个数

ＬｅｆｔＯｖｅｒ＝ＦｉｌｅＬｅｎｇｔｈｍｏｄＢｌｏｃｋＳｉｚｅ

ＩｆＬｅｆｔＯｖｅｒ＞０Ｔｈｅｎ‘先写零碎数据

ＲｅＤｉｍＢｙｔｅＤａｔａ（ＬｅｆｔＯｖｅｒ－１）

ＧｅｔＳｏｕｒｃｅＦｉｌｅ，，ＢｙｔｅＤａｔａ（）‘读出文件

Ｆｌｄ．ＡｐｐｅｎｄＣｈｕｎｋＢｙｔｅＤａｔａ‘调用ＡｐｐｅｎｄＣｈｕｎｋ函数写数据

ＥｎｄＩｆ

ＲｅＤｉｍＢｙｔｅＤａｔａ（ＢｌｏｃｋＳｉｚｅ－１）‘为数据块开辟空间

Ｆｏｒｉ＝１ｔｏＢｌｏｃｋＮｕｍ‘循环读出所有数据块

ＧｅｔＳｏｕｒｃｅＦｉｌｅ，，ＢｙｔｅＤａｔａ（）‘读出一块数据

Ｆｌｄ．ＡｐｐｅｎｄＣｈｕｎｋＢｙｔｅＤａｔａ‘在数据库中增加数据块

Ｎｅｘｔ

ＥｎｄＩｆ

ＣｌｏｓｅＳｏｕｒｃｅＦｉｌｅ‘关闭文件

ＥｒｒｏｒＨａｎｄｌｅ：

ＭｓｇＢｏｘＥｒｒ．Ｄｅｓｃｒｉｐｔｉｏｎ，ｖｂＣｒｉｔｉｃａｌ，＂写图像数据出错！＂

（２）ＧｅｔＣｈｕｎｋ方法主要用于读取ＢＬＯＢ数据。ＧｅｔＣｈｕｎｋ调用返回的数据将赋给“变量”。如果Ｓｉｚｅ大于剩余的数据，则ＧｅｔＣｈｕｎｋ仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则ＧｅｔＣｈｕｎｋ方法返回Ｎｕｌｌ。每个后续的ＧｅｔＣｈｕｎｋ调用将检索从前一次ＧｅｔＣｈｕｎｋ调用停止处开始的数据。由于ＧｅｔＣｈｕｎｋ与ＡｐｐｅｎｄＣｈｕｎｋ的使用方法类似，此处不再复述。

这种方法相对于第一种方法而言，代码量较大，但是它操作灵活，能够满足多种形式下的操作需求，受到大多数编程者的青睐。但是，随着软件的发展，Ｃｈｕｎｋ方法虽然在ＶＢ６．０中能很好的工作，但在最新的．Ｎｅｔ版本中却不能正常工作。所以，从发展的角度看，第三种方法更有前途。

３．３利用Ｓｔｒｅａｍ对象，实现图像的存取

ＡＤＯＬｉｂｒａｒｙ２．５以上的版本为用户提供了一种Ｓｔｒｅａｍ对象，利用该对象的Ｒｅａｄ和Ｗｒｉｔｅ方法可以分别将图像文件存入和读出数据库［２］。

（１）将图像文件存入数据库：

ＤｉｍｇＳｔｒｅａｍＡｓＡＤＯＤＢ．Ｓｔｒｅａｍ

ＩｆＤｉｒ（ＦｉｌｅＮａｍｅ）＜＞”

”Ｔｈｅｎ‘判断文件是否存在ＳｅｔｇＳｔｒｅａｍ＝ＮｅｗＡＤＯＤＢ．Ｓｔｒｅａｍ

‘创建流对象ｇＳｔｒｅａｍ．Ｔｙｐｅ＝ａｄＴｙｐｅＢｉｎａｒｙ

ｇＳｔｒｅａｍ．Ｏｐｅｎ

ｇＳｔｒｅａｍ．ＬｏａｄＦｒｏｍＦｉｌｅ（ＦｉｌｅＮａｍｅ）‘从磁盘中载入图像文件内容

ｒｓ．ＡｄｄＮｅｗ

ｒｓ．Ｆｉｅｌｄｓ（“图像”）．Ｖａｌｕｅ＝ｇＳｔｒｅａｍ．Ｒｅａｄ‘存入数据库

ｒｓ．Ｕｐｄａｔｅ

ｇＳｔｒｅａｍ．Ｃｌｏｓｅ‘关闭流对象

Ｅｌｓｅ

ＭｓｇＢｏｘ“文件不存在，请重新指定文件！”

，ｖｂＥｘｃｌａｍａｔｉｏｎ，”注意”ＥｎｄＩｆ

（２）读取图像文件的过程与存入过程类似，只需将Ｒｅａｄ方法改为Ｗｒｉｔｅ方法即可。

４结语

对于一个数据库管理信息系统，经常会对图像数据进行处理，图像数据的处理和普通数据的处理有所不同。本文主要对数据库图像字段的三种存取方法进行了介绍和比较，这对于数据库管理系统的开发具有一定的参考价值。

参考文献：

［１］ＳｔｅｖｅｎＨｏｌｚｎｅｒ［美］．ＶｉｓｕａｌＢａｓｉｃ６技术内幕［Ｍ］．北京：机械工业出版社，２０００．

［２］ＦｒｏｎｃｋｏｗｉａｋＪＷ，ＨｅｌｄａＪＤ［美］．ＶｉｓｕａｌＢａｓｉｃ６数据库编程大全［Ｍ］．北京：电子工业出版社，１９９９．

ＨｏｗｔｏＵｓｅＶＢ６．０ｔｏＳｔｏｒｅＩｍａｇｅＤａｔａｉｎＡｃｃｅｓｓ

ＦＵＹｕ，ＬＩＵＹｏｎｇ－ｓｈｅｎｇ

（ＴａｉｚｈｏｕＰｏｌｙｔｅｃｈｎｉｃＣｏｌｌｅｇｅ，ＴａｉｚｈｏｕＪｉａｎｇｓｕ２２５３００，Ｃｈｉｎａ）

Ａｂｓｔｒａｃｔ：Ｗｉｔｈｔｈｅｄｅｖｅｌｏｐｍｅｎｔｏｆｏｕｒｓｏｃｉｅｔｙ，ｉｎｆｏｒｍａｔｉｏｎｍａｎａｇｅｍｅｎｔｉｓｂｅｃｏｍｉｎｇｍｏｒｅｃｏｍｐｌｉｃａｔｅｄ．Ｐｕｒｅｓｔｏｒａｇｅｏｆｔｅｘｔｉｎｆｏｒｍａｔｉｏｎｃａｎ’ｔｍｅｅｔｔｈｅｎｅｅｄｏｆｔｈｉｓａｇｅ．Ｏｎｍａｎｙｏｃｃａｓｉｏｎｓ，ｐｅｏｐｌｅｎｅｅｄｔｏｓｔｏｒｅａｇｒｅａｔｄｅａｌｏｆｉｍａｇｅｉｎｆｏｒｍａｔｉｏｎ．Ｓｏｔｈｅｂｅｓｔｍｅｔｈｏｄｔｏｓｔｏｒｅｉｍａｇｅｉｎｆｏｒｍａｔｉｏｎｈａｓｂｅｃｏｍｅｔｈｅｆｏｃｕｓｏｆｏｕｒｒｅｓｅａｒｃｈ．ＢａｓｅｄｏｎＶｉｓｕａｌＢａｓｉｃ６．０ａｎｄＡｃｃｅｓｓ２０００，ＳｔｏｒｉｎｇｉｍａｇｅｉｎｆｏｒｍａｔｉｏｎｂｙｕｓｉｎｇＤａｔａＣｏｎｔｒｏｌ，ＣｈｕｃｋＭｅｔｈｏｄａｎｄＳｔｒｅａｍＯｂｊｅｃｔａｒｅｔｈｒｅｅｐｒａｃｔｉｃａｌｓｔｒａｔｅｇｉｅｓｏｆｉｍａｇｅｓｔｏｒａｇｅ．

Ｋｅｙｗｏｒｄｓ：ｔｅｘｔｉｎｆｏｒｍａｔｉｏｎｓｔｏｒａｇｅ；ｉｍａｇｅｉｎｆｏｒｍａｔｉｏｎｓｔｏｒａｇｅ；ｇｅｎｅｒａｌｓｔｒａｔｅｇｙ；ｉｍｐｒｏｖｅｄｓｔｒａｔｅｇｙ

（责任编辑崔洁）第１期

泰州职业技术学院学报１８