vba - 将表导出到另一个访问数据库

Question

我的 Access 数据库中有一个查询，另一个 Access 数据库中有一个结构完全相同的表。我需要编写一个脚本，将查询中的所有条目添加到表中。我怎样才能做到这一点？

我的任务和功能之间的区别在于Extarnal Data -> Export -> Access Database我需要添加新条目并保存旧条目，但此工具只能将 旧条目替换为新条目。

Answer 1

1. 在源数据库中创建到目标表的链接表。
2. 然后，使用附加查询将查询结果插入到链接表中。

编辑：您也可以使用单个 SQL 语句执行此操作：

INSERT INTO DestinationTable (Field1, Field2)
IN "C:\path\to\file.accdb"
SELECT Field1,Field2
FROM SourceTable

但是参考资料说：

为了提高性能和易用性，请使用链接表而不是 IN。

Answer 2

对于任何希望在 VBA 中链接表格的人......

strDbName = "C:\FolderPath\DatabaseName.mdb"
strLinkTbl = "tblNameOfTableYouWantToLink"
strNameTbl = "tblWhatYouWantToNameIt" ' This can be the actual 
                                      ' table name or something different

DoCmd.TransferDatabase acLink, "Microsoft Access", strDbName, _
    acTable, strLinkTbl, strNameTbl

然后你的 SQL 看起来像：

CurrentDb.Execute "INSERT INTO " & strNameTbl _
   & " (Field1, Field) SELECT Field1, Field2 FROM SourceTable