Vba 将表导出到另一个access数据库

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

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

在源数据库中创建指向目标表的链接表。 然后，使用追加查询将查询结果插入到链接表中。 编辑：也可以使用单个SQL语句执行此操作：

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

但是他说：

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

在源数据库中创建指向目标表的链接表。 然后，使用追加查询将查询结果插入到链接表中。 编辑：也可以使用单个SQL语句执行此操作：

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

但是他说：

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

---

对于希望在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

---

对于希望在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