Discussion :

[Patrick09]

Bonjour,
Je doit réaliser un trigger qui doit vérifier l'existence ou nom d'une valeur dans une table et renvoyer un message d’erreur
Je suis partit dans la rédaction du script ci dessous:

Code SQL :

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
21
22
23
24
25
26
create or replace TRIGGER VERIF_NC
  BEFORE UPDATE OF ST_ETA ON BT
 for each row
DECLARE 
 CURSOR udi_nc IS
 select gro.id_numgro  from BT 
left outer join EQU on BT.ID_NUMEQU = equ.id_numequ
left outer join GRO on EQU.ID_NUMGRO = gro.id_numgro
where BT.ST_ETA ='NC';
 
udi char(50);
numbt char(50);
 
 
BEGIN
open udi_nc;
numbt := :new.id_numbt;
select gro.id_numgro INTO udi from  BT,EQU,GRO 
where BT.ID_NUMEQU = equ.id_numequ and 
 EQU.ID_NUMGRO = gro.id_numgro and BT.ID_NUMBT = numbt;
 
if udi IN udi_nc then
raise_application_error (- 20002, "NC en cours");
END IF;
close udi_nc;
END;

Je pense que cela bloque à la comparaison entre ma variable udi et les données du cuseur udi_nc.
C'est la première fois que j'utilise un curseur car l'utilisation d'une sous requête ne marche pas dans le trigger.
Pour info je débute en PL/SQL mais cela doit se voir!

[Ikebukuro]

Salut,
Quand tu lances ton Update, tu as un message d'erreur à l'écran ou bien il ne s'affiche rien à l'écran et l'Update est exécuté?

Je ne suis pas un pro en PL/SQL mais quand je lis que tu as un test "if udi IN udi_nc then", à quel moment le cursor udi_nc est exécuté et le résultat du SELECT du cursor est stocké dans un tableau?

Il faudrait plustôt faire :
- exécuter le curseur
- stocker le résultat dans une variable de type tableau
- comparer le contenu de la variable udi avec le contenu du tableau

[Patrick09]

J'ai directement un message d'erreur lors de la compilation du trigger.

Il faudrait plutôt faire :
- exécuter le curseur
- stocker le résultat dans une variable de type tableau
- comparer le contenu de la variable udi avec le contenu du tableau

Je suis d'accord avec toi ! Mais quelle serait la syntaxe à respecter ?

[Ikebukuro]

Merci de nous donner le message d'erreur, cela va nous orienter vers la solution.

J'ai trouvé ceci sur le net; il faut bien sur l'adapter à ton curseur.

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
21
22
23
24
25
26
27
28
CREATE OR REPLACE TRIGGER TRG_TABLE_BI
BEFORE INSERT
ON TABLE --Remarque Ikebukuro : sa table de test s'appelle TABLE; 
FOR EACH ROW
DECLARE
    CURSOR cur_list IS
        SELECT emp, name, day, salary, id,phone
        FROM TABLE NATURAL JOIN OTHERTABLE
        WHERE emp = :NEW.emp AND name = :NEW.name AND id = :NEW.id;
 
    curChoice cur_list%ROWTYPE; -- Remarque Ikebukuro : déclaration d'une variable qui va stocker le résultat du curseur. Attention, dans cette variable tu auras un enregistrement à la fois, pas l'ensemble des lignes retournées par le curseur.
 
BEGIN
    OPEN cur_list; --Remarque Ikebukuro : ouverture du curseur
    LOOP
        FETCH cur_list INTO curChoice; --Remarque Ikebukuro :ici tu exécutes le curseur et stockes le résultat dans la variable
 
-- Remarque Ikebukuro c'est ici que tu dois mettre ton test "if udi IN udi_nc" mais je ne penses pas que ça marchera avec cette syntaxe. 
-- Un "if udi = udi_nc" marchera peut-être mieux; à tester :-)
        EXIT WHEN cur_list%NOTFOUND; --Remarque Ikebukuro : on sort de la boucle quand le cureur ne ramène plus rien
        dbms_output.put_line(curchoice.id);
        dbms_output.put_line(curChoice.emp);
        dbms_output.put_line(curchoice.name);
    END LOOP;
    CLOSE cur_list;  --Remarque Ikebukuro : fermeture du curseur
 
END;
/

[vanagreg]

Bonjour,

Plusieurs problèmes dans ton trigger. Déjà, tu ne peux pas interroger la table en train d'être modifiée (erreur mutating table). De plus, le message dans le raise_application_error se place entre apostrophes, pas entre guillemets.
La seule solution pour ce trigger est d'utiliser le pragma autonomous_transaction, mais ce n'est pas recommandé car il ne verra pas les changements liés à d'autres transactions.

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
21
create or replace trigger verif_nc
before update of st_eta on bt
for each row
declare
 pragma autonomous_transaction;
 cnt number;
 
begin 
 select count(*)
 into cnt
 from bt
 join equ on (equ.id_numequ = bt.id_numeq)
 join gro on (gro.id_numgro = equ.id_numgro)
 where bt.id_numbt = :new.id_numbt
   and bt.st_eta = 'NC'
   and rownum = 1;
 
 if cnt = 1 then
  raise_application_error (- 20002, 'NC en cours'); 
 end if;
end;

Le mieux c'est de vérifier directement dans l'update qui a lieu sur la table BT (et qui donc déclenche le trigger).

[Patrick09]

Merci Beaucoup pour ta réponse