Форум: "Базы";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизТекстовые файлы и БД Найти похожие ветки
← →
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
← →
sunwheel (2002-02-21 18:59) [9]В TQuery.SQL вставляешь:
SELECT * FROM ИмяТаблицы
TQuery.RequestLive и TQuery.CachedUpdates ставишь в True;
Остальное так же как у тебя, только вместо Table1 будет Query1
← →
Lamery (2002-02-21 19:25) [10]процедура не отрабатывает построчную запись в файл
← →
cdaDmitriy (2002-02-21 19:44) [11]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);
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c