Trigger invalidant la donnée au lieu de la supprimer

Bonjour,

j'essaie de de créer un trigger qui invalide la donnée au lieu de la supprimer, mais j'ai beau retourner ça dans tous les sens, je ne vois pas comment faire.

Voici les tables concernées :
Pièce jointe 591145

L'objectif est que si un utilisateur essaie de supprimer un objet dans TA_TABLE_1, plutôt que d'obtenir le message d'erreur lui disant que la suppression est impossible en raison d'un enregistrement fils existant (ce qu'il ne comprendra pas), le champ FID_STATUT de l'objet obtienne la valeur 358 afin d'invalider cet objet.

J'ai pensé au code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

create or replace TRIGGER B_DXX_TEST BEFORE UPDATE OR DELETE ON TA_TABLE_1 FOR EACH ROW DECLARE BEGIN   BEGIN -- Ce bloc permet de bloquer la suppression de l'objet en permettant au reste du code d'être exécuté dans le bloc principal IF DELETING THEN RAISE_APPLICATION_ERROR(-20001, 'Suppression impossible, l''objet va être mis en "invalide".'); END IF; END;   -- Passage de l'objet en "invalide" :new.FID_STATUT := 358;   EXCEPTION WHEN OTHERS THEN mail.sendmail('toto@gmail.com',SQLERRM,'ERREUR TRIGGER - TA_TABLE_1','TRIGGER@gmail.com'); END;

---

Le trigger est compilé et quand je tente de supprimer l'objet depuis mon application, la suppression est empêchée et j'obtiens un mail avec mon message d'erreur.
Par contre, le champ FID_STATUT, lui, n'est pas mis à jour et je ne comprends pas pourquoi. Quelqu'un pourrait-il éclairer ma lanterne ?

Merci d'avance.

Ce commentaire est faux

Citation:

---

-- Ce bloc permet de bloquer la suppression de l'objet en permettant au reste du code d'être exécuté dans le bloc principal

---

Code:

---

1 2 3 4

IF DELETING THEN RAISE_APPLICATION_ERROR(-20001, 'Suppression impossible, l''objet va être mis en "invalide".'); END IF; END;

---

Un RAISE_APPLICATION_ERROR va remonter l'erreur au bloc parent.. qui ne catche rien (BEGIN ... END; sans exception), donc ça remonte au bloc grand-parent qui catche

Ce code n'est donc jamais exécuté

Code:

---

1 2	-- Passage de l'objet en "invalide" :new.FID_STATUT := 358;

---

Bloc grand-parent qui catche

Code:

---

1 2 3 4

EXCEPTION WHEN OTHERS THEN mail.sendmail('toto@gmail.com',SQLERRM,'ERREUR TRIGGER - TA_TABLE_1','TRIGGER@gmail.com'); END;

---

Bonjour,
C'est normal quand tu fais RAISE_APPLICATION_ERROR tu transmets l'exécution au gestionnaire d'erreur "le plus proche", ici c'est le bloc OTHERS, donc ta ligne de changement de statut n'est pas exécutée. Il ne faut pas faire planter le trigger si tu veux que la transaction aboutisse et donc que tes données soit commitées.

Et pourquoi un déclencheur update or delete ?

Tu fais un trigger "BEFORE UPDATE OR DELETE".

Ce code ne s'exécute que pour le DELETE

Code:

---

1 2	IF DELETING THEN RAISE_APPLICATION_ERROR(-20001, '

---

Ce code sera exécuté pour un DELETE et un UPDATE mais est-ce ce que tu veux?

Code:

---

:new.FID_STATUT := 358;

---

J'avais mis BEFORE UPDATE OR DELETE parce que sinon j'obtenais une erreur, mais l'idée est qu'il ne se déclenche que pour un DELETE, donc effectivement "BEFORE DELETE" suffit.

Merci à tous pour vos explications c'est beaucoup plus clair ! ;)
Effectivement je faisais fausse route.

Si tu fais un BEFORE DELETE, alors pas besoin de mettre IF DELETING.