Executer le resultat d'une requête

Version imprimable

02/02/2010, 11h01
libuma

Executer le resultat d'une requête
Bonjour,

Sous SQL plus, je tente de créer un script qui permettrait de faire un GRANT SELECT sur plusieurs tables du schéma d'un utilisateur à un role.

Je vous montre :
Code:

1 2 select 'grant select on SCHEMA1.'||table_name||' to MYROLE;' from all_tables where UPPER(table_name) like '%$AUD' AND UPPER(OWNER) = 'SCHEMA1';
Comme résultat, j'obtiens ce que je désirais, à savoir :
Code:

1 2 3 grant select on SCHEMA1.TABLE1$AUD to MYROLE; grant select on SCHEMA1.TABLE2$AUD to MYROLE;
Seulement, l'instruction est inscrite mais ne s'exécute pas.
J'ai tenté de placé un execute immédiate mais sans succès.
Y aurait-il une fonction du type EVAL pour effectuer celà ?

Merci d'avance.
02/02/2010, 11h12
mnitu
Soit
- le résultat du script 1 vous le mettez dans un fichier 2 que vous lancez ensuite via sqlplus (start fichier2)
- soit vous employez PL/SQL et SQL Dynamique.

Bonjour,

Merci de votre réponse.

J'ai préféré la solution PL/SQL.
J'ai généré ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 DECLARE CURSOR tableList IS select 'grant select on SCHEMA1.'||table_name||' to MYROLE;' as mytable from all_tables where UPPER(table_name) like '%$AUD' AND UPPER(OWNER) = 'SCHEMA1'; sql_stmt varchar(200); BEGIN FOR thisTable IN tableList LOOP --DBMS_OUTPUT.PUT_LINE(thisTable.mytable); EXECUTE IMMEDIATE thisTable.mytable; END LOOP; END;
Lorsque j'utilise DBMS OUTPUT, j'ai bien le résultat attendu.
Si je mets Execute immediate, j'ai un joli message "caractère invalide" :calim2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
DECLARE
   CURSOR tableList IS 
	SELECT table_name AS mytable 
	FROM all_tables WHERE UPPER(table_name) LIKE '%$AUD' AND UPPER(OWNER) = 'SCHEMA1';
     sql_stmt  varchar(200);
BEGIN
 
   FOR thisTable IN tableList LOOP
	--DBMS_OUTPUT.PUT_LINE(thisTable.mytable);
       EXECUTE IMMEDIATE ('grant select on SCHEMA1.'||thisTable.mytable  ||' to MYROLE');
   END LOOP;
 
END;

Voila ce que je fais.

02/02/2010, 14h16
Waldar

Essayez en retirant le point virgule après 'to MYROLE'.

alors j'ai

Code:

1
2
3
4
5
6
7
8
9
 
ERREUR à la ligne 11 :
ORA-06550: Ligne 11, colonne 4 :
PLS-00103: Symbole "END" rencontré à la place d'un des symboles suivants :
* & = - + ; < / > at in is mod remainder not rem return
returning <exposant (**)> <> or != or ~= >= <= <> and or like
LIKE2_ LIKE4_ LIKEC_ between into overlaps using || multiset
bulk year DAY_ member SUBMULTISET_
Symbole ";" a été substitué à "END" pour continuer.

:aie:

Citation:

Envoyé par boutade80

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
DECLARE
   CURSOR tableList IS 
	SELECT table_name AS mytable 
	FROM all_tables WHERE UPPER(table_name) LIKE '%$AUD' AND UPPER(OWNER) = 'SCHEMA1';
     sql_stmt  varchar(200);
BEGIN
 
   FOR thisTable IN tableList LOOP
	--DBMS_OUTPUT.PUT_LINE(thisTable.mytable);
       EXECUTE IMMEDIATE ('grant select on SCHEMA1.'||thisTable.mytable  ||' to MYROLE');
   END LOOP;
 
END;

Voila ce que je fais.

Même résultat !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
DECLARE
   CURSOR tableList IS 
	SELECT table_name AS mytable 
	FROM all_tables WHERE UPPER(table_name) LIKE '%$AUD' AND UPPER(OWNER) = 'SCHEMA1';
     sql_stmt  varchar(200);
BEGIN
 
   FOR thisTable IN tableList LOOP
	--DBMS_OUTPUT.PUT_LINE(thisTable.mytable);
       EXECUTE IMMEDIATE ('grant select on SCHEMA1.'||thisTable.mytable  ||' to MYROLE');
   END LOOP;
 
END;
/

Avec le / a la fin si c'est executé sous sqlplus.
Mais ca n'explique pas l'erreur ligne 11

Avec la modification proposé par Waldar ça marche

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Connected to Oracle Database 10g Express Edition Release 10.2.0.1.0 
Connected as mni
 
SQL> 
SQL> drop role myrole
  2  /
 
Role dropped
SQL> create role myrole
  2  /
 
Role created
SQL> set serveroutput on
SQL> DECLARE
  2     CURSOR tableList IS
  3    SELECT 'grant select on mni.'||table_name||' to MYROLE' AS mytable
  4    FROM all_tables WHERE UPPER(table_name) LIKE '%' AND UPPER(OWNER) = 'MNI';
  5       sql_stmt  varchar(200);
  6  BEGIN
  7  
  8     FOR thisTable IN tableList LOOP
  9         dbms_output.put_line(thisTable.mytable);
 10         EXECUTE IMMEDIATE thisTable.mytable;
 11     END LOOP;
 12  
 13  END;
 14  /
 
grant select on mni.USERS to MYROLE
grant select on mni.T_T2 to MYROLE
grant select on mni.T_T1 to MYROLE
grant select on mni.TEST_117 to MYROLE
grant select on mni.TEST_110 to MYROLE
grant select on mni.TEST_109 to MYROLE
grant select on mni.TASK_USER to MYROLE
grant select on mni.TASK to MYROLE
grant select on mni.SALGRADE to MYROLE
grant select on mni.REPORT_DEADLOCK to MYROLE
grant select on mni.PRODUIT to MYROLE
grant select on mni.PRODCDE to MYROLE
grant select on mni.PERSONNE to MYROLE
grant select on mni.EMP1 to MYROLE
grant select on mni.EMP to MYROLE
grant select on mni.ECR to MYROLE
grant select on mni.DUMMY to MYROLE
grant select on mni.DEPT to MYROLE
grant select on mni.COMMANDE to MYROLE
grant select on mni.BONUS to MYROLE
grant select on mni.ACCT to MYROLE
 
PL/SQL procedure successfully completed
 
SQL>

02/02/2010, 15h06
libuma

Ohhh effectivement... Waldar avait raison.
Disons que j'ai mal interpreté et que j'ai retiré le mauvais ";" :oops:

Un grand merci à vous !