Delphi

Вопрос

Есть две таблицы db связыные по полю код связью один-ко-многим. Как проверить подчиненную таблицу на лишние записи, т.е. удалить из подчиненной таблицы записи которым нет соответствующих записей в главной таблице?

Слышал есть такие компоненты, подскажите как они называються и где их можно найти, и желательно как использовать.

Ответ

Пусть главная таблица называется GLAV, подчиненная — PODCH, поле, по которому между ними осуществляется связб один ко многим, — KOD. Тогда для выполнения удаления всех записей в подчиненной таблице, для которых нет кода в главной, выполни следующий запро

с:

DELETE FROM podch WHERE kod NOT IN (SELECT kod FROM glav)

00000000000 Для выполнения запроса положи на форму компонент TQuery, назвав его Query1, например, пропиши в свойстве SQL указанный выше запрос и запусти выполнение, воспользовавшись следующей конструкцией:

…

Query1.ExecSQL;

…

Из конференции Expert_FAQ