如何在ACCESS中引用指定文件夹的照片

whj1000521 · 发表于 2011-7-13 15:17

最近要用ACCESS的大批量处理数据能力，结合拍出来的存放在指定文件夹中的照片，打印出包含照片信息的模板来！！
看有哪位大侠能帮我解决，如何在ACCESS中引用指定文件夹中的照片？！！
在下非常感激！！！

liumongshi · 发表于 2011-7-13 15:41

帮忙顶，我也想知道

zhangjimfu · 发表于 2011-7-14 16:04

用Excel批量导入

Sub SavePic()
Dim BtArr() As Byte
Dim PicPath As String
Dim PicName As String
Dim SQL As String
Dim Fn As Integer
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim myPath As String
Dim myTable As String
Dim PicSum As Long
myPath = ThisWorkbook.Path & "\学校管理.mdb"
myTable = "学生档案"
On Error GoTo ErrMsg
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
SQL = "select 学生编号,相片 from " & myTable & " Where IsNull(相片)= True"
rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
Do Until rst.EOF
PicName = rst(0)
PicPath = Dir(ThisWorkbook.Path & "\pic" & PicName & ".*")
If Len(PicPath) <> 0 Then
PicPath = ThisWorkbook.Path & "\pic" & PicPath
Fn = FreeFile
Open PicPath For Binary As #Fn
ReDim BtArr(LOF(Fn) - 1)
Get #Fn, , BtArr
Close #Fn
rst("相片") = BtArr
PicSum = PicSum + 1
End If
rst.MoveNext
Loop
MsgBox "共有 " & PicSum & " 张相片存入数据库" & vbCr _
& "还有 " & rst.RecordCount - PicSum & " 人未提供相片", , "保存相片"
Exit Sub
ErrMsg:
MsgBox Err.Description, , "错误报告"
End Sub

复制代码

roych · 发表于 2011-7-16 02:01

其实Access也能以长二进制格式存放相片信息的。但个人不建议这么做，因为需要显示的时候还得返回路径，还不如保存路径来得更为直截了当：

用Access的话，建议建立一个字段存放相片路径，然后再在报表中引用过来就可以了。
如果放在固定的位置，可以通过建立更新查询直接用字符串把路径批量写入：
(例如：Update 学生信息表 set 学生信息表.相片="C:\学生信息\"&[学生信息表]![姓名]&".jpg")

不过这里限制了附件的大小，恕我不上传了。详细可以参考以下链接：
http://www.access-cn.com/thread-97193-1-1.html
需要下载的话，可能需要您注册（以下是推广链接）：
http://www.access-cn.com/?fromuid=179386

zhangjimfu · 发表于 2011-7-16 09:32

这个方法真好，谢谢

zhangjimfu · 发表于 2011-7-19 13:23

UploadPicture.rar (1.13 MB, 下载次数: 343)

提供一个操作附件

whj1000521 · 发表于 2011-7-28 20:29

谢谢各位，不过本人还是看不懂。有没有可以设置成自动打印按钮的，我要做个也还是看不懂照片是怎么导入到ACCESS中的。阿发的附件看起来不错呀！
还请多多指点！
实在是觉得ACCESS引入照片的话，怎么那么麻烦呀？！！
是在不行，就做成EXCEL版本的。。。
呜呜。。。。。。

zhangjimfu · 发表于 2011-7-29 08:57

其实用Access操作也很简便的,我做一个演示动画吧

zhangjimfu · 发表于 2011-7-29 09:11

第一步,在ACCESS中建立一张表tblPic,表字段Num为图片名称,表字段Picture存放图片路径(用查询生成).

第二步,建立查询生成图片存放路径.

UPDATE tblPic SET Picture = "C:\Documents and Settings\jfliu\桌面\新建文件夹\pic\" & [tblPic]![Num] & ".gif"

"C:\Documents and Settings\jfliu\桌面\新建文件夹\pic\"表示照片存放路径.(根据存放路径不同更换)
& [tblPic]![Num] & 获取tblPic表中Num字段的图片名称.
".gif" 图片的扩展名.

"C:\Documents and Settings\jfliu\桌面\新建文件夹\pic\" & [tblPic]![Num] & ".gif" 用来获得图片的完整路径

zhangjimfu · 发表于 2011-7-29 09:24

第三步,生成报表

		自动登录	找回密码
密码			免费注册

[求助] 如何在ACCESS中引用指定文件夹的照片

回复 4楼 roych 的帖子

回复 7楼 whj1000521 的帖子