我在两个不同的文件中有两个表具有相同的列。我要从另一个文件“ Sanchez_Mar.mdb”插入所有Recordset的一个文件“ Base PT.accdb”。两个表都有7个名称相同的列。
我在使用“ System.Data.OleDb.OleDbConnection”时遇到很多问题,因此我决定使用RecordSets。目前,我正在使用循环插入所有内容,但是数据很多,因此需要很长时间。是否可以将所有记录集插入另一个数据库?
这是我的代码的一部分,我需要帮助:
Sub Copiar_BasePT2(RutaPT As String)
Dim Cant as Long
Dim db As Database
Dim dbBase_PT As Database
Set dbBase_PT = OpenDatabase(RutaPT & "\Base PT.accdb")
Set db = CurrentDb
Dim rsSYM As Recordset
Set rsSYM = db.OpenRecordset("SELECT * from FINAL_Alarma_SYM")
rsSYM.MoveLast
Cant = rsSYM.RecordCount
rsSYM.MoveFirst
For i = 1 To Cant
dbBase_PT.Execute ("Insert into Tab_PT values('" & rsSYM.Fields(0) & "','" & rsSYM.Fields(1) & "','" & rsSYM.Fields(2) & "','" & rsSYM.Fields(3) & "','" & rsSYM.Fields(4) & "','" & rsSYM.Fields(5) & "','" & rsSYM.Fields(6) & "');")
rsSYM.MoveNext
DoEvents
Next i
End Sub
是否可以插入所有记录集?或者如何将表从“ Sanchez_Mar.mdb”更快地带到“ Base PT.accdb”?
您可以使用其他数据库作为数据源来运行插入查询。
"INSERT INTO Tab_PT (Field1, Field2, Field3, Field4, Field5, Field6, Field7) " & _
" SELECT Field1, Field2, Field3, Field4, Field5, Field6, Field7 " & _
" FROM [MS Access;DATABASE=PathToSanchez_MarDB].FINAL_Alarma_SYM"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句