TRIGGER BEFORE INSERT

Version imprimable

Bonjour,

je dois créer un trigger qui me permet de renseigner un champ supplémentaire dans la ligne que je dois inserer.

Pb : il ne connaît pas la variable new.

Une idée. Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CREATE or REPLACE TRIGGER SET_SRV_LVL_ON_INC
BEFORE INSERT
    ON INCIDENT
DECLARE
   srv_level QTABLE.QT_DES%TYPE;
BEGIN
    IF new.ASSET_EQUIPEMENT IS NOT NULL THEN
		SELECT QT_DES INTO srv_level
	 	FROM
	    		POSTE_DE_TRAVAIL T1, QTABLE T2
	 	WHERE 
			LTRIM(RTRIM(T1.CHPAR11))=LTRIM(RTRIM(T2.QT_CODE(+))) AND
			T1.CODE_W = new.ASSET_EQUIPEMENT;
	    IF srv_level IS NOT NULL THEN
		   new.COMP_FIELD65 := srv_level;
	    END IF;
    END IF;
END;

Merci.

22/10/2009, 14h34
xdescamp

Bonjour,
La bonne syntaxe n'est pas new.ASSET_EQUIPEMENT (par ex.), mais :new.ASSET_EQUIPEMENT.
22/10/2009, 14h55
sfoggy

J'ai testé et voilà les erreurs que j'obtiens

A partir de SQL+
ERREUR à la ligne 1 :
ORA-04082: références NEW ou OLD interdites dans déclencheurs niveau table

ou lorsque je passe par OEM
Paramètre IN ou OUT absent dans l'index ::1

Merci
22/10/2009, 15h08
GoLDoZ

La recherche est ton amie.

Citation:

Le problème est tout autre : vous avez fait un statement trigger et non un row trigger !
il faut rajouter "FOR EACH ROW" pour que les variables :NEW et :OLD aient un sens !

Si on fait un :

Code:

UPDATE inscription SET .. WHERE ...

Et que l'ordre ci-dessus impacte 5000 lignes, un trigger "FOR EACH ROW" sera appellé 5000 fois, tandis qu'un statement trigger ne sera appellé qu'une seule fois car il n'y a eu qu'une seule instruction.
22/10/2009, 15h24
sfoggy

Ce que je souhaites faire c'est seulement controler la ligne que je veux insérer.
Comment accéder aux données dans ce cas alors?

Merci
22/10/2009, 15h29
GoLDoZ

Je viens de vous donner la réponse, un trigger "FOR EACH ROW".
22/10/2009, 15h33
sfoggy

Ok, merci

Je viens de tester le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CREATE or REPLACE TRIGGER SET_SRV_LVL_ON_INC
BEFORE INSERT
    ON INCIDENT
FOR EACH ROW
DECLARE
   srv_level QTABLE.QT_DES%TYPE;
BEGIN
    IF :new.ASSET_EQUIPEMENT IS NOT NULL THEN
		SELECT QT_DES INTO srv_level
	 	FROM
	    		POSTE_DE_TRAVAIL T1, QTABLE T2
	 	WHERE 
			LTRIM(RTRIM(T1.CHPAR11))=LTRIM(RTRIM(T2.QT_CODE(+))) AND
			T1.CODE_W = :new.ASSET_EQUIPEMENT;
	    IF srv_level IS NOT NULL THEN
		   :new.COMP_FIELD65 := srv_level;
	    END IF;
    END IF;
END;

Compile à partir de SQL+ mais pas dans OEM.
En tout cas mon application plante au moment de l'insertion.
Une idée pour mettre à jour le champ COMP_FIELD65 ?

Merci

22/10/2009, 15h52
GoLDoZ

Quel est le message d'erreur?
22/10/2009, 15h53
xdescamp

Citation:

Envoyé par sfoggy

En tout cas mon application plante au moment de l'insertion.

Un message d'erreur peut-être pour qu'on puisse éventuellement avoir une idée?

Vous faites un SELECT INTO sans gérer d'exception. Vu que vous testez la nullité de srv_level, si la requête précédente ne ramène rien, le trigger plante.
Il faut ajouter une exception.

Code:

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
CREATE OR REPLACE TRIGGER set_srv_lvl_on_inc
   BEFORE INSERT
   ON incident
   FOR EACH ROW
DECLARE
   srv_level   qtable.qt_des%TYPE;
BEGIN
   IF :NEW.asset_equipement IS NOT NULL
   THEN
      BEGIN
         SELECT qt_des
           INTO srv_level
           FROM poste_de_travail t1, qtable t2
          WHERE LTRIM (RTRIM (t1.chpar11)) = LTRIM (RTRIM (t2.qt_code(+)))
            AND t1.code_w = :NEW.asset_equipement;
 
         IF srv_level IS NOT NULL
         THEN
            :NEW.comp_field65 := srv_level;
         END IF;
      EXCEPTION
         WHEN NO_DATA_FOUND
         THEN
            -- srv_level est null
      END;
   END IF;
END;

22/10/2009, 15h58
sfoggy

Voilà,

ORA-04098: Déclencheur 'QPOPE.ONERA_SET_SRV_LVL_ON_INC' non valide.

Trigger non compilé .

Merci
22/10/2009, 16h43
xdescamp

Sous SQL+, au moment de la compilation, il a du vous dire que le trigger était créé avec des erreurs de compilation. Pour avoir ces erreurs, après la compilation du trigger, lancer la commande:

Code:

SHOW ERROR TRIGGER QPOPE.ONERA_SET_SRV_LVL_ON_INC

Non, aucun message d'erreur n'est affiché au moment de la création

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
SQL> CREATE or REPLACE TRIGGER SET_SRV_LVL_ON_INC
  2  BEFORE INSERT
  3      ON INCIDENT
  4  FOR EACH ROW
  5  DECLARE
  6     srv_level QTABLE.QT_DES%TYPE;
  7  BEGIN
  8      IF :new.ASSET_EQUIPEMENT IS NOT NULL THEN
  9    SELECT QT_DES INTO srv_level
 10     FROM
 11         POSTE_DE_TRAVAIL T1, QTABLE T2
 12     WHERE 
 13     LTRIM(RTRIM(T1.CHPAR11))=LTRIM(RTRIM(T2.QT_CODE(+))) AND
 14     T1.CODE_W = :new.ASSET_EQUIPEMENT;
 15       IF srv_level IS NOT NULL THEN
 16       :new.COMP_FIELD65 := srv_level;
 17       END IF;
 18      END IF;
 19  END;
 20  /

Déclencheur créé.

Merci.