如何向ACCESS中添加多个记录

Question

如何向ACCESS中添加多个记录？

Answer 1

for i=0 to 100
    insert into yourtable values('a','b',..)
next i

Answer 2

 For n = 1 To 100
      For m = 1 To 156
         For k = 1 To 186                  ' array(n, m, k)是个已知数组，把它添加到ACCESS的表state中，如何添加         Next k      Next m
  Next n

Answer 3

    For n = 1 To 100
        For m = 1 To 156
            For k = 1 To 186
            
                strS = "insert into mytable ( " & _
                      "        id  " & _
                      "       ,state " & _
                      "       )  " & _
                      " values(  " & _
                      "       '" & strid & "' " & _
                      "      ,'" & Array(n, m, k) & "' " & _
                      "        )"
            
            Next k
        
        Next m
    Next n

Answer 4

    For n = 1 To 100 
        For m = 1 To 156 
            For k = 1 To 186 
                           
               rs.AddNew 
                rs.Fields(0) = strid 
                rs.Fields(1) =  Array(n, m, k)
                rs.Update             Next k 
        
        Next m 
    Next n

Answer 5

    con.BeginTrans    For n = 1 To 100 
        For m = 1 To 156 
            For k = 1 To 186 
            
                strS = "insert into mytable ( " & _ 
                      "        id  " & _ 
                      "      ,state " & _ 
                      "      )  " & _ 
                      " values(  " & _ 
                      "      '" & strid & "' " & _ 
                      "      ,'" & Array(n, m, k) & "' " & _ 
                      "        )" 
               con.Execute strs
            Next k 
        
        Next m 
    Next n
    
    con.CommitTrans

Answer 6

一条一条添加速度太慢了，如果小于50条记录，可以使用Union，
如果大于50条，则分几次，每次用Union添加50条记录，这样速度快一点