Показать сообщение отдельно
  #1  
Старый 18.12.2014, 11:12
svl_sumy svl_sumy вне форума
Прохожий
 
Регистрация: 19.08.2014
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
Восклицание Падает скорость при експорте данных из SQL в dbf

Доброго времени суток!

Есть таблица SQL 2005, из неё данные вот таким кодом переношу в dbf.
Записей около 1000000. Так вот сначала выгрузка идет шустро процентов до 20, но дальше чем ближе к концу - всё медленее и медленне. Что может быть куда копать??

Код:
        SQUery.SQL.Clear;
        SQuery.SQL.Append('Select * from Services');
        SQuery.Active:=true;

        if SQuery.RecordCount>0 then
        begin

        SQuery.First;

            while not SQuery.Eof do
            begin
            Tbl.Append;
            Tbl['ID']:=(SQuery['TID']);
            Tbl['RecvID']:=(SQuery['Receiver']);
            Tbl['Purpose']:=(SQuery['Nazn']);
            Tbl['MinKomis']:=(SQuery['Komission']);
            Tbl['KomPercent']:=(SQuery['Percent']);
            Tbl['DefMoney']:=(SQuery['DefMoney']);
            Tbl['IsKomPayer']:=(SQuery['KomissionPayer']);
            Tbl['ExtCode']:=(SQuery['ExternalCode']);
            Tbl['DeleteFlag']:=(SQuery['DeleteFlag']);
            Tbl['Symbol']:=(SQuery['Symbol']);
            Tbl['PayerType']:=(SQuery['PayerType']);
            Tbl['SyncId']:=(SQuery['Sync']);
            Tbl.Post;

            SQuery.Next;
            end;
        end;
Ответить с цитированием