Question

我的查询包含两个字段，“发件人”和“收件人”。 from和to保存包含我要重命名的文件的完整文件路径的数据。如何循环查询并实际重命名文件？这是我的代码，但它不起作用：

Dim rs As DAO.Recordset
 Dim db As Database
 Dim strSQL As String

 Set db = CurrentDb

 strSQL = "select * from qryImagesToRename"

 Set rs = db.OpenRecordset(strSQL)

 Do While Not rs.EOF

    Name .Fields("From") as .Fields("To")

    rs.MoveNext
Loop

我哪里错了？ - 我收到一个编译错误“预期的用户定义类型，而不是项目”，它突出显示以下行：

Dim db As Database

Answer 1

你错过了记录集对象：

INSERT INTO table1 (id, fill)
select id, replace(fill, '@@@@', '    ') from table2

MS Access VBA循环查询和重命名文件

1 个答案: