удалить данные со связями.

[Dj_DeVaIs]

Добрый день.

Ситуация следящая.
Есть таблица Таб1 где данные. И есть Таб2_обзвон. Они между собой связаны ключем.

Кому не понятно. Таб1.ID -> Таб2.ID

при удалении надо удалить и из таб1 и из таб2 только не все файлы а именно связанные и по запросу.

Я сделал что с одной таблицы без связи он удаляет по запросу.
{ help1 := '1';
FMain.ADO.Close;
FMain.ADO.SQL.Clear;
FMain.ADO.SQL.Add('Delete from arhiv');
FMain.ADO.SQL.Add('where arhiv = '+ '''' + help1 + '''');
FMain.ADO.ExecSQL;
ShowMessage('Удаление прошло успешно');
}

Как сделать что бы можно было удалить из двух таблиц сразу же.
Спасибо заранее!

[Аватар]

1. Если СУБД умеет каскадно удалять, то при создании внешнего ключа задать каскадное удаление
2. Иначе если триггера СУБД поддерживает, то в триггере на удаление из родительской таблицы удалять записи из дочерней
3. Иначе программно удалять сначала из дочерней таблицы, а потом из родительской

[Dj_DeVaIs]

СУБД MS SQL 2005.

[Аватар]

Сообщение от Dj_DeVaIs

СУБД MS SQL 2005.

Так бы и сразу. Там есть каскадное удаление (пункт 1)

[Dj_DeVaIs]

нашел вот что.
create procedure myTable_Delete
@id int -- идентификатор удаляемой записи
as
begin tran
begin try
delete from myTable2 where id=@id
delete from myTable where id=@id
commit
end try
begin catch
rollback
-- RAISERROR (...)-- http://technet.microsoft.com/ru-ru/l.../ms178592.aspx
end catch
GO

теперь как можно соединить это все.
или направти на учебники или пособия.
мозг кепит, а сроки идут.

[Аватар]

ALTER TABLE ChildTable
  ADD FOREIGN KEY (Id)
    REFERENCES ParentTable (Id) ON DELETE CASCADE

И не надо процедур

[Dj_DeVaIs]

Сообщение от Аватар

ALTER TABLE ChildTable
  ADD FOREIGN KEY (Id)
    REFERENCES ParentTable (Id) ON DELETE CASCADE

И не надо процедур

ParentTable - это что?

[Аватар]

Имя таблицы, и ChildTable. Id - имя поля

[Dj_DeVaIs]

Безымянный.jpg

вот что пишет delphi.

вызываю процедуру вот так
var id_komp:string;
begin
id_komp:=QuotedSTR(DBComboBox1.Text );
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('exec arxivdelet '+id_komp);
ExecSQL;
end;

[Аватар]

Вообще-то в дельфи ничего делать не нужно - при таком определении внешнего ключа в базе записи удалятся автоматически при удалении родительской записи