Office中国论坛/Access中国论坛

标题: Access图片管理系统 [打印本页]

作者: secowu 时间: 2009-12-9 14:12
标题: Access图片管理系统
能否帮忙做一个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:24
感谢王版来帮忙

作者: Grant 时间: 2009-12-9 16:29
fans做过,你可以参考一下他的例子

作者: todaynew 时间: 2009-12-9 18:21
本帖最后由 todaynew 于 2009-12-9 18:24 编辑

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

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 时间: 2009-12-10 08:56

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

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

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

作者: secowu 时间: 2009-12-11 08:52
继续回来顶一下...........

作者: secowu 时间: 2009-12-11 11:44
最好是可以直接连接某个SQL库.......
这样就方便多了,通用的.
就像李寻欢的通用查询那样,

作者: cjf78 时间: 2009-12-14 10:13
一定很有意思

作者: cjf78 时间: 2009-12-14 10:45
一定很有意思

作者: BILLFEI 时间: 2010-3-22 17:34
有缩略图的才好

作者: wangru 时间: 2011-3-8 22:46
图片咋不显示呢？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)