Discussion :

[syl2095]

Bonjour,

Je souhaite récupérer des données d'une base oracle 6 via du pl/sql.

A partir du dba_all_tables, je souhaite récuperer les tables champs et contenus de ces chanmps grâce au owner.

Voici le code :

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
SET head off
SET feed off
set serveroutput on
spool liste_tables.sql
declare
champs varchar2(50);
cursor C1 IS SELECT table_name FROM dba_all_tables where owner = 'xxx';
cursor C2 (cols varchar2) is select cname from col where tname = cols ;
begin
for i in C1
loop
open C2 (i.table_name);
loop
fetch C2 into champs;
DBMS_OUTPUT.PUT_LINE(champs);
end loop;
close C2;
end loop;
end;
/
spool off

bon ce script part en sucette puisque il fait planter la machine mais qu'est ce que je ne fais pas bien ?

Merci à tous !

[orafrance]

c'est pas plus simple de faire :

Code :

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

1
2
SELECT cname FROM col, dba_all_tables dat WHERE tname = table_name 
and dat.owner  = 'XXX';

[NGasparotto]

Pour récupérer les tables, les colonnes et les valeurs à partir de l'owner dans un pl/sql, tu va être obligé d'utiliser du sql dynamique.
Et avant Oracle 8i, sur que c'est Oracle 6 (?), il faut utiliser la procédure DBMS_SQL : http://download-west.oracle.com/docs...sql.htm#998120

Nicolas.

[syl2095]

merci pour les réponses

en fait si je mets ce code :

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
SET head off
SET feed off
set serveroutput on
spool liste_tables.sql
declare
champs varchar2(50);
cursor C1 IS SELECT table_name FROM dba_all_tables where owner = 'LFLD';
cursor C2 (champs2 col.tname%Type) is select cname from col where tname = champs2;
begin
for i in C1
loop
for j in C2 (i.table_name)
loop
--fetch C2 into champs;
DBMS_OUTPUT.PUT_LINE('select ' || j.cname || ' from ' || i.table_name);
end loop;
--close C2;
end loop;
end;
/
spool off

ça me renvoie :

select champs1 from table1
select champs2 from table1
select champs1 from table2
select champs2 from table2
select champs1 from table3
etc ...

ce qui aurait été plus judicieux, c'est :

select champs1, champs2 from table1
select champs1, champs2 from table2
select champs1 from table3
etc...

ce qui me donnerait ensuite comme résultat dans un fichier txt :

table1
champs1,champs2,
table2
champs1,champs2
table3
champs1

je sais pas si j'ai été clair...
merci

[NGasparotto]

Ok, voilà ce que j'essaierais :

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
SQL> declare
  2    stmt varchar2(32767);
  3  begin
  4      for x in (select table_name, owner from all_tables where owner = 'SCOTT') loop
  5          for y in (select column_name from all_tab_columns where table_name = x.table_name and owner = x.owner) loop
  6              stmt:=stmt||','||y.column_name;
  7          end loop;
  8          stmt:= 'select '||ltrim(stmt,',')||' from '||x.table_name||';';
  9          dbms_output.put_line(stmt);
 10          stmt:=null;
 11       end loop;
 12  end;
 13  /
select COL1,COL2 from TAB3;
select COL1,COL2 from TAB4;
select COL from TITI;
select EMPNO,ENAME from EMP3;
select PROJECTID,INDENT,ITEM from TGINSTMANUALENG;
[...]

Nicolas.

[syl2095]

yes c'est propre merci !

maintenant je n'ai plus qu'à faire le résultat comme suit :

champs;champ2;champs3...

merci !!