Discussion :

[johnnylee]

Bonjour à tous,

je voudrais réaliser une fonction qui renvoi une table d'un record contenant lui même une liste de tables.

problème : comment l'initialiser?

j'ai commencé à initialiser çà :

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
 
DECLARE
TYPE typ1 IS TABLE OF VARCHAR2(20) INDEX BY BINARY_INTEGER;
TYPE typ2 IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
TYPE typ3 IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER;
TYPE line_typ IS RECORD (
   table1 typ1
,  table2 typ2
,  table3 typ3
);
TYPE list_typ IS TABLE OF line_typ;
 
   l_line_record line_typ;
   l_line      list_typ := list_typ(l_line_record);
BEGIN
...
FOR i ... LOOP
   l_line.EXTEND;
l_line(i).table1 := typ1();
l_line(i).table1.EXTEND;
l_line(i).table1 := <valeur>;
l_line(i).table2 := typ2();
l_line(i).table2.EXTEND;
l_line(i).table2 := <valeur>;
l_line(i).table3 := typ3();
l_line(i).table3.EXTEND;
l_line(i).table3 := <valeur>;
END LOOP;
...
END;

mais çà ne marche po! comment faire?

[SheikYerbouti]

Pourquoi ne faites-vous pas plutôt des tables d'enregistrements ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
DECLARE 
TYPE line_typ IS RECORD ( 
   col1  Varchar2(20)
,  col2  Number
,  col3  Varchar2(1)
); 
TYPE list_typ IS TABLE OF line_typ INDEX BY BINARY_INTEGER ; 
Tableau  list_type
Begin
  For i IN 1 .. 10 Loop
      Tableau(i).col1 := To_Char( i ) ;
      Tableau(i).col2 := i ;
  End loop ;
End;

[johnnylee]

je dois rendre disponible l'information de la manière suivante,

l_line(i).table1(j) et donc un record avec col1, col2, col3 ne peut pas me convenir puisque dans ce cas je devrais créer un record col1 ...coln.