数据库中批量授权与回收权限

--授予 查询 插入 权限 
DECLARE CURSOR CUR_A 
IS 
SELECT TABLE_NAME  FROM USER_TABLES;
V_VAR  VARCHAR2( 1000);
BEGIN
  OPEN CUR_A;
  LOOP 
    FETCH CUR_A  INTO V_VAR;
    EXIT  WHEN CUR_A%NOTFOUND;
    EXECUTE  IMMEDIATE  'GRANT  SELECT,INSERT ON ' ||V_VAR||  ' TO  WXZJ1';   -- SELECT ,INSERT,DELETE ,UPDATE,
     END LOOP;
  CLOSE CUR_A;
END;




--收回所有权限
DECLARE CURSOR CUR_A 
IS 
SELECT TABLE_NAME  FROM USER_TABLES;
V_VAR  VARCHAR2( 1000);
BEGIN
  OPEN CUR_A;
  LOOP 
    FETCH CUR_A  INTO V_VAR;
    EXIT  WHEN CUR_A%NOTFOUND;
    EXECUTE  IMMEDIATE  'REVOKE  ALL  ON ' ||V_VAR||  ' FROM  WXZJ1 ';
     END LOOP;
  CLOSE CUR_A;
END;


--单个授予
GRANT  SELECT  ON 表名  TO 用户名

--收回
REVOKE  SELECT  ON 表名  FROM 用户名



--另外一种写法------------------------------------------------------------------------------------------
DECLARE CURSOR CUR_A 
IS  SELECT TABLE_NAME  FROM USER_TABLES;
V_SQL  VARCHAR2( 2000);
BEGIN
FOR TABLENAME  IN CUR_A LOOP 
     V_SQL:= 'GRANT SELECT,INSERT ON ' ||TABLENAME.TABLE_NAME||  ' TO DBO_PROPERTYMANAGEMENTCENTERIM'; 
     EXECUTE  IMMEDIATE V_SQL; 
     END LOOP;
END;



DECLARE CURSOR CUR_A 
IS  SELECT TABLE_NAME  FROM USER_TABLES;
V_SQL  VARCHAR2( 2000);
BEGIN
FOR TABLENAME  IN CUR_A LOOP 
     V_SQL:= 'REVOKE SELECT,INSERT ON ' ||TABLENAME.TABLE_NAME||  ' FROM DBO_PROPERTYMANAGEMENTCENTERIM'; 
     EXECUTE  IMMEDIATE V_SQL; 
     END LOOP;
END;