Как реализовать каскадное удаление?

← →
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.
Так как быть?

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

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;

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

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

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

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