我目前正在使用和ADODB.Connection / Recordset从SQL Server(从Access中)检索~300K行。 然后我将这些记录插入到表中,目前通过DAO.Database / Recordset
设置ADODB连接并将结果分配给“结果”:
StrQuery = "Select * from tbl"
rst.Open StrQuery, cnn
results = rst.GetRows
插入DAO记录集'rs':
For row = 0 To UBound(results, 2)
rs.AddNew
For col = 0 To UBound(results, 1)
If IsNumeric(results(col, row)) = True Then
tmp = Round(results(col, row), 4)
Else
tmp = results(col, row)
End If
rs.Fields(col + 1) = results(col, row)
Next col
rs.Update
Next row
这是最有效的方法,还是有更有效的方式?