zoukankan      html  css  js  c++  java
  • gen_grant_dml.sql

    set echo off feedback off verify off pagesize 0 linesize 120

    define v_grantee                = &1

    define v_grant_dml_command_file = .loggrant_dml_&v_grantee..sql

    define v_grant_dml_log_file     = .loggrant_dml_&v_grantee..log

    spool &v_grant_dml_command_file.
    prompt spool &v_grant_dml_log_file.
    prompt set echo on feedback on
    prompt show user
    select
      'grant select,insert,update,delete on ' || t.table_name || ' to &v_grantee;'
    from     user_tables t
    where not exists
      (select null
       from   user_tab_privs p
       where  p.owner      = user
       and    p.table_name = t.table_name
       and    p.grantee    = upper('&v_grantee'))
    and user != upper('&v_grantee')
    order by t.table_name
    /
    select
      'grant select on ' || v.view_name || ' to &v_grantee;'
    from     user_views v
    where not exists
      (select null
       from   user_tab_privs p
       where  p.owner      = user
       and    p.table_name = v.view_name
       and    p.grantee    = upper('&v_grantee'))
    and user != upper('&v_grantee')
    order by v.view_name
    /
    select
      'grant select on ' || s.sequence_name || ' to &v_grantee;'
    from     user_sequences s
    where not exists
      (select null
       from   user_tab_privs p
       where  p.owner      = user
       and    p.table_name = s.sequence_name
       and    p.grantee    = upper('&v_grantee'))
    and user != upper('&v_grantee')
    order by s.sequence_name
    /
    select
    'grant execute on ' || o.object_name || ' to &v_grantee;'
    from     user_objects o
    where object_type in ('PACKAGE')
    and   not exists
      (select null
       from   user_tab_privs p
       where  p.owner      = user
       and    p.table_name = o.object_name
       and    p.grantee    = upper('&v_grantee'))
    and user != upper('&v_grantee')
    order by o.object_name
    /
    prompt set echo off feedback off
    prompt spool off
    spool off

    @&v_grant_dml_command_file.

  • 相关阅读:
    解决无法安装Microsoft .Net Framework 3.5
    day11-15,装饰器
    Xmanager Power Suit 6.0.0009 最新版注册激活
    eth
    MySql 8.0 版本使用navicat连不上解决
    day11
    Mybatis使用规则
    nginx的基本配置
    Mybatis分页插件PageHelper使用
    dubbo的使用
  • 原文地址:https://www.cnblogs.com/feiyun8616/p/5897052.html
Copyright © 2011-2022 走看看