Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как удалить все записи подчиненой таблицы [D5, IB4.x]


Samvel ©   (2002-05-14 14:04:00) 

делаю так

while not table1.eof do
begin
table1.delete;
table1.next
end;

но к сожалению все записи остаются не тронутыми при этом курсор в главной таблице находится на нужной записи
Заранее спасибо
Самвел


vopros   (2002-05-14 15:19:00) [1]

Не забудь установить курсор на првую запись в детальной таблице


Val   (2002-05-14 15:09:00) [2]

если имеется ввиду каскадное удаление, то можно создать констреинт типа on delete cascade


Johnmen   (2002-05-14 14:20:00) [3]

DELETE FROM <подчиненная тбл.> WHERE <ссылочное поле>=<значение ключевого поля из ведущей тбл.>


Samvel   (2002-05-14 14:10:00) [4]

Да действительно так спасибо
просто запарился немного давно сижу
Самвел


Reindeer Moss Eater   (2002-05-14 14:07:00) [5]

После Delete, Next делать не надо, иначе удалишь записи через одну :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо