Quickly Add 10000 records to Access 2000
Posted on 2001-08-16
I am currently developing a VB6 program where, at one point, I need to add 10000 records to a table. Right now what I am doing is basically:
dim rs as new adodb.recordset
rs.Open "select * from TABLE1", sConnection, adOpenKeyset, adLockOptimistic
For i = 1 to 10000
rs(0).value = "blah"
rs(1).value = "blah blah"
This method is proving to be very very slow. Is there any other way to do this? Maybe some kind of batch import? Any suggestions/ideas will be welcome.