如何授予执行包的权限并从表中选择另一个架构

Question

我有一个名为 SCHEMA1 的模式，其中包含需要由用户 SCHEMA2 访问的包和表。

我希望 SCHEMA2 有权执行包并查看源代码。我还想授予 SCHEMA2 对所有表的 SELECT 访问权限。

我该怎么做？谢谢。

Answer 1

我回答了一个非常类似问题在 stackoverflow 上。

基本上是这样的：

BEGIN
  FOR Rec IN (SELECT object_name, object_type FROM all_objects WHERE owner='SCHEMA1' AND object_type IN ('TABLE','VIEW','PROCEDURE','FUNCTION','PACKAGE')) LOOP
    IF Rec.object_type IN ('TABLE','VIEW') THEN
      EXECUTE IMMEDIATE 'GRANT SELECT ON SCHEMA1.'||Rec.object_name||' TO SCHEMA2';
    ELSIF Rec.object_type IN ('PROCEDURE','FUNCTION','PACKAGE') THEN
      EXECUTE IMMEDIATE 'GRANT EXECUTE ON SCHEMA1.'||Rec.object_name||' TO SCHEMA2';
    END IF;
  END LOOP;
END;