Grant y撤销sobre objetos-迪纳米科

Posted 2021-02-23

Uso de Grant y Revoke de objetos masivos de distintos user

-----Grant
BEGIN
   FOR R IN (SELECT owner, object_name ,object_type FROM All_Objects WHERE OWNER = 'OTELO' AND object_type IN ('VIEW','TABLE')) LOOP
      BEGIN
        EXECUTE IMMEDIATE 'grant select on '||R.owner||'.'||R.object_name||' to AUDITOR';
      Exception 
         WHEN Others THEN
           DBMS_OUTPUT.put_line(Sqlerrm);  
      END ;
   END LOOP;
END;
-----revoke
 
BEGIN
   FOR R IN (SELECT owner, object_name ,object_type FROM All_Objects WHERE OWNER = 'APEX_030200' AND object_type IN ('VIEW','TABLE')) LOOP
      BEGIN
        EXECUTE IMMEDIATE 'REVOKE All ON '||R.owner||'.'||R.object_name||' FROM AUDITOR';
      Exception 
         WHEN Others THEN
           DBMS_OUTPUT.put_line(Sqlerrm);  
      END ;
   END LOOP;
END;