Приветствую всех обитателей форума.
Я столкнулся с небольшой проблемой. У меня 2 таблицы данных. Между ними
связь мастер детальный по ключевым полям. Нужно что бы при удалении
записи из мастера удалялись все записи относящиеся к тому полю, но сдвига в главной табл.
не происходило. Я пытаюсь удалять записи по средствам перебора по значению
мастера RecNo и ключевому полю подчиненой таблицы. Высвечивается ошибка что таблица не находbncz в режиме редактирования.
Спасибо.
Вот код удаления из подчиненой таблицы

Код

Max:=DataModule1.CardList.RecordCount;      DataModule1.CardList.First;      for i:=1 to max do      begin     {ошибка! }    If DataModule1.CardList.Fields[1].AsInteger=DataModule1.Alldilers.RecNo then begin DataModule1.CardList.Edit; DataModule1.CardList.Delete; DataModule1.CardList.Post; end;      DataModule1.CardList.Next;      end;

в "Королевстве Дельфи" есть 3 статьи про ADO, "Немного об использовании ADO в Delphi 1,2,3", там все подробно и прктически твой пример. Можно поискать и через яндекс по названию статьи. Сам искал. Вот выдержки:

Все просто - свойству 'Unique Table' нужно присвоить имя той таблицы, над которой производятся манипуляции (удаления и исправления).
ADODataSet1.Properties['Unique Table'].Value:='Calls';

Свойство 'Resync Command' используется совместно с 'Unique Table' - в этом свойстве задается команда, с помощью которой должна быть обновлена текущая строка, основываясь на значении колонок из таблицы, имя которой заданно свойством 'Unique Table'.
В нашем случае:
ADODataSet1.Properties['Resync Command'].Value:=
'SELECT Abonents.AbonentID AS A_AbonentID, Abonents.AbonentName, Calls.*
FROM Abonents INNER JOIN Calls ON Abonents.AbonentID = Calls.AbonentID
WHERE Calls.CallID = ?';
Это почти такая же SQL команда как и та, с помощью которой открыт наш набор данных - с тем лишь отличием, что она считывает только одну строку, ограничивая по условию WHERE Calls.CallID = ?.
Cursor Engine подставит вместо вопросительного знака текущее значение CallId и выполнит эту команду при обновлении строки.

1. на форму кидаешь доп. TQuery
2. в поле MasterSource выбираешь TDataSource мастер-таблицы
3. пишешь в сво-ве SQL

Код

DELETE FROM detailtable WHERE MASTER_ID = :ID

поле ID в местер таблице и поле MASTER_ID в детаил-таблице связаны

в свойстве BeforDelete мастер-таблицы

Код

if MessageDlg('Удалить все записи из мастер-таблицы', mtWarning, [mbYes, mbNo], 0) = mrYes then  Query1.ExecSQL;

Это сообщение отредактировал(а) dsergey - 15.10.2004, 15:48

Неплохо было бы знать базу данных, иногда такие вещи удобно например триггерами делать

Цитата

Неплохо было бы знать базу данных, иногда такие вещи удобно например триггерами делать

абсолютно согласен, но мне почему-то кажется, что он работает с Paradox

Это сообщение отредактировал(а) dsergey - 15.10.2004, 16:32

Спасибо за ответы.