关于批量添加数据到数据库中！

Question

Dim mCon As New ADODB.Connection
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"If mRst.State = adStateOpen Then mRst.Close
      mCon.Open mCnnString
      Dim i
'将文件写入数据库
For i = 1 To ListView1.ListItems.Count
    mCon.CursorLocation = adUseClient
    mCon.Execute "Insert Into Usermdb Values('" & i & "', '" & ListView1.ListItems(i) & "','" & ListView1.ListItems(i).SubItems(2) & "', '" & ListView1.ListItems(i).SubItems(3) & "', '" & ListView1.ListItems(i).SubItems(4) & "', '" & ListView1.ListItems(i).SubItems(5) & "', '" & ListView1.ListItems(i).SubItems(6) & "', '" & ListView1.ListItems(i).SubItems(7) & "', '" & ListView1.ListItems(i).SubItems(8) & "', '" & ListView1.ListItems(i).SmallIcon & "')"
    
Next
 mCon.Close
 Set mCon = Nothing
－－－－－－－－－－－－－－－－－－－－－
提示数据库打开无法操作！

Answer 1

改为
---------------------------------------------------------------
If mRst.State = adStateOpen Then mRst.Close
      mCon.CursorLocation = adUseClient'这句是改后的
      mCon.Open mCnnString
      Dim i
'将文件写入数据库
---------------------------------------------------------------
把后面循环中的那句mCon.CursorLocation = adUseClient删掉

Answer 2

.CursorLocation = adUseClient
是把游标类型设置为静态

Answer 3

Dim mCon As New ADODB.Connection
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"If mCon.State = adStateOpen Then mCon.Close
      mCon.CursorLocation = adUseClient
      mCon.Open mCnnString
      Dim i
'将文件写入数据库
For i = 1 To ListView1.ListItems.Count
    mCon.Execute "Insert Into Usermdb Values('" & i & "', '" & ListView1.ListItems(i) & "','" & ListView1.ListItems(i).SubItems(2) & "', '" & ListView1.ListItems(i).SubItems(3) & "', '" & ListView1.ListItems(i).SubItems(4) & "', '" & ListView1.ListItems(i).SubItems(5) & "', '" & ListView1.ListItems(i).SubItems(6) & "', '" & ListView1.ListItems(i).SubItems(7) & "', '" & ListView1.ListItems(i).SubItems(8) & "', '" & ListView1.ListItems(i).SmallIcon & "')"
    
Next
 mCon.Close
 Set mCon = Nothing