如何将所有数据库对象的只读访问权限授予 oracle 中的另一个用户？答案

【问题标题】：How to grant read-only access to all the DB objects to another user in oracle?如何将所有数据库对象的只读访问权限授予 oracle 中的另一个用户？
【发布时间】：2020-10-15 17:29:44
【问题描述】：

我尝试将所有 db 对象的只读访问权限授予另一个可能不存在的用户。这就是我尝试这样做的方式：

DECLARE
    user_exists NUMBER;

BEGIN

    SELECT COUNT(*) INTO user_exists FROM ALL_USERS WHERE USERNAME = '${user}';

    IF user_exists > 0 THEN

        FOR obj IN (SELECT object_name, object_type
                  FROM all_objects
                  WHERE owner = '${owner}'
                    AND object_type IN ('TABLE', 'VIEW', 'PROCEDURE', 'FUNCTION', 'PACKAGE'))
            LOOP
                IF obj.object_type IN ('TABLE', 'VIEW') THEN
                    EXECUTE IMMEDIATE 'GRANT SELECT ON ${owner}.' || obj.object_name ||
                                      ' TO ${user}';
                ELSIF obj.object_type IN ('PROCEDURE', 'FUNCTION', 'PACKAGE') THEN
                    EXECUTE IMMEDIATE 'GRANT EXECUTE ON ${owner}.' || obj.object_name || ' TO ${user}';
                END IF;
            END LOOP;

    END IF;

END;

脚本失败并显示以下消息：

  Message    : ORA-00942: table or view does not exist
  ORA-06512: at line 16
  ORA-06512: at line 16

我做错了什么？

【问题讨论】：

你是如何运行脚本的？ ${user} 和 ${owner} 不是 SQLPlus 的有效替换语法。
我使用 flyway 运行脚本。 ${placeholder} 有效。我写了很多其他类似的脚本，没有问题。

标签： oracle oracle12c

【解决方案1】：

除非我错了，代码中看起来像 ${something} 的所有内容都是错误的。

它应该做什么？你真的查询过ALL_OBJECTS 看看里面有什么吗？看起来好像您认为它们会自动被存在的东西取代......嗯，只是在您的想象中？

如果它是一个过程，那么您可以将所有者（授予者）和另一个用户（授予者）作为参数传递。你写的代码大部分都可以重用：

SQL> CREATE OR REPLACE PROCEDURE p_grant (par_owner    IN VARCHAR2,
  2                                       par_grantee  IN VARCHAR2)
  3  AS
  4     user_exists  NUMBER;
  5     l_str        VARCHAR2 (1000);
  6  BEGIN
  7     SELECT COUNT (*)
  8       INTO user_exists
  9       FROM all_users
 10      WHERE username = DBMS_ASSERT.schema_name (par_grantee);
 11
 12     IF user_exists > 0
 13     THEN
 14        FOR obj IN (SELECT object_name, object_type
 15                      FROM all_objects
 16                     WHERE     owner = DBMS_ASSERT.schema_name (par_owner)
 17                           AND object_type IN ('TABLE',
 18                                               'VIEW',
 19                                               'PROCEDURE',
 20                                               'FUNCTION',
 21                                               'PACKAGE')
 22                           AND STATUS = 'VALID')
 23        LOOP
 24           IF obj.object_type IN ('TABLE', 'VIEW')
 25           THEN
 26              l_str :=
 27                    'GRANT SELECT ON '
 28                 || par_owner
 29                 || '.'
 30                 || obj.object_name
 31                 || ' TO '
 32                 || par_grantee;
 33           ELSIF obj.object_type IN ('PROCEDURE', 'FUNCTION', 'PACKAGE')
 34           THEN
 35              l_str :=
 36                    ' grant execute on '
 37                 || par_owner
 38                 || '.'
 39                 || obj.object_name
 40                 || ' to '
 41                 || par_grantee;
 42           END IF;
 43
 44           DBMS_OUTPUT.put_line (l_str);
 45
 46           EXECUTE IMMEDIATE l_str;
 47        END LOOP;
 48     END IF;
 49  END;
 50  /

Procedure created.

测试：

SQL> EXEC p_grant('SCOTT', 'MIKE');
grant execute on SCOTT.F_TEST to MIKE
GRANT SELECT ON SCOTT.CALENDAR TO MIKE
grant execute on SCOTT.EXPORTTABLECONTENT to MIKE
<snip>
GRANT SELECT ON SCOTT.SALGRADE TO MIKE
GRANT SELECT ON SCOTT.LINKS TO MIKE

PL/SQL procedure successfully completed.

【讨论】：

在使用flyway时使用${something}没问题我一直都在使用它。问题是它会在 EXECUTE IMMEDIATE 'GRANT SELECT ON BPSREPDATA_OWNER' 处失败。 || obj.object_name || ' TO ${user}';表为“flyway_schema_history”时的步骤
它是不是用双引号创建的，所以它的名字真的是小写的？如果是这样，请再次将其括在双引号中。否则，不知道。
你是对的，当我查看 all_objects 时，它真的是用小写字母写的。
像往常一样，坏主意。在Oracle中将任何名称括在双引号中，即。

【解决方案2】：

这是一个 PL/SQL 匿名块，因此您需要使用 PL/SQL 变量和绑定替换。试试这个：

DECLARE
    user_exists NUMBER;
    l_user VARCHAR2(30);
    l_owner VARCHAR2(30);
BEGIN
    l_user := 'USER1';
    l_owner := 'USER2';

    SELECT COUNT(*) INTO user_exists FROM ALL_USERS WHERE USERNAME = l_user;

    IF user_exists > 0 THEN

        FOR obj IN (SELECT object_name, object_type
                  FROM all_objects
                  WHERE owner = l_owner
                    AND object_type IN ('TABLE', 'VIEW', 'PROCEDURE', 'FUNCTION', 'PACKAGE'))
            LOOP
                IF obj.object_type IN ('TABLE', 'VIEW') THEN
                    EXECUTE IMMEDIATE 'GRANT SELECT ON :1 TO :2' USING obj.owner||'.'||obj.object_name, l_user;
                ELSIF obj.object_type IN ('PROCEDURE', 'FUNCTION', 'PACKAGE') THEN
                    EXECUTE IMMEDIATE 'GRANT EXECUTE ON :1 TO :2' USING obj.owner||'.'||obj.object_name, l_user;
                END IF;
            END LOOP;

    END IF;

END;

【讨论】：

在使用flyway时使用${something}没问题我一直都在使用它。问题是它会在 EXECUTE IMMEDIATE 'GRANT SELECT ON BPSREPDATA_OWNER' 处失败。 || obj.object_name || ' TO ${user}';表为“flyway_schema_history”时的步骤

【解决方案3】：

当表为“flyway_schema_history”时，脚本将在授予 obj 选择时失败。我不知道为什么会发生这种情况，但一种解决方案是跳过该表。

这是更新后的工作脚本：

DECLARE
    user_exists NUMBER;

BEGIN

    SELECT COUNT(*) INTO user_exists FROM ALL_USERS WHERE USERNAME = '${user}';

    IF user_exists > 0 THEN

        FOR obj IN (SELECT object_name, object_type
                  FROM all_objects
                  WHERE owner = '${owner}'
                    AND object_type IN ('TABLE', 'VIEW', 'PROCEDURE', 'FUNCTION', 'PACKAGE')
                    AND object_name NOT LIKE 'flyway_schema_history')
            LOOP
                IF obj.object_type IN ('TABLE', 'VIEW') THEN
                    EXECUTE IMMEDIATE 'GRANT SELECT ON ${owner}.' || obj.object_name ||
                                      ' TO ${user}';
                ELSIF obj.object_type IN ('PROCEDURE', 'FUNCTION', 'PACKAGE') THEN
                    EXECUTE IMMEDIATE 'GRANT EXECUTE ON ${owner}.' || obj.object_name || ' TO ${user}';
                END IF;
            END LOOP;

    END IF;

END;

【讨论】：