Результат запроса в txt и dbf.

[santaIsAbsent]

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

Подскажите пожалуйста. Как сохранить результат выполнения запроса в текстовый и dbf файлы.
Аналогичные темы я просматривал, советы из них попробовал, но проблема в том, что необходимо работать с большим объемом данных (результат выполнения запроса достигает порядка 1 ммлн. строк, а бывает и больше) скорость сохранения данных очень маленькая.

Заранее спасибо.

[soleil@mmc]

все относительно
даже ваш вопрос
1 млн. строк с одной колонкой, состоящей из одной буквы в каждой строчке, и 1 млн. строк со 100 колонками с блобами - время выгрузки будет существенно различаться

первое что хочется услышать - субд?
второе - а зачем вы это выгружаете вообще? что будете дальше делать?
и третье - приведите кусок кода, который дает "маленькую скорость сохранения" (может, достаточно будет его затюнить?!).

[Stilet]

А что за запрос? Откуда данные берутся?
Если источник правильно настроен (БД проиндексирована и т.п.) то можно организовать запрос по частям, скажем по 1000 зписей - так поступают многие утилиты импорта-экспорта

[santaIsAbsent]

1. Данные хранятся в dbf файлах.
2. Колонок в одной таблице около 30.
3. Выгрызка такая необходима для дальнейшей обработки этих данных в др. программе.

Код: (сохранение в txt)

begin
if not FileExists('DB_Dump.txt') then
begin
Rewrite (f,(ExtractFileDir(Application.ExeName)+'\Ðåçóëüòàò çàïðîñà\txt\DB_Dump.txt'));
CloseFile(f);
end;
f_c:=ADOQuery2.FieldCount;
r_c:=ADOQuery2.RecordCount;
for n:=0 to r_c-1 do begin
for i:=0 to f_c-1 do
begin
dump:='';
a[i]:=DBGrid2.Fields[i].AsString+#9;
AssignFile(f,(ExtractFileDir(Application.ExeName)+'\Ðåçóëüòàò çàïðîñà\txt\DB_Dump.txt'));
Append(f);
Write (f,a[i]);
CloseFile(f);
end;
Append(f);
Writeln (f,'');
CloseFile(f);
ADOQuery2.Next;
end;
end;

[soleil@mmc]

ндаа....
1) квери.RecordCount - на больших объемах очень долгая орперация
лечится так (тебе же незачем знать точное число)

/* все это тоже выносим из цикла */
dump:='';
a[i]:=DBGrid2.Fields[i].AsString+#9;
AssignFile(f,(ExtractFileDir(Applic ation.ExeName)+'\Ðåçóëüòàò çàïðîñà\txt\DB_Dump.txt'));

Append(f);
while not ADOQuery2.EOF do begin
  /* здесь кодинг сборки строки вставки и сама вставка в файл  */
  ADOQuery2.Next;
end;
CloseFile(f);

2) на каждой колонке для каждой записи делать аппенд и клоз для файла - это тоже долго
в верхнем примере показано что это все нужно вынести за цикл листания записей

[santaIsAbsent]

Спасибо. А как тогда тоже самое сохранить в dbf ?

[soleil@mmc]

да так же
только вместо записи в текстовый файл будет запись в дбф инсертами через скл

insert into 
(field1, ...)
values(value1, ...)

и не забудь отключить отображение листания датасета в каком-нить гриде

датасет.DisableCotrols;
/* обработка выгрузки данных */
датасет.EnableCotrols;

и апдейт к верхнему примеру

/* все это тоже выносим из цикла */
dump:='';
f_c:=ADOQuery2.FieldCount;
AssignFile(f,(ExtractFileDir(Applic ation.ExeName)+'\Ðåçóëüòàò çàïðîñà\txt\DB_Dump.txt'));

Append(f);
while not ADOQuery2.EOF do begin
  /* здесь кодинг сборки строки вставки и сама вставка в файл  */
  /* цикл по полям остается  */
  for i:=0 to f_c-1 do begin
    a[i]:=DBGrid2.Fields[i].AsString+#9;  // только здесь нужно не к гриду обращаться, а к квери ADOQuery2
    Write (f,a[i]);
  end;
  ADOQuery2.Next;
end;
CloseFile(f);

[santaIsAbsent]

Большое спасибо. Попробую.

Работает, но не совсем. Файл создается, данные записываются, но в одну строку.

вот код:

begin
  if not FileExists('DB_Dump.txt') then
    begin
      Rewrite (f,(ExtractFileDir(Application.ExeName)+'\Ðåçóëüòàò çàïðîñà\txt\DB_Dump.txt'));
      CloseFile(f);
    end;
      ADOQuery2.Open;
      dump:='';
      f_c:=ADOQuery2.FieldCount;
      AssignFile(f,(ExtractFileDir(Application.ExeName)+'\Ðåçóëüòàò çàïðîñà\txt\DB_Dump.txt'));
      Append(f);
      While not ADOQuery2.EOF do begin
      for i:=0 to f_c-1 do
        begin
          a[i]:=ADOQuery2.Fields[i].AsString+#9;
          Write (f,a[i]);
        end;
        ADOQuery2.Next;
      end;
    CloseFile(f);
end;

[Serge_Bliznykov]

      While not ADOQuery2.EOF do begin
      for i:=0 to f_c-1 do
        begin
          a[i]:=ADOQuery2.Fields[i].AsString+#9;
          Write (f,a[i]);
        end;
        WriteLn(f);
        ADOQuery2.Next;
      end;

а ещё лучше так

var s : string;
...
      While not ADOQuery2.EOF do begin
        s := '';
      for i:=0 to f_c-1 do
        begin
          s := s + ADOQuery2.Fields[i].AsString+#9;
        end;
        WriteLn(f.s);
        ADOQuery2.Next;
      end;