Problème de Curseur sur une Collection

Version imprimable

Bonjour,
j'ai un souci avec la déclaration d'un Curseur sur une Collection.:cry:
Peut-être même que cela n'est pas possible.:calim2:

Voici mon code (simplifié) :

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
TYPE typ_c_curseur IS REF CURSOR;
 
PROCEDURE proc1 (pio_c_curseur OUT typ_c_curseur)
IS
CURSOR v_c_donneur_manquant
IS
SELECT cont_code AS code_contrat, cont_libelle AS libelle_contrat,
           'Tiers donneur manquant'AS erreur
FROM contrats
WHERE contrats.cont_actif =1
AND contrats.cont_isarchived =0
AND contrats.cont_pk NOT IN (SELECT cont_trs_cont_fk
                      FROM contrats_tiers
                      WHERE cont_trs_typ_trs ='PRENEUR');
 
TYPE t_bail_errone IS RECORD(
              code_contrat VARCHAR2(200),
              libelle_contrat VARCHAR2(200),
              erreur VARCHAR2(200)
              );
 
TYPE tab_t_bail_errone IS TABLE OF bail_errone INDEX BY BINARY_INTEGER;
 
mes_baux_err tab_t_bail_errone;
 
v_n_compteur INTEGER:=0;
 
BEGIN
 OPEN v_c_donneur_manquant;
 LOOP
   BEGIN
     v_n_compteur := v_n_compteur +1;
     FETCH v_c_donneur_manquant
       INTO mes_baux_err (v_n_compteur);
     EXIT WHEN v_c_donneur_manquant%NOTFOUND;
   EXCEPTION
     WHEN OTHERS
     THEN
      RAISE;
   END;
 END LOOP;

 
 CLOSE v_c_donneur_manquant;

 
 OPEN pio_c_curseur FOR
    SELECT code_contrat, libelle_contrat, erreur
    FROM mes_baux_err
    ORDER BY code_contrat, libelle_contrat, erreur;
 
END proc1;

J'ai une erreur à la compilation : Erreur 00942 - Table ou vue inexistante.
Sur la déclaration d'ouverture du curseur pio_c_curseur.

Merci de m'aider ou de me dire que ma façon de faire est erronée.
(Je pense utiliser une table temporaire sinon).

23/10/2009, 16h43
mnitu

mes_baux_err doit être déclaré comme une type en SQL (avec create type etc.) et non pas comme un associative array en PL/SQL.
26/10/2009, 10h05
mrugala

Problème de Curseur sur une Collection

J'ai tenté cette solution mais ça ne marche pas mieux.
Je prend donc la solution de créer une structure de table que je remplirais au fur et à mesure.
Je construirait à la fin mon cursuer sur cette table.

Citation:

Envoyé par mrugala

J'ai tenté cette solution mais ça ne marche pas mieux.
...

Probablement que tu t'y es mal pris

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
 
Connected to Oracle Database 10g Express Edition Release 10.2.0.1.0 
Connected as mni
 
SQL> 
SQL> set serveroutput on
SQL> Create Or Replace Type t_bail_errone As Object(
  2    code_contrat    VARCHAR2(200),
  3    libelle_contrat VARCHAR2(200),
  4    erreur          VARCHAR2(200)
  5  );
  6  /
 
Type created
SQL> Create Or Replace Type tab_t_bail_errone Is Table Of t_bail_errone;
  2  /
 
Type created
SQL> Declare
  2    mes_baux_err     tab_t_bail_errone := tab_t_bail_errone();
  3  Begin
  4    mes_baux_err.extend;
  5    mes_baux_err(1) := t_bail_errone('CONTRAT_1', 'Libelle CONTRAT_1','Erreur CONTRAT_1');
  6    mes_baux_err.extend;
  7    mes_baux_err(2) := t_bail_errone('CONTRAT_2', 'Libelle CONTRAT_2','Erreur CONTRAT_2');
  8    --
  9    For crs In (
 10                Select value(t).code_contrat code_contrat
 11                  From Table(mes_baux_err) t
 12                )
 13    Loop
 14      Dbms_output.put_line(crs.code_contrat);
 15    End Loop;
 16    --
 17  End;
 18  /
 
CONTRAT_1
CONTRAT_2
 
PL/SQL procedure successfully completed
 
SQL>