Discussion :

[lunab54]

Bonsoir,

voilà j'ai pas mal de table qui doive faire l'objet d'un trigger qui execute tjrs le même raisonnement c'est à dire calculer 3 valeurs pour mettre dans 3 champs.

le calcul de ces trois valeurs est complexe, et nécessite de temps en temps des ajustements assez fin.

aussi j'aurai souhaité faire un trigger colonne qui appelle une fonction "myfunction(myvalue)" qui renverrait mes 3 valeurs

mais là problème comment faire pour que ma fonction renvoit 3 valeurs,

VARRAY serait il une bonne solution ?

merci de vos conseil

Luna

[McM]

C'est quoi pour toi un trigger colonne ?
Sinon, utilise une procédure avec 3 paramètres OUT

Code :

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

CREATE PROCEDURE MyProc( myvalue IN NUMBER, ret1 OUT NUMBER, ret2 OUT VARCHAR2, ret3 OUT DATE) IS ...

[lunab54]

Ben un trigger colonne pour moi c'est un trigger qui déclenche sur la mise à jour d'une colonne

merci

Luna

[Garuda]

Sinon tu peux aussi faire un "record" dans un package

Code :

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

1
2
3
4
5
6
7
8
9
 
Create or replace pkgtest as
 TYPE t_rec_test IS RECORD (
      valeur1 NUMBER,
      valeur2 VARCHAR2(32),
      valeur3 DATE
   );
 Function MyFunc( myvalue IN NUMBER) RETURN t_rec_test;
end pkgtest;

un fonction qui renvoie ton record

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
CREATE OR REPLACE PACKAGE BODY pkgtest
IS
   FUNCTION myfunc (myvalue IN NUMBER)
      RETURN t_rec_test
   IS
      v_rec_test   t_rec_test;
   BEGIN
      ....
      RETURN v_rec_test;
   END myfunc;
END pkgtest;

et DAns ton trigger

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
CREATE OR REPLACE TRIGGER matable_air
   AFTER INSERT
   ON matable
   FOR EACH ROW
DECLARE
   v_rec_test   pkgtest.t_rec_test;
BEGIN
   ....
   v_rec_test := pkgtest.myproc (:NEW.champ);
   :NEW.a := v_rec_test.valeur1;
   :NEW.b := v_rec_test.valeur2;
   ....
END;

[McM]

C'est un peu sortir la grosse artillerie pour rien.

Sauf si la fonction est super compliquée, et que les données d'entrées sont souvent identiques, alors oui, tu peux tester des valeurs de session, et ne faire la fonction que si les données d'entrée ont changé.

[Garuda]

C'est un peu sortir la grosse artillerie pour rien.

Oui (quoique ), mais en général, j'essaye d'eviter les paramètres en OUT !
De plus tu peux eventuellement rajouter des valeurs sans avoir à changer la déclaration de ta fonction et tous les appels à cette dernière.
Aprés, ca dépend de ta facon de programmer !
Nota : Pour le changement de valeur de certaines colonnes, on peut utiliser

Code :

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

1
2
3
4
5
6
CREATE OR REPLACE TRIGGER matable_air
   AFTER UPDATE OF champ1,champ2
   ON matable
   FOR EACH ROW
DECLARE

Ou la clause WHEn dans la déclaration de ton trigger

[lunab54]

Euh... suis un peu perdu ca va trop vite pour moi, et comme je suis pas trés à l'aise avec les packages et procédures...

je me suis repenché sur fonction et varray et à partir de ces 2 liens :

http://www.oracle.com/technology/sam...ray/index.html

et

http://www.developpez.net/forums/sho...ghlight=varray

j'ai mis ca au point :

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
CREATE OR REPLACE TYPE varray_test is VARRAY(3) OF number;
 
CREATE OR REPLACE  FUNCTION "GET_VARRAY_TEST" 
(
 V number
)
return varray_test
as
tab varray_test :=varray_test();
begin
tab.extend;
tab(1):= v * 3;
tab.extend;
tab(2):= v /3;
tab.extend;
tab(3):= v * v;
return tab;
end;

puis pour tester :

Code :

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

1
2
3
4
5
select get_varray_test(5) from dual;
 
GET_VARRAY_TEST(5)
--------------------------------------
VARRAY_TEST(15, 1.66666667, 25)

et encore tester ds sql+ pour plus tard mettre mon trigger en place sur ce principe :

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
 
set serveroutput on;
DECLARE
	   TAB varray_test := varray_test();
BEGIN
execute immediate 'select get_varray_test(5) from dual' into tab;
	 FOR I IN 1..3
	 LOOP
	 	 DBMS_OUTPUT.PUT_LINE(TAB(I));
	 END LOOP;
END;
 
15
1.66666666666666666666666666666666666667
25
 
PL/SQL procedure successfully completed.

ce qui donne un trigger :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
CREATE OR REPLACE TRIGGER "MYSCHEMA"."MYTRIGGER" 
    BEFORE
UPDATE OF "MYFIELD" ON "MYSCHEMA"."MYTABLE" FOR EACH ROW DECLARE
 myvar varray_test :=  varray_test();
BEGIN
 
execute immediate 'select get_varray_test(:1) from dual' into myvar using :NEW.MYFIELD;
 
:NEW.MYFIELD1 := myvar(1);
:NEW.MYFIELD2 := myvar(2);
:NEW.MYFIELD3 := myvar(3);
 
END;

en dernier ne pas oublier les privilèges execute type et execute fonction si le type utilisateur et la fonction ne sont pas ds le même schéma que le trigger je me suis fait avoir...

si vous aves des critiques constructives je suis preneur

Merci à vous ca me fait vraiment avancer !

Luna

[Garuda]

Inutile de faire un 'execute immediate'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
CREATE OR REPLACE TRIGGER "MYSCHEMA"."MYTRIGGER" 
    BEFORE
UPDATE OF "MYFIELD" ON "MYSCHEMA"."MYTABLE" FOR EACH ROW 
DECLARE
myvar varray_test :=  varray_test();
BEGIN
myvar:=get_varray_test(:NEW.MYFIELD);

:NEW.MYFIELD1 := myvar(1);
:NEW.MYFIELD2 := myvar(2);
:NEW.MYFIELD3 := myvar(3);

END;

[lunab54]

Merci, je savais pas

c'est effectivement plus propre

Luna