Discussion :

[Baptiste443]

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 :


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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[McM]

Ce commentaire est faux

-- 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bloc grand-parent qui catche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vanagreg]

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.

[Waldar]

Et pourquoi un déclencheur update or delete ?

[Ikebukuro]

Tu fais un trigger "BEFORE UPDATE OR DELETE".

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

:new.FID_STATUT := 358;

[Baptiste443]

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.

[Ikebukuro]

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