sql - 如何仅将某些行从一个 Access 数据库导入到另一个？

Question

我正在尝试将一行数据从一个 Access 数据库导入到另一个数据库。我不想导入整个表，只导入指定的行。我有现在可以工作的代码，但是它相当笨拙，我觉得必须有更好的方法：

Dim strSQL As String
Dim importRs As DAO.Recordset
Dim destRs As DAO.Recordset
Dim importDb As Database
Dim destDb As Database

Set importDb = OpenDatabase(filepath)
Set destDb = CurrentDb

strSQL = "SELECT * FROM tblAO WHERE AOID = " & AOID
Set importRs = importDb.OpenRecordset(strSQL)
strSQL = "INSERT INTO tblAO VALUES(" & importRs.Fields("AOID").Value & ", '" & importRs.Fields("AOName") & "' , '" & importRs.Fields("Description") & "' ," & importRs.Fields("Default") & "," & importRs.Fields("MILCON").Value & "," & importRs.Fields("SUST").Value & ")"
destDb.Execute strSQL

有什么方法可以干净地导入整行数据？或者除了循环每个行之外导入多行的更好方法？我还有其他要导入的数据有很多列和多行，我不希望我的代码变得缓慢或难以阅读。任何帮助是极大的赞赏！

标签： sqlvbams-access