sql запрос на удаление из связанных таблиц

[NeVirus]

Доброго времени суток,
Моя проблема в следующем - есть база данных в firebird, в ней несколько таблиц и к ним программа клиент на делфи. Возникла необходимость удаления массивов строк из базы по запросу - проблема моя в том что я не знаю как написать запрос на удаление если выборка идет из нескольких связанных таблиц...
на данный момент момент есть :
"
SQL_2.Active := false;
SQL_2.Close;
SQL_2.SelectSQL.Clear;

SQL_2.SelectSQL.Text := 'select t1.ul, t1.dom , t2.summa_itog, t2.id from Lics t1, invoice t2 where t1.lic = t2.lic and t1.ul = :ul and t1.dom between :dom_1 and :dom_2';
SQL_2.ParamByName('ul').AsString:= UL.Text;
SQL_2.ParamByName('dom_1').AsString := DOM_1.Text;
SQL_2.ParamByName('dom_2').AsString := DOM_2.Text;

SQL_2.Active := true;
ds.DataSet := SQL_2;

grid.DataSource := DS;

grid.Columns[0].FieldName:= SQL_2.FieldName(0);
grid.Columns[1].FieldName:= SQL_2.FieldName(1);
grid.Columns[2].FieldName:= SQL_2.FieldName(2);
"
и еще несколько подобных запросов выбирающих мне нужные строчки в дбгрид... как теперь силами самого делфи их удалить из базы?

Прошуровал поиск на скорую руку ответа не нашел... если что то пропустил ткните ссылку плз.

П.С. понимаю что из самого файрберда делается простейшей процедуркой, но обстоятельства таковы что нужно именно из делфи это делать

заранее спасибо за ответы

[NeVirus]

пробывал вот так:

SQL_3.Active := false;
SQL_3.Close;
SQL_3.SelectSQL.Clear;

ds.DataSet := SQL_3;

SQL_3.SelectSQL.Text:='DELETE From INVOICE Where ID = :ID';
SQL_3.ParamByName('ID').Value := SQL_2.FieldValues['id'];

SQL_3.Active := true;

но тогда выбирается только 1й ID и все...

[vovk]

либо циклом пробегатся по датасету SQL_2, и каждый раз

SQL_3.SelectSQL.Text:='DELETE From INVOICE Where ID = :ID';
SQL_3.ParamByName('ID').Value := SQL_2.FieldValues['id'];

SQL_3.Active := true;

но правильнее по моему

SQL_2.SelectSQL.Text := 'DELETE From INVOICE 
Where ID in  (select  t2.id from Lics t1, invoice t2 where t1.lic = t2.lic and t1.ul = :ul and t1.dom between :dom_1 and :dom_2)';
SQL_2.ParamByName('ul').AsString:= UL.Text;
SQL_2.ParamByName('dom_1').AsString := DOM_1.Text;
SQL_2.ParamByName('dom_2').AsString := DOM_2.Text;

SQL_2.Active := true;

Использование компонентов и запросов просто скопировал из ваших постов, но смысл должен быть понятен.

[NeVirus]

Спасибо, запрос немного изменил... но направление верное - сейчас все работает. Не подумал почему то про вложенный запрос... вот что бывает когда начальство ставуит тупые условия)))