ник: KrukVN
По быструхе можно так:
Sub milenium()
Dim i As Byte
CurrentDb.Execute "delete from tab_test"
For i = 0 To 9
CurrentDb.Execute "INSERT INTO tab_test ( test ) VALUES ( " & i & " )"
Next i
CurrentDb.Execute "INSERT INTO tab_test ( test ) SELECT tab_test.test FROM tab_test, tab_test AS tab_test_1, tab_test AS tab_test_2, tab_test AS tab_test_3, tab_test AS tab_test_4, tab_test AS tab_test_5"
End Sub
|
запишет чуть более миллиона записей (причем достаточно быстро: на моем домашнем пне 3 (733 MHz) + 256 оперативки за 20 секкунд)
Вы что хотите чей-нить сервак за ..ца подвесить?
В прикрепленном примере с применением Rnd
но пишет уже чуть дольше - что-то около минуты (не засекал). Правда без уникальности (см. Запрос1), но это уже повозиться нужно.
Ну а цикл на VB, к сожалению, не самый быстрый самолет
