Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Текстовые файлы и БД [D5, Paradox]

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

cdaDmitriy (2002-02-21 19:44:00) [1]
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);

Lamery (2002-02-21 19:25:00) [2]
процедура не отрабатывает построчную запись в файл

sunwheel (2002-02-21 18:59:00) [3]
В TQuery.SQL вставляешь:
SELECT * FROM ИмяТаблицы

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

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

Lamery (2002-02-21 18:01:00) [4]
Е= Edit

Lamery (2002-02-21 17:59:00) [5]
Делал всё с начала без 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;

sunwheel (2002-02-21 09:50:00) [6]
>Lamery
Ты бы хоть рассказал, что сам пытался сделать, и что у тебя вышло.

Lamery (2002-02-21 09:42:00) [7]
Помогите!!!

Morgan (2002-02-20 19:14:00) [8]
А зачем собственно создан форум? задал человек вопрос, помоч надо!

Lameru (2002-02-20 19:09:00) [9]
Тогда не знатокиЮ, а вообще кто нибудь поможет?

draculenok (2002-02-20 06:29:00) [10]
>> а знатоки разве не начинали с основ?

Johnmen (2002-02-19 18:08:00) [11]
Не думаю, что знатоки снизойдут до объяснения основ...

Наверх

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