Форум: "Начинающим";
Текущий архив: 2007.12.30;
Скачать: [xml.tar.bz2];
ВнизКак сохранить результат 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c