Discussion :

[fatati]

Bonjour,

SVP j'ai un problème bloquant...
je veux créer un procédure qui fait un certain traitement et qui va me retourner un la fin un tableau qui contient des chaines de caractéres sachant que le nombre de ces chaines de caractéres est inconnu.
J'ai essayé de crée la procédure en lui passant comme paramétre 'Table of varchar 2 ', Table' tout court et ça marche pas pouvea vous m'aider...j'ai besoin de votre aide


Merci infiniment

[plaineR]

2 solutions :

- soit tu crées un type basé :

Code :

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

1
2
3
4
5
6
7
8
9
10
SQL> create type typ1 is table of number;
  2  /
Type created.
 
SQL> create or replace procedure p1 (p1 in typ1) is
  2  begin
  3     ...
  4  end;
  5  /
Procedure created.

- soit tu déclares un type dans un entête de package :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SQL> create or replace package pack1 is
  2  type typ is table of  number;
  3  end;
  4  /
Package created.
 
SQL> create or replace procedure p2 (p1 in pack1.typ) is
  2  begin
  3  ...
  4  end;
  5  /
Procedure created.

- soit tu crées un type basé

[fatati]

Merci infiniment pour l'aide,

mais j'ai tjrs une petite question, j'ai opté pour la première solution...
mais la procédure ne marche pas :

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
 
PROCEDURE PR_ECRAN  (typ_ecran in    varchar2,
                                pas         in number,
                                CODSTA    out   COD ,
                                NbLign    out  number)
as
begin
declare
 
	i                       number(2);
 
 
 
begin
 
                CODSTA.delete;
 
                i:=1;
                while condition
                loop
 
					CODSTA(i):=v_tst_tmp;
					i:=i+1;
 
                end loop;
                NbLign:=CODSTA.count;
end;
 
end;

j'ai l'erreur suivante comme reponce:

Error -6531: ORA-06531: Reference to uninitialized collection


SVP avez vous un idéee ça bloque une fois ça pointe sur CODSTA.delete;
Merci d'avance

[mnitu]

Et pourquoi fait tu un ?

Code :

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

1
2
 
CODSTA.DELETE

Pour être certain que la collection ne contient rien ?

[fatati]

t'as raison
mais si j'enleve le meme pb se pose pendant l'affectation

CODSTA(i):=v_tst_tmp;

a vrai dire au debut j'ai pas mis le delete mais à force de chercher un solution je l'ai mis

...
Merci d'avance

[mnitu]

Un exemple vite trouvé.

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
 
create or replace type str2tblType as table of varchar2(10)
/
create or replace function str2tbl
( p_str in varchar2)
return str2tblType
as
  l_str  Varchar2(10) := p_str;
  l_data str2tblType := str2tblType();
begin
  For i in 1..length(p_str)
  Loop
    l_data.extend;
    l_data(l_data.count) := SubStr(l_str,1,1); 
    l_str := SubStr(p_str,i+1);
  End Loop;
  --
  return l_data;      
end;