Discussion :

[adrien1]

Bonjour à tous

je dois creer une fonction qui retourne un tableau de record :
mais sqldevelloper me refuse la compilation en disant que j'utilise un type avant sa declaration :

un petit detail : la fonction devra faire partie d'un package.
Je suppose que je devrais le declarer(le type TABLEEMPLOYES) dans la specification?
mais je cree mes fonctions indivduellement puis je bidouillerai pour ensuite faire le package. Comment resoudre ce probleme?

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
FUNCTION LISTEREMPLOYES( pNomPro IN PROJETS.NOMPRO% TYPE)
RETURN TABLEEMPLOYES AS
TYPE TABLEEMPLOYES IS TABLE OF EMPLOYES% ROWTYPE INDEX BY BINARY_INTEGER;
vTableEployes TABLEEMPLOYES;
BEGIN
 
  SELECT * INTO vtableeployes
  FROM EMPLOYES
  WHERE NUMSECU IN (SELECT NUMSECU
                    FROM EMPPRO
                    WHERE NUMPRO IN (SELECT NUMPRO
                                     FROM PROJETS
                                     WHERE NOMPRO = pNomPro));
  RETURN vtableeployes;
  EXCEPTION
  WHEN NO_DATA_FOUND THEN RAISE_APPLICATION_ERROR(-20051,'Personne n est associé a ce projet');
                          RETURN NULL;
  WHEN OTHERS THEN DBMS_OUTPUT.PUTLINE('ERREUR: '||SQLCODE||SQLERRM);
                   RETURN NULL;
END LISTEREMPLOYES;

[fatsora]

Bonjour ,

il y a plusieurs moyens pour y arriver

en adaptant l'exemple de sheikyerbouti

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
27
28
29
30
31
32
33
34
35
36
 
 CREATE OR REPLACE PACKAGE PKG_TEST IS
 
      TYPE TYP_TAB_EMP  IS TABLE OF EMP%ROWTYPE ;
 
 
 
     FUNCTION Affiche_lignes Return TYP_TAB_EMP ;      
 
   END;
   /
 
create or replace package body PKG_test as
    FUNCTION Affiche_lignes Return TYP_TAB_EMP
     IS
       Tlignes PKG_TEST.TYP_TAB_EMP ;
       Cursor C_EMP is Select * From EMP ;
     Begin
       Open C_EMP ;
       Fetch C_EMP BULK COLLECT into Tlignes ;
       Close C_EMP ;
       Return( Tlignes ) ;
     End ;
 
   END;
   /
 
Declare
     Tlignes PKG_TEST.TYP_TAB_EMP ;
    Begin
      Tlignes := PKG_TEST.Affiche_lignes ;
      For i IN Tlignes.first..Tlignes.last Loop
         dbms_output.put_line( Rpad( Tlignes(i).ename, 25 ) || ' --> ' || To_char( Tlignes(i).sal ) ) ;
      End loop ;
    End ;
    /

ou avec des types créés

cf tom kytes http://asktom.oracle.com/pls/asktom/...:1058232381458

ce ne sont que des propositions parmi tant d'autres ...

La suite a toi d'adapter a ton environnement