[烛光生存狂]-数据库与图片或者文件的关系如何处理？

问题：

数据库与照片/图片/文件的关系如何处理？

也就是，比如有照片若干，怎样能在数据库中存储并显示？

方法一：

把照片放进数据库，照片的格式最好是bmp，这样就可以在窗体上显示出来，不过这样数据库的体积会暴增。

详细的使用方法请参考Access帮助中的 PictureData 属性（本文末尾有相关帮助）。

而且，你可以直接用 commdlg API 函数来给图像框赋值，然后直接读取某个图像框的 PICTUREDATA 并存储到某个 IMAGE 字段中。这样做的优点是显示、读取方便，缺点是如果图片精度高，占用的硬盘空间会爆大。

详细示例请参考：

http://access911.net/down/eg/OLEfieldAndPictureData.rar(46KB)

方法二：

设一个OLE字段，然后插入对象就行了（对着字段单击右键）。但是要注意的是，用上述方法加入数据库的图片只能以手动方式保存，需要用程序读取的时候会碰到存储在ole字段中二进制数据与源文件不符的情况。主要是因为ole引擎在图片的前面加了一段信息给他自己用。

请参考：

http://access911.net/index.asp?board=4&mode=3&recordid=75FAB21E12DC

方法三：

将图片文件以二进制方式存储在数据库中，使用时调用。详细情况请参考：

使用 ADO 的 STREAM 对象的 LoadFromFile 方法以及 SaveToFile 方法实现：

http://access911.net/index.asp?board=4&mode=3&recordid=74FAB51E13DC

使用 ADO 的 RECORDSET.FIELD 对象的 GetChunk 以及 AppendChunk 方法实现：

http://access911.net/index.asp?board=4&mode=3&recordid=75FAB01E

ASP 中使用的方法：

http://access911.net/index.asp?board=4&mode=3&recordid=79FAB31E

下列例程就是采用这种方法，在显示的时候把长二进制数据保存为临时文件用于显示

http://access911.net/down/photo.rar(size=308K)

方法四：

不把照片放入数据库，只把照片的路径保存到数据库中，动态加载，这样可以支持很多种图片格式。作法是在窗体上放一个图像控件，然后根据员工编号或别的有关联的字段去找出路径，用以下语句来加载图像：

图像1.Picture =路径名

路径名必须包括图象文件名。

详细情况你可以参考 access xp 的示例 northwind.mdb 中的雇员窗体

你也可以参考：http://access911.net/down/eg/LinkPicture.rar(61.1KB)

以下是 PictureData 的参考：：

PictureData 属性

请参阅应用于示例特性

使用 PictureData 属性可以将窗体、报表或控件中的图片复制到另一个支持 Picture 属性的对象中。Variant 型，可读写。

expression.PictureData

expression 必需。返回“Applies To”列表中的一个对象的表达式。

说明

PictureData 属性设置值可以是其他图像控件、命令按钮、切换按钮、窗体或报表的 PictureData 属性。

使用 Visual Basic 可以对该属性进行设置。

使用该属性可以根据用户所执行的操作的不同，在窗体中显示不同的背景图片。例如，可以根据“客户”窗体打开的目的是输入数据还是浏览数据而在打开窗体时使用不同的背景图片。

另外，将 PictureData 属性、Timer 事件和 TimerInterval 属性一起使用，可以在窗体中产生简单的动态背景效果。

示例

下面的示例使用三个图像控件实现一只蝴蝶从窗体中飞过的动态效果。Hidden1 图像控件包含的图片是一只双翅向上的蝴蝶，Hidden2 图像控件包含的图片也是一只蝴蝶，不过这只蝴蝶的双翅是向下的。这两个控件的 Visible 属性都设为 False。TimerInterval 属性设为 200。每次发生 Timer 事件时，就通过使用隐藏图像控件的 PictureData 属性更改 Visible1 图像控件中的图片，并且可见图像控件向右移动 200 缇。当可见图像控件的 Left 属性值大于公用变量 gfrmWidth 中存储的窗体宽度时，可见图像控件即重新移回窗体的左边。gfrmWidth 变量值在窗体的 Open 事件中设为 Me.Width。

Private Sub Form_Timer()

Static intPic As Integer

Select Case intPic

Case Is = 1

Me!Visible1.PictureData = Me!Hidden1.PictureData

Case Is = 2

Me!Visible1.PictureData = Me!Hidden2.PictureData

Case Else

End Select

If intPic = 2 Then intPic = 0

intPic = intPic + 1

If (Me!Visible1.Left > gfrmWidth) Then Me!Visible1.Left = 0

Me!Visible1.Left = Me!Visible1.Left + 200

End Sub

新用户注册返回首页
首页上一页下一页尾页页次1/1 转到第页