Текущий архив: 2007.12.30;
Скачать: CL | DM;

Вниз

Как сохранить результат SQL запроса в файл?   Найти похожие ветки 

← →
Тест_Новичок   (2007-12-05 12:46) [0]

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

  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:50) [1]

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

---

← →
Palladin ©   (2007-12-05 12:51) [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:55) [3]

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

---

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

Текущий архив: 2007.12.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c