access图片管理系统

secowu

能否帮忙做一个access例子,用于批量导入与导出以OLE字段存储在mdb里的二进制图片?
非常感谢:
1.图片保存在当前路径的 photo下面,并以 readerid 作为图片的名称如　4528-6280.jpg
2.mdb里有个表名叫　full ,包含如下字段:
readerid (文本类型)
photo(OLE类型)
3.现在,能否做个程序,将photo目录下的图片全部导入　full 表中,readerid与图片名称对应.
　并支持批量导出图片.
4.程序另外希望能够支持从xls文档中批量导入及批量导出至xls文档,像附件中的格式.

谢谢

[ 本帖最后由 secowu 于 2009-12-9 14:11 编辑 ]

secowu

在线等候答案,.谢谢

secowu

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ |！！！非常感谢您的帮助！！！| ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

secowu

DoCmd.GoToRecord , , acNext

secowu

Private Sub 全部导出_Click()
MsgBox "时间比较长,请耐心等候!", vbInformation, "提醒"
Dim rs As DAO.Recordset
Set rs = Form.Recordset
Do While Not rs.EOF
rs.MoveNext
Loop
MsgBox "导出完成.请查看程序目录下", vbInformation, "提醒"
End Sub

qangsheng

论坛这方面的例子少啊，谢谢，下来研究。