向ACCESS大批量快速插入数据的方法

 

今天经过试验,总结了一条向ACCESS大批量插入数据时比较快捷的方法.

先前VC程序中使用connection执行insert语句向ACCESS中插入数据,效率奇慢无比.今天测试结果表明:

同等数据量时,  rs.addnew比connection.execute(insert)要高N倍.

另,建议使用事务机制处理数据.
将connection.BeginTrans和connection.CommitTrans配合rs.addnew使用,
VB+ACCESS试验数据表明,一百万条新数据插入,仅需要一分多钟,使用connection.execute更新十万条数据时需要三五分钟.不使用事务应该会更久(根据先前经验,未测试).
需要注意的是,使用rs.addnew时,rs的LockType不能使用adLockBatchOptimistic或adLockReadOnly,否则会报错

=========================================================
测试代码如下:

1. Private Sub Command1_Click()
2. Dim cnn1 As ADODB.Connection
3.    Dim rstTitles As ADODB.Recordset
4.    Dim strCnn As String
5.    Dim strTitle As String
6.    Dim strMessage As String
8.    ' 打开连接。
9.    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Documents and Settings/桌面/新建 Microsoft Office Access 应用程序.mdb;Persist Security Info=False"
10.    Set cnn1 = New ADODB.Connection
11.    cnn1.Open strCnn
12.    
13.    Dim i As Long
14.    Dim t1 As String, t2 As String
15.    t1 = Time$()
16.    cnn1.BeginTrans
17.    
18.    Set rstTitles = New ADODB.Recordset
19.    rstTitles.LockType = adLockPessimistic '不能使用adLockBatchOptimistic或adLockReadOnly
20.    rstTitles.CursorType = adOpenDynamic
21.     rstTitles.Open "tab", cnn1
22.     
23.    For i = 1 To 10
24.     rstTitles.AddNew
25.     rstTitles("a") = i
26.     rstTitles("b") = i
27.     rstTitles.Update
28.    Next i
30.     cnn1.CommitTrans
31.     
32.    rstTitles.Close
33.    cnn1.Close
34.    
35.    t2 = Time$()
36.    
37.    MsgBox t1 & "   " & t2
38. End Sub