Текстовые файлы и БД

← →
Lamery (2002-02-19 18:03) [0]

Вопрос знатокам:
есть база данных Парадокс 7.0 с текстовыми данными в оной (такие как Ф. И. О., паспортные данные и т.д.). Задача такова: надо по клику на кнопку создать файл (или проверить на наличие и при наличии похожего имени отменить работу), и записать в него все данные из таблицы (5-6 полей, с последующей отчисткой таблицы) в таком порядке, что бы при нажатии на другую кнопку данные можно было восстановить во временную таблицу (уже существующую, с такими же полями).
Нужен текст этих операций с использованием Query и текст, который надо забить в сами Query.

← →
Johnmen © (2002-02-19 18:08) [1]

Не думаю, что знатоки снизойдут до объяснения основ...

← →
draculenok © (2002-02-20 06:29) [2]

>> а знатоки разве не начинали с основ?

← →
Lameru (2002-02-20 19:09) [3]

Тогда не знатокиЮ, а вообще кто нибудь поможет?

← →
Morgan © (2002-02-20 19:14) [4]

А зачем собственно создан форум? задал человек вопрос, помоч надо!

← →
Lamery (2002-02-21 09:42) [5]

Помогите!!!

← →
sunwheel © (2002-02-21 09:50) [6]

>Lamery
Ты бы хоть рассказал, что сам пытался сделать, и что у тебя вышло.

← →
Lamery (2002-02-21 17:59) [7]

Делал всё с начала без Query, всё работало, а потом перестало:
procedure TForm2.BitBtn4Click(Sender: TObject);
var
f: TextFile;
n: String;
label 3;
begin
n:= {"\periods\"+} Form1.E5.text;
AssignFile (f, n);
if FileExists(n) then
begin
MessageDlg("Ошибка",mtError,[mbOk],0);
Goto 3;
end
else
with DBGrid1.DataSource.DataSet do
begin
if MessageDlg ("Предупреждение!",mtWarning,[mbYes, mbNo],0)= mrNo then
Goto 3 else
Rewrite (f);
while not Table1.Eof do
begin
Writeln (f, Table1.FieldByName("FIO").AsString);
Writeln (f, Table1.FieldByName("Pasport").AsString);
Writeln (f, Table1.FieldByName("Firma").AsString);
Writeln (f, Table1.FieldByName("TimeInput").AsString);
Writeln (f, Table1.FieldByName("DateInput").AsString);
Table1.Next;
end;
Table1.First;
While not EOF do Table1.Delete;
end;
CloseFile (f);
3: end;

← →
Lamery (2002-02-21 18:01) [8]

Е= Edit

В TQuery.SQL вставляешь:
SELECT * FROM ИмяТаблицы

TQuery.RequestLive и TQuery.CachedUpdates ставишь в True;

Остальное так же как у тебя, только вместо Table1 будет Query1

← →
Lamery (2002-02-21 19:25) [10]

процедура не отрабатывает построчную запись в файл

Write (f, Table1.FieldByName("FIO").AsString);
Write (f, Table1.FieldByName("Pasport").AsString);
Write (f, Table1.FieldByName("Firma").AsString);
Write (f, Table1.FieldByName("TimeInput").AsString);
Writeln (f, Table1.FieldByName("DateInput").AsString);

Текстовые файлы и БД Найти похожие ветки