Я пытаюсь импортировать строку данных из одной базы данных 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
Есть ли способ чистого импорта всего ряда данных? Или лучший способ импортировать несколько строк, кроме зацикливания? У меня есть другие данные для импорта, которые содержат много столбцов и несколько строк, и я не хочу, чтобы мой код становился медленным или трудным для чтения. Любая помощь с благодарностью!