Oracle 复制表并重命名为原表名+年月日

以下是一个完整的 PL/SQL 块，用于复制表并在新表名后添加当前年月日后缀：

DECLARE
  -- 定义要复制的表名数组
  TYPE table_array IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
  v_tables table_array;
  
  -- 定义变量
  v_sql VARCHAR2(2000);
  v_new_table_name VARCHAR2(50);
  v_date_suffix VARCHAR2(8);
  v_table_exists NUMBER;
BEGIN
  -- 初始化要复制的表名
  v_tables(1) := 'EMPLOYEES';    -- 替换为你的表1
  v_tables(2) := 'DEPARTMENTS';  -- 替换为你的表2
  v_tables(3) := 'SALARIES';     -- 替换为你的表3
  
  -- 获取当前日期后缀（格式：YYYYMMDD）
  v_date_suffix := TO_CHAR(SYSDATE, 'YYYYMMDD');
  
  -- 遍历表名数组
  FOR i IN 1..v_tables.COUNT LOOP
    BEGIN
      -- 检查源表是否存在
      SELECT COUNT(*)
      INTO v_table_exists
      FROM user_tables
      WHERE table_name = v_tables(i);
      
      IF v_table_exists = 0 THEN
        DBMS_OUTPUT.PUT_LINE('警告：表 ' || v_tables(i) || ' 不存在，跳过');
        CONTINUE;
      END IF;
      
      -- 构建新表名（原表名+YYYYMMDD）
      v_new_table_name := v_tables(i) || '_' || v_date_suffix;
      
      -- 检查新表名是否已存在
      SELECT COUNT(*)
      INTO v_table_exists
      FROM user_tables
      WHERE table_name = v_new_table_name;
      
      IF v_table_exists > 0 THEN
        DBMS_OUTPUT.PUT_LINE('警告：表 ' || v_new_table_name || ' 已存在，跳过');
        CONTINUE;
      END IF;
      
      -- 构建并执行复制表的SQL
      v_sql := 'CREATE TABLE ' || v_new_table_name || ' AS SELECT * FROM ' || v_tables(i);
      EXECUTE IMMEDIATE v_sql;
      
      DBMS_OUTPUT.PUT_LINE('成功：表 ' || v_tables(i) || ' 已复制为 ' || v_new_table_name);
      
    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. 表名后缀格式：

   • 使用 TO_CHAR(SYSDATE, 'YYYYMMDD') 获取当前日期
   • 生成的新表名格式为：原表名_20231115（假设当天是2023年11月15日）

2. 安全检查：

   • 检查源表是否存在
   • 检查目标表是否已存在，避免冲突
   • 每个表操作都有独立的异常处理

3. 复制方法：

   • 使用 CREATE TABLE ... AS SELECT 语句复制表结构和数据
   • 这种方法会复制数据，但不会复制约束、索引、触发器等对象

变体：只复制表结构（不复制数据）

如果只需要复制表结构而不复制数据：

v_sql := 'CREATE TABLE ' || v_new_table_name || ' AS SELECT * FROM ' || v_tables(i) || ' WHERE 1=0';

变体：使用 DBMS_METADATA 完整复制表定义

如果需要复制表的所有属性（包括约束、索引等）：

DECLARE
  -- ...（前面变量声明相同）
  v_ddl CLOB;
BEGIN
  -- ...（前面检查逻辑相同）
  
  -- 获取完整表定义
  v_ddl := DBMS_METADATA.GET_DDL('TABLE', v_tables(i));
  
  -- 替换表名
  v_ddl := REPLACE(v_ddl, 'TABLE "' || v_tables(i) || '"', 'TABLE "' || v_new_table_name || '"');
  
  -- 执行DDL
  EXECUTE IMMEDIATE v_ddl;
  
  -- 复制数据（可选）
  EXECUTE IMMEDIATE 'INSERT INTO ' || v_new_table_name || ' SELECT * FROM ' || v_tables(i);
  
  -- ...（其余代码相同）
END;
/

注意事项

1. 执行用户需要有足够的权限（CREATE TABLE, SELECT 等）
2. 对于大表，复制操作可能会消耗较多时间和临时表空间
3. 在生产环境执行前，建议先在测试环境验证
4. 如果表有外键约束，需要特殊处理（上述简单方法可能不适用）

您可以根据实际需求调整上述代码中的表名和复制逻辑。