Discussion :

[libuma]

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 :

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

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 :

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

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.

[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.
  

[libuma]

Bonjour,

Merci de votre réponse.

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

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
   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"

[boutade80]

Code :

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

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.

[Waldar]

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

[libuma]

alors j'ai

Code :

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

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.

[libuma]

Code :

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

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 !

[boutade80]

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
   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

[mnitu]

Avec la modification proposé par Waldar ça marche

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
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>

[libuma]

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

Un grand merci à vous !