| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сохранить результат SQL запроса в файл? [D6, XP]

Тест_Новичок ©   (2007-12-05 12:46:00) 

Здравствуйте. Подскажите пожалуйста, как сохранить результат запроса в файл?

  Query1.Active :=false;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT *');
  Query1.SQL.Add('FROM db1');
  Query1.SQL.Add('WHERE Flag = "уехал"');

  DataSource2.DataSet :=Query1;
  Query1.DatabaseName :='testbase';
  Query1.Active :=true;

---

Тест_Новичок   (2007-12-05 12:55:00) [1]

Пасибо, прям выручили

---

Palladin   (2007-12-05 12:51:00) [2]

Var
i:Integer;
s:String;

With TStringList.Create Do
Try
  While not Query1.Eof Do
   Begin
    s:='';
    For i:=0 to Query1.Fields.Count-1 do s:=s+Query1.Fields[i].AsString+#9;
    SetLength(s,Length(s)-1);
    Add(s);
    Query1.Next;
   End;
 SaveToFile('файл');
Finally
 Free;
End;

---

Сергей М.   (2007-12-05 12:50:00) [3]

Сохранить в какомформате ?

---

Наверх