Скачать: CL | DM;

Каскадное удаление вручную   Найти похожие ветки 

← →
MORA   (2004-07-26 14:02) [0]

Нужно удалить запись и заодно все подчинённые записи во всех подчин. таблицах.
Правильно ли я делаю:
обработчик DataSet.BeforeDelete:


if ConfirmDelete then // если дано добро на удаление
 begin
   ffdb.StartTransaction;
   try
     //удаляю все подчинённые записи
     ffdb.Commit;
   except
     ffdb.Rollback;
   end;
 end
 else
   raise EAbort.Create("");


а в обработчике btnDeleteClick:

     try
       DataSet.Delete;
     except
       on E: EDatabaseError do
         Application.MessageBox(PChar(E.Message), "error", MB_ICONERROR);
     end;


в принципе EDatabaseError использую для других целей (здесь это ни при чём)

---

← →
Johnmen ©   (2004-07-26 14:09) [1]

Не очень...
Всё удаление, и в основной и в дочерней, д.б. в рамках одной транзакции.

---

← →
Вовчик   (2004-07-26 14:10) [2]

а что такое ffdb?

---

← →
Соловьев ©   (2004-07-26 14:13) [3]

> а что такое ffdb?

я бы спросил что такое FlashFiler? что это еще за новая СУБД?

---

← →
MORA   (2004-07-26 14:25) [4]

> я бы спросил что такое FlashFiler? что это еще за новая
> СУБД?

да есть такая.
мне не нравится, но начальство заставиЛО разобраться.
есть контора такая американская TurboPower. Вот она и сделала такую БД типи клиент-серверную.
Но если честно, г... полное

---

← →
MORA   (2004-07-26 14:52) [5]

> Всё удаление, и в основной и в дочерней, д.б. в рамках одной
> транзакции


а в моём коде что-то недопустимое?

---

← →
Вовчик   (2004-07-26 15:41) [6]

А что за объект ffdb?

---

← →
MORA   (2004-07-26 16:05) [7]

> А что за объект ffdb?

см. [3]

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c