L
Lunatikus
БД Access 2002.
Delphi 7.
Вот цикл из проги:
как бы его оптимизировать?а то надо один раз выполнить все это не по 10 строкам а по 500тысячам,а со скоростью 1 строка в 2 секунды это будет очень долго...подскажите,что не так?и как можно оптимизировать?Спасибо за уделенное время!
Delphi 7.
Вот цикл из проги:
Код:
i:=10;
ADOQ1.open;
ostatok:=ADOQ1.fields[0].asfloat;
ADOQ2.SQL.Clear;
ADOQ2.SQL.append('UPDATE DEAL SET ostatok=:ostatok WHERE univer=:univer AND data=:data');
while i>0 do
begin
i=i-1;
ADOQ1.next;
ostatok:=ostatok+ADOQ1.fields[1].asfloat+ADOQ1.fields[2].asfloat+ADOQ1.fields[3].asfloat;
ADOQ2.parameters[0].value:=ostatok;
ADOQ2.parameters[1].value:=ADOQ1.fields[4].asstring;
ADOQ2.parameters[2].value:=ADOQ1.fields[5].asdatetime;
ADOQ2.execSQL;
end;