Скачать: CL | DM;

Как лучше сохранить выборку из 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]

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

---

← →
PeaK ©   (2005-11-28 17:21) [6]

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

---

← →
sniknik ©   (2005-11-28 17:21) [7]

легко загрузить в 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]

> PeaK ©  


> sniknik ©  

Спасибо. Буду тестить оба способа.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.968 c