Question

我正在使用MS ACCESS VBA导入具有一百万条记录的CSV文件。我将所有记录插入一个ODBC链接表，它需要超过90分钟。我想要好的和有效的解决方案，这样就不会花费那么多时间。这是我的代码，帮助我在哪里做错了。

Private Sub Command2_Click()
Dim db As Database
Set db = CurrentDb()

strFName = GetFileNames(conImportPath, "Please Select File", "csv")
 If strFName = "" Then    ' Make sure a file has been selected.
       MsgBox "Please select a file to Import!", vbCritical

 Exit Sub
 End If

 If strFName <> "" Then
 File = Right(strFName, Len(strFName) - InStrRev(strFName, "\"))

  DoCmd.TransferText acImportDelim, "", "dri_wrk", strFName, False, ""

db.Execute "Insert into DRI_TEST_IMPORT ( field1, filed2, filed3, field4, filed5) Select f1, f2, f3, f4, f5 from dri_wrk;"

  MsgBox "File " & File & " successfully imported ", vbInformation

  End If

End Sub

dri_wrk是MS ACCESS表，其中数据首先使用acImportDelim加载然后尝试插入ODBC表DRI_TEST_IMPORT。这需要很多时间。任何帮助都会很棒感谢

使用VBA导入具有1百万条记录的CSV文件，从而导致性能问题

0 个答案: