Discussion :

[hatoug]

Bonjour,

j'aurai besoin d'aide concernant la creation d un trigger sur lequel je bloque.
Sur une table, je dois verifier si un champ est supérieur à 1 (update) et à ce moment, je modifie la valeur d un autre champ de la meme table.

Merci de votre aide.

[SheikYerbouti]

Bonjour,

Vous pouvez toujours commencer par lire ceci:
http://sheikyerbouti.developpez.com/pl_sql/?page=Chap6

[hatoug]

Merci,

j ai pu réaliser ceci :
BEGIN
if :NEW.TBLPAG > 1
update usr0001 set usr0001.AVECREP = 'O' where usr0001.TBLLIA = :OLD.TBLLIA
END;



Mais ca ne compile pas.

[SheikYerbouti]

1. veuillez poster le code complet du trigger.
2. si message il y a, merci de le communiquer.

[hatoug]

je l ai modifié :

CREATE TRIGGER INCREASE
AFTER UPDATE ON USR0001
FOR EACH ROW
WHEN (new.TBLPAG > 1)
BEGIN
UPDATE USR0001 SET AVECREP='O'
END;

il ne passe pas à la compilation et il n y a aucune erreur. j utilise Oracle 8.1.7.

[SheikYerbouti]

NEW et OLD doivent être précédés de : (:NEW :OLD)

Pas besoin d'update pour mettre à jour une colonne de l'enregistrement en cours

Code :

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

1
2
3
4
 
Begin
  :NEW.AVECREP := 'O' ;
End;

[hatoug]

j ai remplacé par celui ci :
CREATE TRIGGER INCREASE
AFTER UPDATE ON USR0001
FOR EACH ROW
WHEN (:NEW.TBLPAG > 1)
BEGIN
:NEW.AVECREP := 'O'
END
;

j ai le message d erreur suivant :
WHEN (:NEW.TBLPAG > 1)
*
ERREUR la ligne 4 :
ORA-00920: Oprateur relationnel non valide

[SheikYerbouti]

Votre clause WHEN est incomplète
http://download-west.oracle.com/docs...htm#SQLRF01405

[plaineR]

Il me semble qu'il ne faille pas mettre :new dans la clause when, mais bien new (sans les : ) comme cela était initialement fait.

[hatoug]

j ai supprimé les :, il crée bien le trigger mais avec des erreurs de compilation.

[SheikYerbouti]

Affichez l'erreur avec show_error

de plus, il manque le ; à la fin de l'instruction :NEW.AVECREP := 'O'

[orafrance]

Bonjour,

D'abord, nous ne traitons pas des problèmatique de débugging et te laissons donc l'initiative de corriger tes erreurs.

Par ailleurs, merci d'utiliser les balises CODE comme indiqué dans les régles du forum

Enfin, une lecture plus attentive de la doc devrait te suffire à te corriger seul et ainsi avoir le plaisir d'être autonome

[hatoug]

CREATE OR REPLACE TRIGGER INCREASE
AFTER UPDATE ON USR0001
FOR EACH ROW
WHEN (NEW.TBLPAG > 1)
BEGIN
UPDATE USR0001 SET AVECREP = 'N';
END;

Voici mon nouveau code, mais j ai une erreur de table mutante. Comment contourner ce pb ?

[orafrance]

Voila qui serait mieux :

Code :

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

1
2
3
4
5
6
7
CREATE OR REPLACE TRIGGER INCREASE
  AFTER UPDATE ON USR0001
   FOR EACH ROW
   WHEN (NEW.TBLPAG > 1)
   BEGIN
:NEW.AVECREP := 'N';
 END;

[SheikYerbouti]

BEGIN
UPDATE USR0001 SET AVECREP = 'N';
END;

Vous ne lisez donc pas les réponse que l'on vous fourni ?

[hatoug]

si, mais ca ne marche pas.
lorsque je crée ce trigger, j ai le message suivant :

Code :

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

1
2
3
4
5
6
7
8
 
CREATE OR REPLACE TRIGGER INCREASE
  AFTER UPDATE ON USR0001
   FOR EACH ROW
   WHEN (NEW.TBLPAG > 1)
   BEGIN
:NEW.AVECREP := 'N';
 END;

ORA-04084: impossible de changer les valeurs NEW pour ce type de dclencheur

c est pour cela que j ai remplace par le update, qui pose un probleme de table mutante.

[plaineR]

et pourquoi fais-tu un trigger after update et non before update ?

[hatoug]

que je fasse un before ou un after, j ai le meme probleme

[orafrance]

http://ora-04084.ora-code.com/

Code :

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

1
2
3
4
5
6
7
CREATE OR REPLACE TRIGGER INCREASE
  BEFORE UPDATE ON USR0001
   FOR EACH ROW
   WHEN (NEW.TBLPAG > 1)
   BEGIN
:NEW.AVECREP := 'N';
 END;

[plaineR]

que je fasse un before ou un after, j ai le meme probleme

Là je suis sceptique :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
SQL> CREATE OR REPLACE TRIGGER INCREASE
  2    BEFORE UPDATE ON USR0001
  3     FOR EACH ROW
  4     WHEN (NEW.TBLPAG > 1)
  5     BEGIN
  6  :NEW.AVECREP := 'N';
  7   END;
  8  /
Trigger created.