在 Oracle 中删除模式上的所有对象

Question

我正在尝试构建一个脚本来删除数据库上的所有对象，因此使用以下选择，构建一个要执行的过程，该过程将使数据库完全干净（无权删除数据库并再次创建它） .首先删除所有序列、索引等，然后删除表。

select 'drop '||object_type||' '|| object_name || ';' from user_objects where object_type in ('VIEW','PACKAGE','SEQUENCE', 'PROCEDURE', 'FUNCTION', 'INDEX')

考虑到这一点，我认为这样的事情可能会奏效：

BEGIN

    FOR i IN (select 'drop '||object_type||' '|| object_name || ';' from user_objects where object_type in ('VIEW','PACKAGE','SEQUENCE', 'PROCEDURE', 'FUNCTION', 'INDEX'))
    LOOP
        EXECUTE IMMEDIATE i;
    END LOOP;

END;
/

但我明白了：

错误报告 - ORA-06550：第 5 行，第 27 列：PLS-00382：表达式为 错误类型 ORA-06550：第 5 行，第 9 列：PL/SQL：语句被忽略 06550. 00000 - “第 %s 行，第 %s 列：\n%s” *原因：通常是 PL/SQL 编译错误。 *行动：

知道如何执行此操作吗？

Answer 1

execute immediate 需要一个字符串（或 varchar2）参数。你给它一个光标行。给您选择的值一个别名并将其用作参数，并且不要在语句中包含分号，如下所示：

begin
  for i in (select 'drop ' || object_type || ' ' || object_name as stmt
              from user_objects
             where object_type in ('VIEW', 'PACKAGE', 'SEQUENCE', 'PROCEDURE', 'FUNCTION', 'INDEX')) loop
    execute immediate i.stmt;
  end loop;
end;
/

Answer 2

出于测试目的，我使用 Scott 的模式。一旦污染太严重，我会丢弃除 Scott 的默认表之外的所有内容。这是我的脚本；看看它对你的情况是否有帮助。

请注意，您必须多次运行它，因为它不关心外键约束，这些约束不会让您在主表的详细信息存在时删除它们，但这并没有让我感到困扰。

declare
  l_str varchar2(200);
begin
  for cur_r in (select object_name, object_type From user_objects 
                where object_name not in ('EMP', 'DEPT', 'BONUS', 'SALGRADE')
               )
  loop
    begin
      l_str := 'drop ' || cur_r.object_type || ' '|| cur_r.object_name;
      dbms_output.put_Line(l_str);
      execute immediate l_str;
    exception
      when others then null;
    end;
  end loop;
end;
/