plsql保留年份表同时删除其他表数据

在Oracle PL/SQL中，如果你想保留某个表（比如"YEAR_TABLE"）的数据，同时删除其他表的所有数据，你可以使用DDL（Data Definition Language）语句。这里是一个简单的示例：

DECLARE
   cursor_table_name CURSOR FOR SELECT table_name FROM user_tables WHERE owner = 'YOUR_SCHEMA'; -- 替换'YOUR_SCHEMA'为你需要操作的用户
BEGIN
   OPEN cursor_table_name;
   
   LOOP
      FETCH cursor_table_name INTO :table_to_drop; -- 变量table_to_drop存储当前遍历到的表名
      EXIT WHEN cursor_table_name%NOTFOUND;

      EXECUTE IMMEDIATE 'DELETE * FROM ' || :table_to_drop; -- 删除表中的所有记录
      DBMS_OUTPUT.PUT_LINE('Table ' || :table_to_drop || ' has been cleared.');
   END LOOP;

   CLOSE cursor_table_name;
   
   -- 仅保留YEAR_TABLE表，例如
   EXECUTE IMMEDIATE 'ALTER TABLE YEAR_TABLE DROP CONSTRAINT ALL'; -- 如果有外键约束
   EXECUTE IMMEDIATE 'TRUNCATE TABLE YEAR_TABLE'; -- 清空数据但保留结构
   DBMS_OUTPUT.PUT_LINE('Year Table data preserved.');

EXCEPTION
   WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE ('An error occurred: ' || SQLERRM);
END;
/

请确保在运行此脚本前，备份重要数据，并确认表名、用户（'YOUR_SCHEMA'）、以及是否真的希望执行删除操作。