Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.08;
Скачать: CL | DM;

Вниз

Сохранение измененных посредством TQuery таблиц   Найти похожие ветки 

 
Роман Василенко ©   (2002-03-08 11:56) [0]

Добрый... день.

Ситуация такая:

На форме есть TQuery, TDataSource, TDBGrid, в общем, все, как обычно. С помощью TQuery выполняется какой-нибудь запрос DML, например "delete from...". Существует некоторое количество случаев, когда результаты подобных команд не сохраняются в таблице. Ну, например, программка обвалилась, или что еще...

Вопрос: существует ли твердый способ сохранить изменения в таблицу (вроде dbiSaveChanges) непосредственно сразу после употребления запроса? Если можно, подскажите способ, при условии, что:

1. Я не использую TDatabase, TSession.
2. При инициализации всем TQuery задается путь к каталогу с файлами БД в свойство DatabaseName
3. Я использую таблицы формата Paradox (если это принципиально)


 
dealing ©   (2002-03-14 11:35) [1]

Попробуй использовать TDataBase.
При любом изменении таблицы делай следующее:

try
DataBase1.StartTransaction; // Начало Транзакции //
Query1.Unprepare;
...
Query1.Prepare;
Query1.ExecSql;
DataBase1.Commit; // Подверждение результатов транзакции,
если все прошло успешно //
except
DataBase1.RollBack; // Отмена выполненной транзакции, недачное
завершение операции //
MessageDlg("Ошибка записи в базу", , mtInformation,[mbOk],0);
end;

Такая система транзакций работает безотказно, все изменения отражаются четко.


 
Роман Василенко ©   (2002-03-18 10:04) [2]

Спасибо.



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
1-22727
DimaIv
2002-03-25 20:43
2002.04.08
Есть такая проблема, имеется шаблон документа в Вордовском


1-22754
IronHawk
2002-03-27 11:01
2002.04.08
Приветствую Мастеров! Очень надо в StringGrid сделать так ....


14-22819
Miwa
2002-02-16 23:09
2002.04.08
Литература для


3-22557
andyway
2002-03-14 06:12
2002.04.08
Расчет таблиц по базе


6-22785
mcp@online.ru
2002-01-25 00:04
2002.04.08
Как при поиске в компоненте TWebBrowser использовать собственную строку поиска?