Assigning roles through procedure

Question

Dear All ,
i have a role select_on_all_tables, i want to create a procedure to assign the SELECT previlleges on
all tables to this role, how to do this?
Thanks & Regards
Edited by: Muhammad on Feb 20, 2010 3:10 AM

Answer 1

Hello,
You may use the following procedure:
CREATE OR REPLACE PROCEDURE grant_select (u_granted VARCHAR2) IS
      TYPE RefCurTyp IS REF CURSOR;
      cv   RefCurTyp;
      sql_cv      VARCHAR2(400);
      obj         VARCHAR2(128);     
      sql_stmt    VARCHAR2(200);
      usr_granted VARCHAR2(30);
   BEGIN
      usr_granted:=u_granted;
      sql_cv := 'SELECT A.table_name FROM user_tables A';
      OPEN cv FOR sql_cv;
      LOOP
         FETCH cv INTO obj;
         EXIT WHEN cv%NOTFOUND;
         sql_stmt := 'GRANT SELECT ON '||obj||' TO '||usr_granted;
         EXECUTE IMMEDIATE sql_stmt;
      END LOOP;
      CLOSE cv;
   END;
/Then, connected on the Oracle User owner of Tables, you issue the following statement:
EXECUTE grant_select('SELECT_ON_ALL_TABLES');Hope this help.
Best regards,
Jean-Valentin
Edited by: Lubiez Jean-Valentin on Feb 20, 2010 2:24 PM