Discussion :

[madina]

Bonjour,
je dois utiliser une collection pour stocker les valeurs d'un champ dans un bloc multiligne.
voici le code que j'utilise.

attestation_risque. NUMEPAPI est le champ de la base de données qui correspond au champ du bloc NUMATTEPAPIER dont je dois stocker les valeurs.

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
31
32
33
declare
  TYPE  TYP_TAB_A IS TABLE OF attestation_risque. NUMEPAPI%TYPE ;
   tab2 TYP_TAB_A ;
i number(1);
msg varchar2(200):=' ';
 
begin
first_record;
	i:=1;
	loop
	IF :NUMATTEPAPIER IS NOT NULL  THEN
            tab2:= TYP_TAB_A();
            tab2.EXTEND(i);
    	  tab2(i):= :NUMATTEPAPIER  ;
    	    i:=i+1;
 
END IF;
 
	IF (:System.Last_Record = 'TRUE') THEN
 
               EXIT;
  ELSE
               Next_Record;
  END IF;
 
end loop;
first_record;
 
FOR i IN 1 .. tab2.count Loop
 
    msg := msg || tab2(i);
 
end;

mais à l'execution il me signale l'erreur

Code :

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

1
2
 
ORA-06533:Subscript beyond count.

Quel est le problème ?
une aide SVP

[McM]

C'est normal la limitation NUMBER(1) pour i ?

Ton code ne marche pas bien chez moi en plsql.
J'ai mis quelques traces.

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
31
32
33
DECLARE
  TYPE  TYP_TAB_A IS TABLE OF VARCHAR2(1);
   tab2 TYP_TAB_A ;
	i number;
	msg varchar2(200):=' ';
BEGIN
	i:=1;
	FOR k IN 1..10
  LOOP
      tab2:= TYP_TAB_A();
      tab2.EXTEND(i);
  		tab2(i):= CHR(64 + k)  ;
      DBMS_OUTPUT.put_line(k ||':' || tab2(i));
	    i:=i+1;
	END LOOP;
	FOR i IN 1 .. tab2.COUNT
  LOOP
    msg := msg || tab2(i);
 	END LOOP;
  DBMS_OUTPUT.put_line('Total ('|| tab2.COUNT ||') Msg='|| msg);
END;
 
1:A
2:B
3:C
4:D
5:E
6:F
7:G
8:H
9:I
10:J
Total (10) Msg= J

Tu redéclares tab2:= TYP_TAB_A(); à chaque boucle, donc c'est réinitialisé.

Pour les collections, le plus simple est cette façon

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
31
DECLARE
  TYPE  TYP_TAB_A IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER;
   tab2 TYP_TAB_A ;
	i number;
	msg varchar2(200):=' ';
BEGIN
	i:=1;
	FOR k IN 1..10
  LOOP
      tab2(i):= CHR(64 + k)  ;
      DBMS_OUTPUT.put_line(k ||':'|| tab2(i));
	    i:=i+1;
	END LOOP;
	FOR i IN 1 .. tab2.COUNT
  LOOP
    msg := msg || tab2(i);
 	END LOOP;
    DBMS_OUTPUT.put_line('Total ('|| tab2.COUNT ||') Msg='|| msg);
END;
 
1:A
2:B
3:C
4:D
5:E
6:F
7:G
8:H
9:I
10:J
Total (10) Msg= ABCDEFGHIJ

[madina]

J'avais mal placé le constructeur d'initialisation . il fallait le sortir hors du boucle.
Merci.