Oracle中删除用户下所有对象

最新推荐文章于 2024-07-16 14:52:32 发布

会飞的悢

最新推荐文章于 2024-07-16 14:52:32 发布

阅读量1.1k

点赞数

分类专栏：数据库文章标签： oracle sql

本文链接：https://blog.csdn.net/skyline813/article/details/74004880

版权

数据库专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Oracle中删除用户下所有对象

SQL语句：

DECLARE
  TYPE name_list IS TABLE OF VARCHAR2(100);
  TYPE type_list IS TABLE OF VARCHAR2(100);
  --表对象
  Tab_name name_list := name_list();
  Tab_type type_list := type_list();
  sql_str VARCHAR2(1000);
BEGIN
  sql_str := 'SELECT UO.OBJECT_NAME, UO.OBJECT_TYPE FROM USER_OBJECTS UO
  WHERE UO.OBJECT_TYPE NOT IN (''INDEX'', ''LOB'')
  AND SUBSTR(UO.OBJECT_NAME, 0, 4) <> ''BIN$''
  ORDER BY UO.OBJECT_NAME ASC';

  EXECUTE IMMEDIATE sql_str BULK COLLECT INTO Tab_name,Tab_type;
  --删除对象
  FOR i IN Tab_name.FIRST.. Tab_name.LAST LOOP
    sql_str := 'DROP ' || Tab_type(i) ||' "'|| Tab_name(i)||'" CASCADE CONSTRAINTS';
    dbms_output.put_line(sql_str);
    EXECUTE IMMEDIATE sql_str;
  END LOOP;
  dbms_output.put_line('已成功删除对象');
END;
/