Office中国论坛/Access中国论坛

标题: 将所选择文件夹中的文件（包括子文件夹中）添加到表中 [打印本页]

作者: yanwei82123300 时间: 2018-10-16 20:41
标题: 将所选择文件夹中的文件（包括子文件夹中）添加到表中
请老师看看附件：将所选择文件夹中的文件（包括子文件夹中）添加到表中，谢谢
下面的代码是Henry D. Sy 老师给的，但是我不会添加，请看看，谢谢

Dim sfd As Folder
   Dim f As File
   Dim r As DAO.Recordset
   dim i as long
   For Each f In fd.Files
Set r = CurrentDb.OpenRecordset("select a from 表;")
r.AddNew
r.Fields!a = f.Path
i=i+1
r.Update
Me.Repaint
   Next

   For Each sfd In fd.SubFolders

      ListFolder sfd

   Next
msgbox i

作者: yanwei82123300 时间: 2018-10-18 07:35
请老师们帮助一下!!谢谢

作者: roych 时间: 2018-10-19 15:05
是添加文件还是添加文件路径？添加路径可以直接将sfd用ADO的AddNew或者insert values的方式，把Name或者Path属性添加进去就好了。
如果是添加文件的话，则需要使用附件字段进行一个添加（2007版本或以上）或者转为长二进制进行处理（2003版本或以下）
http://www.office-cn.net/thread-120888-1-1.html【2007版本】http://www.office-cn.net/thread-83567-1-1.html【2003版本】
[attach]62849[/attach]
这里明明就有啊

简直了。docmd.runsql "insert 表(文件名) values('"&sfd.Path&"')"

作者: yanwei82123300 时间: 2018-10-19 20:08
谢谢老师帮助

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