Как лучше сохранить выборку из Adoquery в файл?

← →
pathfinder (2005-11-28 15:26) [0]

Подскажите пожалуйста как лучше сохранить выборку из Adoquery в файл? В идеале в виде таблицы в вордовский файл, но можно и в текстовый. Заранее спасибо.

← →
PeaK © (2005-11-28 15:40) [1]

Можно пройти по всей выборке примерно так:

ADOQuery1.Close ; ADOQuery1.SQL.Text := "Select * from mytable where (a4 = 28) order by a1" ; ADOQuery1.Open ; ADOQuery1.First ; while not ADOQuery1.Eof do begin // ADOQuery1.Fields[0].AsString - содержит информацию // из первого столбца таблицы mytable // его можно записать в файл, если это число, а файл открыт для записи Writeln(TextFile, ADOQuery1.Fields[0].AsString , ADOQuery1.Fields[1].AsString ) ; // запись в открытый TextFile полей за номером 1 и 2 ADOQuery1.Next ; // последовательно переходим по всей // выборке, осортированной по параметру a1 end ;

← →
Ega23 © (2005-11-28 15:41) [2]

Первое, что пришло в голову:
Связка ADOQuery -> DataSetProvider -> ClientDataSet.
ClientDataSet, в свою очередь, умеет в XML сохранять.

← →
pathfinder (2005-11-28 15:49) [3]

> Ega23 ©

в XML AdoQuery тоже может..а как потом из XML доковский или текстовый сделать?

← →
Ega23 © (2005-11-28 15:53) [4]

> в XML AdoQuery тоже может..

Не знал. Тогда это ещё проще.

> а как потом из XML доковский или текстовый сделать?

Это сродни вопросу: "А как из HTML доковский или текстовый файл сделать"

← →
pathfinder (2005-11-28 17:07) [5]

Вопрос в том как сделать это программно..

Чем мой способ-то не устраивает? Семь строчек кода и вся выборка наша... :-)

легко загрузить в Excel

Excel:= CreateOleObject("Excel.Application");
Excel.SheetsInNewWorkbook:= 1;
WorkBook:= Excel.WorkBooks.Add;
Sheet:= WorkBook.WorkSheets[1];

Sheet.Range["a3"].CopyFromRecordset(DatSet.Recordset);

в ворде возможно есть чтото аналогичное

← →
pathfinder (2005-11-28 17:31) [8]

Как лучше сохранить выборку из Adoquery в файл? Найти похожие ветки