不使用数据控件，OLE控件如何读取数据库中的记录？？

Question

我想问的是OLE1.?=rst.Field(12).getchunk(),用OLE1什么方法可以读取这个字段

Answer 1

先保存到一个二进制数组中，再把数组存成图象文件。
以下为把图象存进数据库的例子，反过来即可：以二进制打开一个文件，把它读到数组里。把这个数组写入数据库。
Dim picarray() As Byte
Dim piclenth As Long
Rs.Open "save", Conn, , , adCmdTable
Rs.AddNew
Rs("title") = Trim(Text3.Text)
Rs("note") = Trim(Text1.Text)
piclenth = FileLen(App.Path & "\pic.jpg")
ReDim picarray(piclenth)
Open App.Path & "\pic.jpg" For Binary Access Read As #1
Get #1, , picarray()
Close #1
Rs("pic").AppendChunk picarray
Rs.Update
Rs.Close

Answer 2

有道理，但OLE中没有appendchunk属性吧，怎么将图片在OLE控件上显示那？我之所以不想用数据控件，是因为不想固定数据库文件的位置，而用App.Path就能找到。没想到OLE挺特别的，我现在还是不清楚。