DAO记录集的MS Access错误

Question

尝试创建一个空DAO记录集rs2，其结构类似于现有记录集rs1（具有超过200个字段）。但是我遇到了一个错误，当我使用ADO记录集时不会发生错误：

dim rs2 as recordset

With rs2.Fields
    For Each fld In rs.Fields
        .Append fld, adVariant
    Next
End With

错误是错误的参数数量。

Answer 1

ADO允许您在某些情况下向Recordset.Fields集合添加字段。这就是为什么你的代码的ADO版本运行没有错误。

但是，DAO Fields.Append方法不能与Recordset一起使用。相反，您必须向表中添加一个字段，或者将字段表达式添加到查询中，该查询用作记录集的数据源。

Answer 2

我知道这个解决方案对性能不利，但无论如何你都可以尝试一下。 首先，克隆记录集：

Set rs2 = rs.clone

然后，如果您只需要结构，请将其清空：

Do until rs2.EOF
    rs2.Delete
Loop