Appel d'une procédure dynamique

Version imprimable

26/05/2008, 17h39
bebert13

Appel d'une procédure dynamique
Voilà mon problème,

j'ai une procédure principale avec un paramètre qui doit appeler des procédures de traitement de manière dynamique. Ces procédures de traitement sont nommées sous la forme
Procedure_[monParametre]. Que dois-je faire ?

Exemple :
Code:

1 2 3 4 5 6 7 8 procedure maProcedurePrincipale (param in out varchar2) begin -- MonTraitementStandard... -- Appel de la procédure spécifique en fonction de param Procedure_||param; end;
J'ai essayé de passer par des execute immediate mais ça ne marche que pour des requêtes apparemment...

Help me ! Waiting for answers !

PS : Vi vi j'ai fait recherche Google et Fofo avant :D
26/05/2008, 17h58
Invité

Citation:

Envoyé par bebert13

J'ai essayé de passer par des execute immediate mais ça ne marche que pour des requêtes apparemment...

Non, c'est la solution et ça marche aussi avec les procédures stockées.
http://sheikyerbouti.developpez.com/execute_immediate/

Montre nous ce que tu as testé.

Salut,

Essaie ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
BEGIN
   FOR rec_proc IN (SELECT object_name
                      FROM all_objects
                     WHERE object_type LIKE 'PROC%'
                       AND object_name = 'PROCEDURE_'||UPPER(param)       
                       AND owner = 'SCOTT') -- tu changes le  owner 
   LOOP
       BEGIN 
          execute immediate ' begin '||rec_proc.object_name ||';  end ;';
          EXCEPTION 
          WHEN OTHERS THEN 
          DBMS_OUTPUT.PUT_LINE(SQLCODE||'-'|| SQLERRM);
        END;
   END LOOP;
END;

Citation:

Envoyé par salim11

Salut,

Essaie ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
BEGIN
   FOR rec_proc IN (SELECT object_name
                      FROM all_objects
                     WHERE object_type LIKE 'PROC%'
                       AND object_name = 'PROCEDURE_'||UPPER(param)       
                       AND owner = 'SCOTT') -- tu changes le  owner 
   LOOP
       BEGIN 
          execute immediate ' begin '||rec_proc.object_name ||';  end ;';
          EXCEPTION 
          WHEN OTHERS THEN 
          DBMS_OUTPUT.PUT_LINE(SQLCODE||'-'|| SQLERRM);
        END;
   END LOOP;
END;

Salut Salim,

A quoi ça sert le When Others ici ? T'a peur que si une exception arrive elle ne s'affiche pas ? :lol:

26/05/2008, 19h59
salim11

Citation:

Envoyé par mnitu

Salut Salim,

A quoi ça sert le When Others ici ? T'a peur que si une exception arrive elle ne s'affiche pas ? :lol:

Salut mnitu,

Il faut toujours être prudent :mouarf:, dans ce cas oui on n'a pas besoin de la partie exception, mais c'est utile pour le cas général (procédures avec paramètres)

Salut,

Pour exécute uniquement la procédure appelée

Code:

1
2
3
4
5
6
7
8
9
 
CREATE OR REPLACE PROCEDURE maProcedurePrincipale  ( PARAM IN  VARCHAR2) IS 
BEGIN
   EXECUTE IMMEDIATE ' begin  PROCEDURES_'||PARAM ||';  end ;';
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line (SQLCODE || '-' || SQLERRM);
END;

26/05/2008, 20h21
mnitu

Salut Salim,

Il ne faut pas trop en faire :lol:

L'exemple que tu propose contient le bug numéro 1 de la programmation PL/SQL : WHEN OTHERS THEN NULL; (c'est vrai ici dans une forme élaboré).
Il suffit de faire un set serveroutput off pour comprendre ce que je veut dire.
De plus avant la version 10g il sera plus prudent :lol: d'ajouter un SubStr avant de passer le paramètre à la procédure Put_Line.

Bref, la réglé d'or ignorée par pas mal du monde est:
en général si tu ne sait pas quoi faire avec l'exception n'ajoute pas le bloc d'exception.
26/05/2008, 21h07
salim11
Salut,
Oui j'utlise le dbms_output.put_line pour moi seulement, mais au travail, j' écrit toutes les erreurs dans fichier.
Code:

1 2 3 4 5 6 EXCEPTION WHEN OTHERS THEN utl_file.put_line(v_fichier_log,'ERREUR TRAITEMENT : ' || SQLERRM); UTL_FILE.FCLOSE(v_fichier_log);
05/06/2008, 18h57
JerryMouse

Et si jamais la procedure a des paramètres en IN ou OUT?