大型记录集 (VBA) 的 MS Access 插入慢

Question

我有一段代码创建一个新表，然后尝试将记录集值复制到表中。唯一的问题是它非常慢，并且在执行下面的插入部分时访问会显示加载符号。目前这个问题正在发生插入 500 条记录，但是当我获得最终数据集时，我需要插入大约 10,000 到 20,000 条记录。

I = 1
DoCmd.SetWarnings False
RecordSet1.MoveFirst
Do While Not RecordSet1.EOF = True
    SQL = "INSERT INTO " & FullName & " ("
    For Each field In RecordSet1.fields()
        SQL = SQL & " " & Replace(field.Name, ".", "_") & ","
    Next field
    SQL = SQL & "ValidationCheck)"
    SQL = SQL & " VALUES("
    For Each field2 In RecordSet1.fields()
        SQL = SQL & "'" & field2.Value & "',"
    Next field2
    SQL = SQL & Matches(I) & ")"
    DoCmd.RunSQL (SQL)
    RecordSet1.MoveNext
    I = I + 1
Loop

我想知道的是，有什么办法可以加快速度吗？还是有更好的方法？ （我想要做的是在运行时创建一个表，其中包含来自 RecordSet 的一组唯一字段，并添加一个额外的列，其中包含存储在 Match 数组中的每个 Record 的布尔值）。创建工作正常，但是上面的插入代码很慢。

Answer 1

是的，使用 DAO。这么快。此示例复制到同一个表，但您可以轻松修改它，以便在两个表之间复制：

Public Sub CopyRecords()

  Dim rstSource   As DAO.Recordset
  Dim rstInsert   As DAO.Recordset
  Dim fld         As DAO.Field
  Dim strSQL      As String
  Dim lngLoop     As Long
  Dim lngCount    As Long

  strSQL = "SELECT * FROM tblStatus WHERE Location = '" & _
                "DEFx" & "' Order by Total"

  Set rstInsert = CurrentDb.OpenRecordset(strSQL)
  Set rstSource = rstInsert.Clone
  With rstSource
    lngCount = .RecordCount
    For lngLoop = 1 To lngCount
      With rstInsert
        .AddNew
          For Each fld In rstSource.Fields
            With fld
              If .Attributes And dbAutoIncrField Then
                ' Skip Autonumber or GUID field.
              ElseIf .Name = "Total" Then
                ' Insert default value.
                rstInsert.Fields(.Name).Value = 0
              ElseIf .Name = "PROCESSED_IND" Then
                rstInsert.Fields(.Name).Value = vbNullString
              Else
                ' Copy field content.
                rstInsert.Fields(.Name).Value = .Value
              End If
            End With
          Next
        .Update
      End With
      .MoveNext
    Next
    rstInsert.Close
    .Close
  End With

  Set rstInsert = Nothing
  Set rstSource = Nothing

End Sub

Answer 2

对于循环中的多个插入，不要使用 SQL INSERT 语句。而是使用 DAO.Recordset 和 .AddNew。

看到这个答案：https://stackoverflow.com/a/33025620/3820271

作为积极的副作用，您的代码将变得更易读，并且您不必处理不同数据类型的多种格式。

For Each field In RecordSet1.Fields
     rsTarget(field.Name) = field.Value
Next field