Récupérer plusieurs valeurs

Version imprimable

02/08/2011, 15h17
MarcLa

Récupérer plusieurs valeurs

bonjour,
je recherche comment récuperer plus d'1 valeur en retour dans un package/package body sous Oracle developer 1.2.1 soit par function ou par cursor en PL/SQL.
la déclaration objet n'est pas acceptée.
exemple : à partir d'un code postal, valeurs retournées Departement, ville
Merci de votre aide.

Pourquoi ne pas créer une procédure avec 2 paramètres de type OUT ? :)

Sinon, tu peux retourner un TYPE créer préalablement, cf http://forums.oracle.com/forums/thre...hreadID=428977

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DECLARE
  TYPE t_myresult IS RECORD (myres1 number, myres2 number);
  myresult   t_myresult;
 
  x number := 10;
  y number := 3;
 
  FUNCTION myfunc (p_val1 IN NUMBER, p_val2 IN NUMBER) RETURN t_myresult IS
    v_res t_myresult;
  BEGIN
    v_res.myres1 := ROUND(p_val1 / p_val2);
    v_res.myres2 := p_val1 - (v_res.myres1 * p_val2);
    RETURN v_res;
  END;
BEGIN
  myresult := myfunc(x,y);
  DBMS_OUTPUT.PUT_LINE('X='||x||'; Y='||y||'; X/Y='||myresult.myres1||' remainder '||myresult.myres2);
END;

02/08/2011, 16h31
MarcLa

Merci pour la réponse, cela fonctionne.
Mais pour inclure dans un package :
je mets dans le package les déclarations de type et de function
dans le body la function
, je compile sans erreur, mais quand je je lance le select pour récupérer les valeurs, j'ai l'erreur :
identificateur non valide
j'ai du passer à coté de quelquechose ?
02/08/2011, 21h22
McM

avec le code on pourra t'aider.

voici le code :
la compilation du package se passe bien.
je devrais utiliser un cursor plutot qu' une fonction ?

merci de votre aide.

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
28
29
30
31
32
33
34
35
create or replace package P1 is
 
--fonction Dept_ESO : retourne le n° de dept et le libelle de l'Etab
 
type DeptEso is record ( Departement varchar2(2), Libelle_Etab varchar2(32)); 
 
Function Dept_ESO (xEtab varchar2) return DeptEso;
 
end P1;
 
 
 
 
 
 
create or replace package body P1 is
 
/*
--=====Departement de l'ESO====
*/
 
Function Dept_ESO (xEtab varchar2) return DeptEso is r DeptEso;
begin
 select substr(mgadr.MGADR_CODPOS, 1, 2), 
        paesi.paesi_lib                 
 from paesi, paead, mgadr
 where paesi.paesi_codext = xEtab
 and paead.paesi_num = paesi.paesi_num
 and mgadr.mgadr_num = paead.mgadr_num;
 
return r;
 
end Dept_ESO;
 
end P1;

Si tu n'as qu'une seule ligne, non, pas de curseur.
Par contre un select en plsql doit toujours être into quelque chose.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
FUNCTION Dept_ESO (xEtab varchar2) RETURN DeptEso IS 
r DeptEso;
begin
 SELECT substr(mgadr.MGADR_CODPOS, 1, 2), paesi.paesi_lib                 
into r.departement, r.Libelle_Etab
 FROM paesi, paead, mgadr
 WHERE paesi.paesi_codext = xEtab
 AND paead.paesi_num = paesi.paesi_num
 AND mgadr.mgadr_num = paead.mgadr_num;
 
RETURN r;
 
end Dept_ESO;

05/08/2011, 09h54
MarcLa

bonjour,
merci pour vos réponses.
la dernière question : comment dans le package, créer une procédure qui fait appel à la fonction pour insérer dans une table le Dept et le libellé ?

d'avance merci et bon week end.