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

whj1000521

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

liumongshi

帮忙顶，我也想知道

zhangjimfu

用Excel批量导入

1. Sub SavePic()
   
2.     Dim BtArr() As Byte
   
3.     Dim PicPath As String
   
4.     Dim PicName As String
   
5.     Dim SQL As String
   
6.     Dim Fn As Integer
   
7.     Dim cnn As New ADODB.Connection
   
8.     Dim rst As New ADODB.Recordset
   
9.     Dim myPath As String
   
10.     Dim myTable As String
    
11.     Dim PicSum As Long
    
12.     myPath = ThisWorkbook.Path & "\学校管理.mdb"
    
13.     myTable = "学生档案"
    
14.     On Error GoTo ErrMsg
    
15.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
    
16.     SQL = "select 学生编号,相片 from " & myTable & " Where IsNull(相片)= True"
    
17.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
18.     Do Until rst.EOF
    
19.         PicName = rst(0)
    
20.         PicPath = Dir(ThisWorkbook.Path & "\pic" & PicName & ".*")
    
21.         If Len(PicPath) <> 0 Then
    
22.             PicPath = ThisWorkbook.Path & "\pic" & PicPath
    
23.             Fn = FreeFile
    
24.             Open PicPath For Binary As #Fn
    
25.             ReDim BtArr(LOF(Fn) - 1)
    
26.             Get #Fn, , BtArr
    
27.             Close #Fn
    
28.             rst("相片") = BtArr
    
29.             PicSum = PicSum + 1
    
30.         End If
    
31.         rst.MoveNext
    
32.     Loop
    
33.     MsgBox "共有 " & PicSum & " 张相片存入数据库" & vbCr _
    
34.     & "还有 " & rst.RecordCount - PicSum & " 人未提供相片", , "保存相片"
    
35.     Exit Sub
    
36. ErrMsg:
    
37.     MsgBox Err.Description, , "错误报告"
    
38. End Sub
    
39. 
    

复制代码

roych

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

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

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

zhangjimfu

这个方法真好，谢谢

zhangjimfu

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

2011-7-19 13:23 上传

点击文件名下载附件

提供一个操作附件

whj1000521

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

zhangjimfu

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

zhangjimfu

第一步,在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

第三步,生成报表