Здравствуйте!
Вопрос: Как мне ускорить свой код, или как создать "select * into from *" есть код
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "DRIVER=Microsoft FoxPro VFP Driver (*.dbf); Exclusive=No;SourceType=DBF;SourceDB=" & Path
rst.Open "SELECT nomer, ls, SUMA, PDV FROM akt;", cnn, adOpenKeyset, adLockOptimistic
как создать таблицу без таких извращений (это работает очень долго, таблицы по 80 тыс записей)
cnn.Execute ("create table " & App.Path & "\tmp\akt.dbf (ls C(11), FIO C(50), Adressa C(50))")
Do While rst.EOF = False
cnn.Execute " insert into (ls,fio,adressa) values ..."
loop
Ответить
|