Close SYS_REFCURSOR dans une procédure

Version imprimable

Bonjour,

j'ai un petit souci de nombre de curseur ouvert dépassé.

Voici ma procédure stockée :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 create or replace PROCEDURE "PAR_SER_PRIX_SELECT_ABONNEMENT" ( idtService IN NUMBER , idPack IN NUMBER , codeClient IN VARCHAR2 , idtEntite IN NUMBER , nbAchat IN NUMBER , curseur OUT SYS_REFCURSOR ) AS BEGIN OPEN curseur FOR SELECT * FROM PAR_SER_PRIX WHERE SPX_IDTSPX = GET_TARIF(idtService, idPack, codeClient, idtEntite, nbAchat); END PAR_SER_PRIX_SELECT_ABONNEMENT;
Comment faire pour fermer le curseur ?

Si je fait un close après ma requête, mon résultat devient vide ....

Merci d'avance

24/01/2012, 11h50
lola06

Bonjour,

Ta syntaxe n'est pas exacte, ce tuto pourra te montrer la bonne écriture.

Tu dois enregistrer tes données dans une variable. Puis fermer ton curseur.
24/01/2012, 11h56
Dark Ryus

Pour retourner une seule colonne, j'ai compris le truc, enfin je crois.

Moi je veux retourner toutes mes colonnes ...

Comment faire ?
24/01/2012, 11h59
lola06

Il existe le type %ROWTYPE qui te permet de récupérer toutes les colonnes d'une table, ce tuto montre son utilisation.

Citation:

%ROWTYPE
référence à une ligne d'une table ou d'un curseur

nom_variable nom_table%ROWTYPE ;

Et du coup je met quoi dans les paramètres de ma procédure sockée ? Car j'ai besoin du retour.

Je viens de faire ça mais j'ai besoin de retourner les données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
create or replace
PROCEDURE "PAR_SER_PRIX_SELECT_ABONNEMENT" 
(
  idtService IN NUMBER 
, idPack IN NUMBER 
, codeClient IN VARCHAR2  
, idtEntite IN NUMBER  
, nbAchat IN NUMBER 
, curseur OUT SYS_REFCURSOR
) AS 
  CURSOR C_EMP(idtService NUMBER, idPack NUMBER, codeClient VARCHAR2, idtEntite NUMBER, nbAchat NUMBER) IS
  SELECT *
  FROM PAR_SER_PRIX 
  WHERE SPX_IDTSPX = GET_TARIF(idtService, idPack, codeClient, idtEntite, nbAchat);
   LR$C_emp C_EMP%ROWTYPE ;
BEGIN
 
  OPEN C_EMP(idtService, idPack, codeClient, idtEntite, nbAchat);
  FETCH C_EMP Into LR$C_emp;
  CLOSE C_EMP;
 
END PAR_SER_PRIX_SELECT_ABONNEMENT;

24/01/2012, 12h17
lola06

Dans ce cas il vaut mieux pour toi de faire une fonction.

A l'aide de l'instruction RETURN tu pourras retourner tes valeurs.

Ou alors afficher les données avec un DBMS_OUTPUT.

Son code est correcte (mise à part l'emploi d'un select * ce qui n'est pas très pro pour de la prod).
C'est au programme appelant de close le curseur, par exemple pour sqlplus, print fetch les lignes et close le curseur :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
SQL> create or replace procedure p (c out sys_refcursor) as
  2  begin
  3    open c for select * from dual;
  4  end;
  5  /
 
Procedure created.
 
SQL>
SQL> var r refcursor;
SQL>
SQL> exec p(:r);
 
PL/SQL procedure successfully completed.
 
SQL>
SQL> select a.value, s.username, s.sid, s.serial#
  2  from v$sesstat a, v$statname b, v$session s
  3  where a.statistic# = b.statistic#  and s.sid=a.sid
  4  and b.name = 'opened cursors current'
  5  and s.username = 'SKUATAMAD';
 
     VALUE USERNAME                              SID    SERIAL#
---------- ------------------------------ ---------- ----------
         2 SKUATAMAD                             101         11
 
SQL>
SQL> print :r
 
D
-
X
 
SQL>
SQL> select a.value, s.username, s.sid, s.serial#
  2  from v$sesstat a, v$statname b, v$session s
  3  where a.statistic# = b.statistic#  and s.sid=a.sid
  4  and b.name = 'opened cursors current'
  5  and s.username = 'SKUATAMAD';
 
     VALUE USERNAME                              SID    SERIAL#
---------- ------------------------------ ---------- ----------
         1 SKUATAMAD                             101         11
 
SQL>
SQL> print :r
SP2-0625: Error printing variable "r"
SQL>
SQL> exec p(:r);
 
PL/SQL procedure successfully completed.
 
SQL>
SQL> select a.value, s.username, s.sid, s.serial#
  2  from v$sesstat a, v$statname b, v$session s
  3  where a.statistic# = b.statistic#  and s.sid=a.sid
  4  and b.name = 'opened cursors current'
  5  and s.username = 'SKUATAMAD';
 
     VALUE USERNAME                              SID    SERIAL#
---------- ------------------------------ ---------- ----------
         2 SKUATAMAD                             101         11
 
SQL>

24/01/2012, 12h27
Dark Ryus

Vous ne connaissez pas un bout de code en VB qui fait ça par hasard ? ^^

Je vais chercher.
24/01/2012, 13h21
skuatamad

Moi non, mais internet doit pouvoir aider, sûrement une méthode close.
Au cas où ça colle avec l'environnement :
Extraction de données à l'aide d'un DataReader (ADO.NET)
24/01/2012, 13h45
Dark Ryus

Veuillez me pardonner, mais un mauvais copier-coller ma fait zapper mon ' myReader.Close()' en VB qu j'utilise dans mes autres fonctions....

Merci skuatamad, ça m'a permis de le voir...

Tout ça pour rien lol !

Merci !