Discussion :

[moulery]

bonjour j'ai cree
une fonction qui sera appellé plus tard dans crystal report

Code :

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

1
2
3
4
5
6
7
8
9
10
FUNCTION TEST_ADHESIONS return CURSEUR_TYPE IS MONCURSEUR CURSEUR_TYPE ;
 
begin
 
OPEN  MONCURSEUR FOR
 
select * from adhesions a;
 
RETURN  MONCURSEUR;
end;

quand je l'appelle sous sql via

Code :

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

select pkg_adhesion.TEST_ADHESIONS   from dual;

j'ai une erreur ORA-00902 que faut t'il faire pour qu'il me renvoie tout?

merci

michel

[orafrance]

MONCURSEUR n'est pas déclaré, il manque un INTO, etc... je te conseille de faire une recherche dans le forum et lire le tuto PL/SQL avant de continuer

PS : merci de respecter les régles du forum

Edit : pour info : http://sheikyerbouti.developpez.com/...record_set.htm

[moulery]

si il etait declare

<code>
TYPE CURSEUR_TYPE IS REF CURSOR;
</code>


je veux recuperer tous les champs de ma table

et quand je l'appelle via sql erreur ORA-00902

le dual a t'il des problemes?

je veux recuperer mes donnees sous la forme SELECT pkg_adhesion.TEST_ADHESIONS FROM dual;

et non passer par pl/sql

[salim11]

Salut,

Tu peux utiliser Oracle Pipelined Table Functions à partir de la version 9i

http://www.akadia.com/services/ora_pipe_functions.html

[moulery]

malheuresement j'ai la 8

[mnitu]

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
22
23
24
25
26
 
create or replace package pkg_adhesion Is
 
  TYPE CURSEUR_TYPE IS REF CURSOR;
 
  FUNCTION TEST_ADHESIONS RETURN CURSEUR_TYPE;
 
end;
/
 
create or replace package body pkg_adhesion Is
  FUNCTION TEST_ADHESIONS RETURN CURSEUR_TYPE 
  IS 
 
  MONCURSEUR CURSEUR_TYPE; 
 
  begin
    OPEN MONCURSEUR FOR SELECT * FROM scott.emp;
 
    RETURN  MONCURSEUR;
 
  end;
end;
/
 
SELECT pkg_adhesion.TEST_ADHESIONS   FROM dual;

testé sur Oracle 10

[moulery]

Merci mais sous oracle 8 cela ne marche pas
Michel
y'a t'il un autre moyen

[orafrance]

c'est tout simplement impossible avant la 9

[mnitu]

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
22
23
24
25
26
27
28
29
30
 
sqlplus mni/mni
 
SQL*Plus: Release 8.1.7.0.0 - Production on Ma Nov 13 17:08:55 2007
 
(c) Copyright 2000 Oracle Corporation.  All rights reserved.
 
 
Connected to:
Oracle8i Enterprise Edition Release 8.1.7.4.0 - Production
With the Partitioning option
JServer Release 8.1.7.4.0 - Production
 
SQL> var c refcursor
SQL> exec :c := pkg_adhesion.TEST_ADHESIONS;
 
PL/SQL procedure successfully completed.
 
SQL> print c
 
     EMPNO ENAME      JOB              MGR HIREDATE        SAL       COMM
---------- ---------- --------- ---------- -------- ---------- ----------
    DEPTNO
----------
      7369 SMITH      CLERK           7902 17/12/80        800
        20
 
      7499 ALLEN      SALESMAN        7698 20/02/81       1600        300
        30
...

[orafrance]

refcursor existe dans SQL*Plus mais est-ce qu'il existe en PL/SQL (le langage et non le client) ? Je crains que non

[mnitu]

refcursor existe dans SQL*Plus mais est-ce qu'il existe en PL/SQL (le langage et non le client) ? Je crains que non

Je pense que vous cherchez midi à quatorze heure. Et voilà la preuve

Code :

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

1
2
3
4
5
6
select sysdate from dual

SYSDATE
-------------------
14/11/2007 14:00:00

C’est une blague, ne le prenez pas au sérieux. Je sent que nous deux on va devenir amis.

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
22
23
24
25
26
27
28
29
30
 
sqlplus mni/mni
 
SQL*Plus: Release 8.1.7.0.0 - Production on Me Nov 14 14:00:29 2007
 
(c) Copyright 2000 Oracle Corporation.  All rights reserved.
 
 
Connected to:
Oracle8i Enterprise Edition Release 8.1.7.4.0 - Production
With the Partitioning option
JServer Release 8.1.7.4.0 - Production
 
SQL> set serveroutput on
SQL>Declare 
  crs pkg_adhesion.CURSEUR_TYPE;
  rEmp scott.emp%rowtype;
Begin
  crs := pkg_adhesion.TEST_ADHESIONS;
  Loop
    Fetch crs Into rEmp;
    Exit When crs%NOTFOUND;
    dbms_output.put_line('EmpNo:'||To_Char(rEmp.EmpNo)||' Nom:'||rEmp.EName);
  End Loop; 
End; 
/
EmpNo:7369 Nom:SMITH
EmpNo:7499 Nom:ALLEN
EmpNo:7521 Nom:WARD
…

[orafrance]

C’est une blague, ne le prenez pas au sérieux. Je sent que nous deux on va devenir amis.

Pas de problème

En effet, je croyais que ref cursor était une nouveauté 9... on s'y retrouve plus avec toutes ces versions

J'ai même trouvé un exemple qui répond à la question : http://www.oracle-base.com/articles/...Recordsets.php