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

感谢王版来帮忙

Grant

fans做过,你可以参考一下他的例子

todaynew

不必将图片地址放到表中管理，可用一组合框或列表框列出图片文件夹中的地址列表即可。具体方法可参见《图片调整》一文。

Private Sub Form_Load()
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
Dim myfile As File
Dim str As String
If myFSO.FolderExists(CurrentProject.Path & "\相片") = True Then
    Set myFolder = myFSO.GetFolder(CurrentProject.Path & "\相片")
    For Each myfile In myFolder.Files
        str = str & myfile.Name & ";"
    Next myfile
Else
    MsgBox "文件夹不存在！"
End If
Me.相片名称.RowSource = str
Me.图片.Picture = ""
Me.图片.SizeMode = acOLESizeZoom
End Sub

secowu

不必将图片地址放到表中管理，可用一组合框或列表框列出图片文件夹中的地址列表即可。具体方法可参见《图片调整》一文。

Private Sub Form_Load()
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
...
todaynew 发表于 2009-12-9 18:21

感谢回复,主要是要解决将图片放入表中管理的这种情况.
因为,这个表,实际上是从sql里导出来的

secowu

继续回来顶一下...........

secowu

最好是可以直接连接某个SQL库.......
这样就方便多了,通用的.
就像李寻欢的通用查询那样,

cjf78

一定很有意思

cjf78

一定很有意思

BILLFEI

有缩略图的才好