用CELL组件显示Access数据库的图片对象

Access数据库支持OLE对象字段，其中最常用的是BMP对象，即图片对象。图片对象的加入使Access数据库的可用性得到大大提高，它使数据库不仅仅局限于传统意义上的数据(即数值与字符)，提高了信息的质量，并更接近于人们日常生活中的媒体。例如，要作产品介绍，需要保存该产品的图片。图片往往具有比文字更大的说服力。

然而，直接采用VB等开发工具将Access数据库中的图片对象取出来显示到屏幕上并实现打印输出并不容易。这儿介绍一个简单方法，只用几行代码即可将图片对象显示到屏幕上，并支持图片的缩放，高质量的打印输出。这需要借助CELL组件。

下面举一个在VB中使用CELL组件显示Access数据库中的图片对象的例子。创建一个Form之后，将CELLActiveXControlmodule选中，就把CELL组件添加入控件栏中了，将CELL组件加入Form，在Form的Load过程中加入以下代码

PrivateSubForm_Load()

Cell1DoOpenFileDbase0,″e:\tmp\samplemdb″，tables

Cell.1DoDumpDbaseData″Select＊fromemployees″，0,0,0,1,cols,rows

EndSub

e:\tmp\samplemdb是一个含有图片的Access数据库，运行程序就可将其中的图片显示到表格中并打印出来(如下图)。根据SELECT语句的灵活性，你可以将指定的图片显示到表格的任意位置之上。采用CELL组件还有一个好处就是CELL组件强大的打印功能，CELL组件对图片进行无级缩放，使打印出来的图片不失真。

回复Comments()点击Count()

回复Comments

{commenttime}{commentauthor}

{CommentUrl}