Question

VB+Access 的OLE对象查询读取！

我用Access做了一个信息表，我将员工的照片以二进制数据存在了Access的OLE对象中！我想知道，当我用MoveNext的方法时，如何将数据对准，将员工资料，显示在各个TextBox中！将照片显示在PicBox中，或者Image中。而且相片跟资料要准确，应该怎么做？
如果对我的疑问有什么问题的，请说明！能实现者，必加分！或者你有更好的方法可以提出来，先上50分！
记得是VB+Access，C++也可以说说看！

Answer 1

我的是VB+ACCESS,OLE对象处理代码
1，首先要建立一个二进制的文件，命名为"pictemp",没有后缀名
2，代码：Rs4!Photo 字段为OLE
Dim Chunk() As Byte
On Error Resume Next '错误处理语句 发现错误跳到语句的下一行执行代码
Open "pictemp" For Binary Access Write As lngDataFile ' Binary 的意思是二进制数 Access 取出的数据库类别 Write 写操作 As lngDataFile 它是一个句丙
lngLengh = Rs4!Photo.ActualSize
intChunks = lngLengh \ ChunkSize '对图片大小进行处理
intFragment = lngLengh Mod ChunkSize

ReDim Chunk(intFragment) '动态数组定义
Chunk() = Rs4!Photo.GetChunk(intFragment)
Put lngDataFile, , Chunk()
For i = 1 To intChunks
ReDim Buffer(ChunkSize)
Chunk() = Rs4!Photo.GetChunk(ChunkSize)
Put lngDataFile, , Chunk() '建立图片临时文件
Next i
Close lngDataFile '关闭一个句丙 要不关闭在下次 运行 Open "pictemp" For Binary Access Write As lngDataFile 会出错误

If Rs4!Photo <> Null Then ' 判断 图片字段里是否为空 要不是空显示图片 要是为空 那么把
Image1.Picture = LoadPicture("pictemp")
Else
Image1.Picture = Nothing '把 Image1.Picture 设置为无图片
End If