Question

现在我循环遍历Excel spreadhseet中的每一行，并使用插入查询将每行插入到Access表中。它有效，但速度很慢。如何让一个查询一次添加所有记录？

这是我目前的代码

Sub Insert()

Dim rs As ADODB.Recordset, strSQL As String, minPrem As Double, i As Long, datetime As Date

datetime = Now()

Call DB.ConnectToDB 'Connect to the database
Set rs = New ADODB.Recordset

i = 7 'first row of data

Do While (Cells(i, 1) <> "")

    If (IsNumeric(Cells(i, 6))) Then
        minPrem = Cells(i, 6)
    Else
        minPrem = 0
    End If

    strSQL = "INSERT INTO Rates (EffectiveDate, State, Company, ClassCode, Rate, MinPremium, TimeOfEntry) VALUES " _
    & "(#" & Cells(i, 1) & "#,'" & Cells(i, 2) & "','" & Cells(i, 3) & "','" & Cells(i, 4).Text & "'," & Cells(i, 5) & "," & minPrem & ", #" & datetime & "#)"
    rs.Open strSQL, Cn

    i = i + 1
Loop

End Sub

Answer 1

在事务中包装多个INSERT操作通常可以加快速度，因为各个INSERT被缓存，然后一次性写入（提交）到数据库。尝试在进入循环之前添加cn.BeginTrans语句，然后在退出循环后执行cn.CommitTrans，看看是否有帮助。

此外，如果您只是在进行INSERT操作，那么您不需要混淆单独的Recordset对象;你可以做cn.Execute strSQL。

如何将多行Excel数据传输到访问表中

1 个答案: