如何在Oracle SQL脚本中参数化表名并实现动态导出CSV

核心改造思路 #

原脚本的表名、列名均为硬编码，要实现动态传表名，需借助SQL*Plus的替代变量接收输入，并通过动态SQL自动生成表头和数据行，彻底摆脱硬编码限制。

改造后完整脚本 #

SET ECHO OFF
SET VERIFY OFF
SET TRIMSPOOL ON
SET TRIMOUT ON
SET LINESIZE 9999
SET PAGESIZE 0
SET FEEDBACK OFF
SET TIMING OFF
SET TIME OFF
SET SERVEROUTPUT ON SIZE UNLIMITED

-- 定义替代变量接收目标表名，支持命令行传参或交互式输入
DEFINE TABLE_NAME = &1
-- 动态生成CSV文件名，直接用表名命名，避免覆盖旧文件
SPOOL C:\temp\&TABLE_NAME..csv

DECLARE
    v_heading VARCHAR2(4000);
    v_sql     VARCHAR2(32767);
    v_data    SYS_REFCURSOR;
    v_cols    VARCHAR2(4000);
    v_row     VARCHAR2(32767);
BEGIN
    -- 动态获取表头（排除系统自动生成的列）
    SELECT LISTAGG(column_name, ',') WITHIN GROUP (ORDER BY column_id)
    INTO v_heading
    FROM user_tab_cols
    WHERE table_name = UPPER('&TABLE_NAME')
      AND column_name NOT LIKE '%SYS%';

    DBMS_OUTPUT.PUT_LINE(v_heading);

    -- 动态拼接查询语句，用双引号包裹字段，避免字段含逗号导致CSV格式错乱
    SELECT LISTAGG('"' || column_name || '"', ',') WITHIN GROUP (ORDER BY column_id)
    INTO v_cols
    FROM user_tab_cols
    WHERE table_name = UPPER('&TABLE_NAME')
      AND column_name NOT LIKE '%SYS%';

    v_sql := 'SELECT ' || v_cols || ' FROM ' || UPPER('&TABLE_NAME') || ' ORDER BY 1';

    -- 执行动态SQL并输出所有行
    OPEN v_data FOR v_sql;
    LOOP
        FETCH v_data INTO v_row;
        EXIT WHEN v_data%NOTFOUND;
        -- 转义字段内的双引号（Oracle用两个双引号表示一个双引号）
        v_row := REPLACE(v_row, '"', '""');
        DBMS_OUTPUT.PUT_LINE(v_row);
    END LOOP;
    CLOSE v_data;
END;
/

SPOOL OFF
DISCONNECT
QUIT

使用方法 #

1. 交互式执行：在SQL*Plus中运行脚本，按提示输入表名即可：

   SQL> @C:\temp\Export_dynamic_table.sql
   Enter value for 1: NDR_AVTALE_TYPER
   

2. 命令行传参：直接在命令行指定表名，无需交互：

   sqlplus 用户名/密码@数据库实例 @C:\temp\Export_dynamic_table.sql NDR_AVTALE_TYPER
   

关键优化点 #

• 支持两种传参方式，灵活适配不同使用场景
• 自动处理CSV格式问题：用双引号包裹字段、转义字段内的特殊字符
• 输出文件名与表名绑定，避免文件覆盖
• 用LISTAGG替代循环拼接，代码更简洁高效

内容的提问来源于stack exchange，提问作者goldenbutter