[Sql] colonnes d'une table

Version imprimable

bonjour,
j'aimerais avoir de l'aide sur l'affichage des noms de colonnes d'une table lors de l'utilisation de UTL_FILE.
j'arrive à avoir le fichier mais elle est vide quand je l'ouvoir;
voici comment g fais mon code

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
 
lf$fic UTL_FILE.file_type;
LC$ligne VARchar(32767);
curseur c_curs is
select
column_name,data_type
from users_tab_columns where table_name=ma_table
and data_type in ('NUMBER','VARCHAR');
Begin
fichier:=ouvrir_fichier(lf$fic,lc$ligne)--g prealablement declaré cette fonction--
If pc$col:='O' then
I:=1;
For cols in c_curs loop
If I:=1 then
LC$ligne:= Lc$ligne ||Cols.column_name;
else
LC$ligne :=LC$ligne ||Cols.column_name;
end if;
I:=I+1;
end loop;
UTL_FILE.Put_LINE(LF$FIC,LC$ligne);
Utl_file.Fclose(lf$fic)
end;
/

1) Evite le langage SMS.
2) d'où vienent la variable fichier et la variable pc$col et comment est-elle initialisée ?
3) quel est l'intérêt de construire une grosse varaible et d'écrire dans le fichier en dehors de la boucle ?
4) A quoi sert le if I:=1, puisque tu fais la même chose dans les deux cas
5) il manque un end if
6) il manque des ;
7) tu devrais indenter ton code
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 lf$fic UTL_FILE.file_type; LC$ligne VARchar(32767); curseur c_curs is select column_name,data_type from users_tab_columns where table_name=ma_table and data_type in ('NUMBER','VARCHAR'); Begin fichier := ouvrir_fichier(lf$fic,lc$ligne)--g prealablement declaré cette fonction-- If pc$col:='O' then I:=1; For cols in c_curs loop If I:=1 then LC$ligne:= Lc$ligne ||Cols.column_name; else LC$ligne :=LC$ligne ||Cols.column_name; end if; I:=I+1; end loop; UTL_FILE.Put_LINE(LF$FIC,LC$ligne); Utl_file.Fclose(lf$fic) end; /

02/08/2006, 10h21
laurentschneider

8) plus de rigueur avec majuscules / minuscules

merci,
en fait g moi meme trouvé la reponse en utilisant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 li:=1; for i in 1...3 loop if li=1 then lc$col:= tab(1);--tableau de type varray prealablement declaré elsif li=2 then lc$col:=tab(2); else lc$col:=tab(3); end if; end loop;
et ca marche en perfection.merci à tous