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

Как реализовать каскадное удаление?   Найти похожие ветки 

← →
alenka   (2002-10-06 00:49) [0]

Всем привет!Вопрос чайника.Есть две таблицы Access, связанные соотношением "один-ко-многим",одна-вид_блюда,другая-разновидность_блюд.К примеру,в таблице вид_блюда содержится "закуска".Как сделать так,чтобы при удалении "закуски" из таблицы вид_блюда,все блюда такого типа,т.е закуски,в таблице разновидность_блюд также удалялись?

---

← →
Оливейра ©   (2002-10-06 01:57) [1]

На диаграммке в Access связь нарисовать и чпокнув по ней правой кнопкой мышки и выбрав properties выставить галки на Cascade Refresh и Delete (или чего там). Но надежней в два этапа ручками - сперва из подчиненной, потом из главной.

---

← →
aus ©   (2002-10-06 16:18) [2]

Чем надежней? Еще ни разу созданное в Access не подводило.

---

← →
Mike_Goblin ©   (2002-10-06 18:26) [3]

>Оливейра
а если вдруг не из Вашего приложения попробуют удалять? А код контроля ошибки отнють не сделает Ваше приложение проще. Выносить логику ссылочной целостности на клиента, какие в этом преимущества?

---

← →
alenka   (2002-10-08 00:38) [4]

Прошу прощения за немножко некоректную постановку вопроса.Мне нужно реализовать такое удаление в Delphi,а не в Access.Разумеется все нужные чпоки я проделала в Access.Таблицы открываю через ADO.
Так как быть?

---

← →
Tornado ©   (2002-10-08 08:02) [5]

Я делал примерно так: удалял записи запросом по ключевому полю.

if MessageDlg("Подтвердите удаление записи", mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Query.SQL.Clear;
Query.SQL.Add("Delete from Table_1 where ID = " + InttoStr (Table_1.FieldByName("ID").AsInteger));
Query.ExecSQL;
Query.SQL.Clear;
Query.SQL.Add("Delete from Table_2 where ID = " + InttoStr(Table_2.FieldByName("ID").AsInteger));
Query.ExecSQL;
end;

Работает нормально.

---

← →
Max Zyuzin ©   (2002-10-08 08:40) [6]

>Tornado © (08.10.02 08:02
На самом деле это ни есть верно.

А по сути вопроса сказать не могу, с аксесом не работал, по этому не в курсе что в нем есть (транзакции например)

---

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

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



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