data export[РЕШЕНО]

[Pavidlo]

Добрый день! Хочу выгрузить данные из базы в csv файл. База mysql. На вкладке data export есть компонент CSVExporter. Судя по названию он именно для этого и служит) А вот че с ним делать ума не приложу...

[v-t-l]

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  CSVExporter1.Dataset := SQLQuery1;
  CSVExporter1.FileName := 'mytable1.csv';
  ShowMessageFmt('Экспортировано %d записей.',[CSVExporter1.Execute]);
end;

[Pavidlo]

Благодарю!