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

[Alexsandr]

Доброго времени суток! Подскажите, как написать правильно хранимую процедуру на удаление связаны таблиц.

Есть 3 таблицы ADODATASET
DataSetStudents (id_s, name)
DataSetPayment (id_p, id_s, data)
DataSetIncident (id_i, id_s, opisanie)
компанент ADOStoredProc1 настроен правильно

Текст процедуры :
ALTER PROCEDURE [dbo].[StudentDelete]
@id_s int
AS
Delete from students

WHERE
id_s=@id_s

на кнопке удалить:

procedure TMainForm.Button9Click(Sender: TObject);

begin
if MessageDlg('Вы уверены, что хотите удалить студента и связанные с ним данные?', mtConfirmation, [mbYes,mbNo],0)=mrYes

then
begin


DM1.SPStudentDelete.Parameters.Para mByName('@id_s').Value:=DM1.Student sDataSetid_s.Value;
try
ConnectForm.ADOConnection1.BeginTra ns;
DM1.SPStudentDelete.ExecProc;
except
ShowMessage('Удаление не получилось');
// Откатываем транзакцию
ConnectForm.ADOConnection1.Rollback Trans;
Exit;
end;
end;

end;

Но нечего не удаляет, что я делаю не так?

[Аватар]

Есть 3 таблицы ADODATASET

ваще таблицы в базе, а не в датасетах

Настрой каскадное удаление в связях между таблицами в базе и ни какого триггера не потребуется. Ну а коль триггера захотелось, то в триггере на удаление из Students нужно удалять записи из Payment и Incident

[Sciv]

Ну так и пишите:

ALTER PROCEDURE [dbo].[StudentDelete]
@id_s int
AS
Delete from students WHERE id_s=@id_s
Delete from Payment WHERE id_s=@id_s
Delete from Incident WHERE id_s=@id_s

если же Вам не нужно удалять, а только чистить поле s_id в остальных таблицах то вместо двух делетей нужно:

update Payment set id_s = null where id_s = @id_s
update Incident set id_s = null where id_s = @id_s

Но чтобы это сработало - требуется, чтобы поле id_s в этих таблицах было NULLABLE


Если у Вас маленькая БД и на ключи из Payment И incident больше никакие таблицы не завязаны - этого хватит. А по хорошему - нужно было создавать таблицы с внешним ключом ON DELETE CASCADE - тогда удаление в студентсах потащило бы за собой каскад соответствующих удалений в других таблицах, где id_s прописан как внешний ключ.

Ещё вариант реализации удаления: на основе триггеров. Создаёте для students триггер AFTER_DELETE и в нём реализуете удаление по s_id из других таблицы. В свою очередь для остальных таблиц штампуете такие же триггеры, удаляющие данные по их ключам. Но по сути - это тот же каскад, только сделанный вручную.

[Alexsandr]

каскадное удаление в базе есть. В SQL Server Management Studio удаление работает, а как сделать удаление в клиентском приложении?

[Sciv]

Если есть каскад - то когда Вы запустите свою хранимку на удаление из Students - остальное сделает СУБД за Вас.

Или вопрос был - как запустить удаление из клиента?

По идее, даже хранимка для этого не нужна, достаточно простого query или датасета

query1.Close;
query1.SQL.Text := 'Delete from students where s_id = :s_id';
query1.ParamByName('s_id').value := 126;
query1.ExecSQL;

[Аватар]

Дык есть каскадное, зачем триггер? На клиенте просто переоткрой таблицы после удаления студента

[Alexsandr]

ALTER PROCEDURE [dbo].[StudentDelete]
@id_s int
AS
Delete from students WHERE id_s=@id_s
Delete from Payment WHERE id_s=@id_s
Delete from Incident WHERE id_s=@id_s

по этому варианту не работает !?

[Sciv]

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

по этому варианту не работает !?

Он Вам и не нужен, если каскадное удаление настроено. Вашего исходного варианта вполне хватит.

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

На клиенте просто переоткрой таблицы после удаления студента

После удаление не забудьте сделать

[Аватар]

Если есть каскадное, зачем удалять из Payment и Incident? Из них записи СУБД само удалит при удалении студента. На то и каскадное удаление

[Alexsandr]

Помогите кто не будь, не удаляет и всё. Каскадное удаление стоит на
FK_payment_students и FK_incident_students. ПО варианту
ALTER PROCEDURE [dbo].[StudentDelete]
@id_s int
AS
Delete from students WHERE id_s=@id_s
Delete from Payment WHERE id_s=@id_s
Delete from Incident WHERE id_s=@id_s

и обновлении таблиц в клиенте

procedure TMainForm.Button9Click(Sender: TObject);
begin
begin
if MessageDlg('Вы уверены, что хотите удалить студента и связанные с ним данные?', mtConfirmation, [mbYes,mbNo],0)=mrYes

then
begin


DM1.SPStudentDelete.Parameters.Para mByName('@id_s').Value := DM1.StudentsDataSetid_s.Value;

try
ConnectForm.ADOConnection1.BeginTra ns;
DM1.SPStudentDelete.ExecProc;



except
ShowMessage('Удаление не получилось');
// Откатываем транзакцию
ConnectForm.ADOConnection1.Rollback Trans;
exit;
end;
DM1.StudentsDataSet.Close;
DM1.StudentsDataSet.Open;
DM1.IncidentDataSet.Close;
DM1.IncidentDataSet.Open;
DM1.PaymentDataSet.Close;
DM1.PaymentDataSet.Open;
end;

end;
end;