将VBA转储记录集访问到现有表中

Question

我有一个记录集和一个表，两者格式完全相同。将记录集中的所有内容转储到表中的语法是什么？这似乎是一个非常简单的程序，但不知怎的，我在网上找不到任何有用的信息。

Edit1：澄清一下，记录集是从表A中获得的，现在我想把它转储到表B（它是空的）。表A和B具有完全相同的格式。

Edit2：我在Access中工作。

这是我用来打开记录集的代码：

Set Table_B_rs = CurrentDb.OpenRecordset("Table_B")

我没有对记录集进行任何更改。

感谢您的帮助！

Answer 1

您不能使用记录集执行此操作，而是使用SQL运行INSERT INTO查询。

CurrentDb.Execute "INSERT INTO TableB SELECT * FROM TableA " & _
                  "WHERE <same conditions you used to open the recordset>"

如果没有条件，那就是

CurrentDb.Execute "INSERT INTO Table_B SELECT * FROM Table_A"