oracle 使用PL/SQL块删除多张表

以下是一个完整的 PL/SQL 匿名块，用于检查 3 张表是否存在，如果存在则删除它们（使用 PURGE 永久删除）：

DECLARE
  -- 定义表名数组
  TYPE table_array IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
  v_tables table_array;
  
  -- 计数变量
  v_count NUMBER;
BEGIN
  -- 初始化要检查的表名
  v_tables(1) := 'TABLE1';  -- 替换为你的第一张表名
  v_tables(2) := 'TABLE2';  -- 替换为你的第二张表名
  v_tables(3) := 'TABLE3';  -- 替换为你的第三张表名
  
  -- 遍历表名数组
  FOR i IN 1..v_tables.COUNT LOOP
    BEGIN
      -- 检查表是否存在
      SELECT COUNT(*)
      INTO v_count
      FROM user_tables
      WHERE table_name = v_tables(i);
      
      -- 如果存在则删除
      IF v_count > 0 THEN
        EXECUTE IMMEDIATE 'DROP TABLE ' || v_tables(i) || ' PURGE';
        DBMS_OUTPUT.PUT_LINE('表 ' || v_tables(i) || ' 已删除');
      ELSE
        DBMS_OUTPUT.PUT_LINE('表 ' || v_tables(i) || ' 不存在，无需删除');
      END IF;
    EXCEPTION
      WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('处理表 ' || v_tables(i) || ' 时出错: ' || SQLERRM);
    END;
  END LOOP;
  
  DBMS_OUTPUT.PUT_LINE('表检查删除操作完成');
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('执行过程中发生错误: ' || SQLERRM);
END;
/

代码说明

1. 表名数组：

   • 使用 TABLE_ARRAY 类型存储要检查的表名
   • 可以方便地添加或删除要检查的表

2. 检查逻辑：

   • 查询 USER_TABLES 视图确认表是否存在
   • 使用 COUNT(*) 判断表是否存在

3. 删除操作：

   • 使用 EXECUTE IMMEDIATE 动态执行 DROP 语句
   • 添加 PURGE 选项直接清除表而不放入回收站

4. 异常处理：

   • 对每张表的操作都有独立的异常处理
   • 主块也有异常处理，防止意外中断

5. 输出信息：

   • 使用 DBMS_OUTPUT.PUT_LINE 输出操作结果
   • 需要先执行 SET SERVEROUTPUT ON 才能看到输出

使用方法

1. 将代码中的 TABLE1, TABLE2, TABLE3 替换为你实际要检查的表名
2. 在 SQL*Plus、SQL Developer 或其他 Oracle 客户端中执行
3. 确保执行用户有删除这些表的权限

变体：使用游标查询所有表

如果需要检查大量表，可以使用游标方式：

DECLARE
  CURSOR c_tables IS
    SELECT table_name 
    FROM user_tables 
    WHERE table_name IN ('TABLE1', 'TABLE2', 'TABLE3');  -- 要检查的表名
    
  v_sql VARCHAR2(100);
BEGIN
  FOR r IN c_tables LOOP
    BEGIN
      v_sql := 'DROP TABLE ' || r.table_name || ' PURGE';
      EXECUTE IMMEDIATE v_sql;
      DBMS_OUTPUT.PUT_LINE('表 ' || r.table_name || ' 已删除');
    EXCEPTION
      WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('删除表 ' || r.table_name || ' 失败: ' || SQLERRM);
    END;
  END LOOP;
END;
/

这种方法更适合需要从数据库查询获取表名列表的场景。