两个有关OLE操作的难题?

RQF

两个有关OLE操作的难题?

各位大侠,有两个问题,听说用ADO能解决,请指教:

1、如何用程序将表中的ole字段中的某一文件包再原样复制到磁盘的一个目录下（手工：复制/粘帖即可解决）?

2、如何用程序将磁盘目录中的bmp文件自动导入到表中的ole字段中(bmp文件以ID号命名，导入库时到对应ID的各记录中)？

sea.er

参阅：
http://www.accfans.net/bbs/Announce/Announce.asp?BoardID=107&ID=35

tmtony

要注意一点，使用ADO或DAO写入到OLE字段和使用菜单插入的对象是有区别的。
后者需要根据文件结构去掉一些字节，但针对不同文件类型去掉的内容会不一样。

cg1

抄一篇我的文章给你

.  
数据库与图片的关系如何处理？
作者：ec  更新日期：2002-12-21  浏览人次：586



专题地址：http://access911.net/index.asp?board=4&recordid=71FAB51E16DC


问题：


数据库与照片/图片的关系如何处理？
也就是，比如有照片若干，怎样能在数据库中存储并显示？


方法一：


把照片放进数据库，照片的格式最好是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

  


录入：changechange(CSDN) 责任编辑：cg1

tmtony

微软只提供了BMP的方法, 我尝试了很长时间, 可以导出word及EXCEL 甚至其它格式,但条件是要预知OLE本身所存的是什么文件, 读取Class有时可以知道文件的格式,但有时会不太准确

RQF

多谢各位大侠相助,我已经将自己的问题用ADO基本解决了,只是现在还有学习更多的有关ADO的用法.