sql存储过程删除用户下所有对象语句

来源：这里教程网时间：2026-02-28 05:58:52 作者：

一个开发中可能会碰到的sql语句，我们利用sql存储过程删除用户下所有对象，有需要的同学可以参考一下哦，很简单的。

代码如下

复制代码

create or replace procedure drop_all as cursor cur_obj is
    uo.OBJECT_NAME, uo.OBJECT_TYPE
      from user_objects uo
     where uo.OBJECT_NAME not in ('DROP_ALL')
       and uo.OBJECT_TYPE not in ('LOB');

/* cursor cur_tablespace is
    select ut.TABLESPACE_NAME
      from user_tablespaces ut
     where ut.TABLESPACE_NAME not in
           ('SYSTEM', 'SYSAUX', 'UNDOTBS1', 'TEMP', 'USERS');*/

v_obj_name         user_objects.OBJECT_NAME%type;
v_obj_type         user_objects.OBJECT_TYPE%type;
/* v_tablespaces_name user_tablespaces.TABLESPACE_NAME%type;*/
sql_str1           varchar2(2000);
/* sql_str2           varchar2(2000);*/
begin
open cur_obj;
loop
    fetch cur_obj
      into v_obj_name, v_obj_type;
    exit when cur_obj%notfound;
    sql_str1 := 'drop ' || v_obj_type || ' ' || v_obj_name;
    execute immediate sql_str1;
end loop;
close cur_obj;
/* open cur_tablespace;
loop
    fetch cur_tablespace
      into v_tablespaces_name;
    exit when cur_tablespace%notfound;
    sql_str2 := 'drop tablespace ' || v_tablespaces_name ||
                ' including contents';
    execute immediate sql_str2;
end loop;
close cur_tablespace;*/
end drop_all;