Почему не работает ТРАНЗАКЦИЯ?

← →
nikolo © (2002-10-16 16:46) [0]

Проблема в следующем: в этом примере делаю удаление из двух таблиц Paradox (сначала из подчиненной Table_2, потом из главной Table_2). При удалении из главной Table_1 специально делаю ошибку для отладки. Так вот, программа совершенно не реагирует на Rollback, т.е. первое удаление проходит. Объясните, пожалуйста, почему?

procedure TfmGroup.Button1Click(Sender: TObject); begin if ShowQuestionYN("Удалить ?", 2) then with Database1, Query1 do try if InTransaction then Rollback; StartTransaction; SQL.Text := "Delete From "Table_2.db" Where Group_Id=3"; ExecSQL; SQL.Text := "Delete From "Table_1.dbW" Where Id=3"; //здесь специально для примера делаю ошибку (dbW), чтобы был Exeption ExecSQL; Commit; except On E: Exception do begin ShowMessage("Ошибка!"#10#10+E.Message); if InTransaction then Rollback; end; end; end;

← →
Max Zyuzin © (2002-10-16 16:51) [1]

Думаю потому, что у парадокса в принципе нету транзакций.

← →
Johnmen © (2002-10-16 16:56) [2]

>Max Zyuzin © (16.10.02 16:51)

Ага......:)))

← →
nikolo © (2002-10-16 16:58) [3]

Во косяк, а как быть? Выхода нет вообще? Только не говорите использовать Oracle, пожалуйста :)

← →
Val © (2002-10-16 17:09) [4]

1.можно следить самому.
2.можно попробовать использовать кешированные изменения.

у парадокса есть транзакции, правда с ограничениями
а какой эффект в примере ожидается автором на выходе?

Транзакции есть и у Парадокса, но ТОЛЬКО ПОКА ВЫ НЕ СМЕНИТЕ ТЕКУЩУЮ ТАБЛИЦУ ! Т.е. можно в принципе сканированием изменить таблицу, а потом откатить все назад (правда, откат идет дольше, чем собственно коррекция). Но если при изменении Вы "скачите" от одного РД к другому, ВСЕ изменениия, сделанные в первом НД, немедленно будут запостированы , даже если у вас был буфер. (Фаронов, а я подтверждаю)

Вообще же использовать SQL-запросы для интерфейс-коррекции БД (т.е.когда вводит, удаляет и редактирует юзер), не самый лучший путь для Paradox/dBase БД. BDE прекрасно справляется с мощными запросами по выборке или модификации целых таблиц, но совершенно беспомощна, когда пытаешься "эскюэлить" одиночные правки.

Почему не работает ТРАНЗАКЦИЯ? Найти похожие ветки