PL/SQL高效处理带参游标：单查询实现分供应商导出CSV

嘿，这个场景我经常碰到！你现在用双游标实现的方式，确实会因为重复扫描表、执行多次查询带来额外的性能开销——尤其是当你的查询逻辑复杂、数据量很大的时候，重复计算的问题会更突出。

咱们可以换个思路：只执行一次查询，把所有数据按供应商排序后遍历，在遍历过程中根据供应商的变化切换输出文件，这样全程只需要数据库扫描一次表，彻底避免重复计算。

核心思路 #

1. 执行一次包含所有所需字段的查询，并且按SUPPLIER字段排序，确保同一供应商的所有数据连续出现
2. 遍历结果集时，维护一个“当前供应商”的变量，每次遇到新的供应商，就关闭上一个文件（如果存在），创建并打开新的供应商CSV文件
3. 逐行将数据写入当前打开的文件中

完整示例代码 #

-- 先确保UTL_FILE的目录已创建并授权（根据实际情况修改）
-- CREATE DIRECTORY CSV_DIR AS '/your/csv/output/path/';
-- GRANT READ, WRITE ON DIRECTORY CSV_DIR TO YOUR_USER;

DECLARE
    CURSOR c_all_data IS
        SELECT SUPPLIER, data1, data2
        FROM SUPPLIER_DATA
        ORDER BY SUPPLIER; -- 关键：按供应商排序，确保同供应商数据连续
        
    v_current_supplier VARCHAR2(50);
    v_file_handle UTL_FILE.FILE_TYPE;
    v_dir VARCHAR2(100) := 'CSV_DIR'; -- 对应上面创建的目录名
BEGIN
    FOR r_data IN c_all_data LOOP
        -- 当遇到新的供应商，切换文件
        IF r_data.SUPPLIER != v_current_supplier THEN
            -- 关闭之前的文件（如果已打开）
            IF UTL_FILE.IS_OPEN(v_file_handle) THEN
                UTL_FILE.FCLOSE(v_file_handle);
            END IF;
            
            -- 更新当前供应商
            v_current_supplier := r_data.SUPPLIER;
            
            -- 创建新的CSV文件，文件名用供应商名命名
            v_file_handle := UTL_FILE.FOPEN(
                location    => v_dir,
                filename    => v_current_supplier || '.csv',
                open_mode   => 'w',
                max_linesize => 32767
            );
            
            -- 可选：写入CSV表头（按需开启）
            UTL_FILE.PUT_LINE(v_file_handle, 'SUPPLIER,DATA1,DATA2');
        END IF;
        
        -- 写入当前行的数据（注意：如果字段含逗号/引号需额外处理，这里简化示例）
        UTL_FILE.PUT_LINE(v_file_handle, 
            r_data.SUPPLIER || ',' || 
            r_data.data1 || ',' || 
            r_data.data2
        );
    END LOOP;
    
    -- 关闭最后一个文件
    IF UTL_FILE.IS_OPEN(v_file_handle) THEN
        UTL_FILE.FCLOSE(v_file_handle);
    END IF;
    
    DBMS_OUTPUT.PUT_LINE('所有CSV文件生成完成！');
EXCEPTION
    WHEN OTHERS THEN
        -- 异常时确保文件被关闭
        IF UTL_FILE.IS_OPEN(v_file_handle) THEN
            UTL_FILE.FCLOSE(v_file_handle);
        END IF;
        RAISE; -- 重新抛出异常便于排查问题
END;
/

为什么这个方案更高效？ #

• 单次查询，单次表扫描：数据库只需要执行一次SELECT操作，扫描一次表（或索引），避免了原来N+1次查询的开销（N是供应商数量）
• 避免重复计算：如果你的查询逻辑包含复杂的关联、聚合或者函数计算，这种方式只需要计算一次，而不是每个供应商都重复计算一遍
• 更低的资源开销：不需要维护两个游标，遍历过程更简洁，减少了PL/SQL引擎的上下文切换

注意事项 #

• 确保UTL_FILE的目录已正确创建并授权，否则会出现权限错误
• 如果数据中包含逗号、双引号等CSV特殊字符，需要额外处理（比如用双引号包裹字段），避免CSV格式混乱
• 可以根据实际需求调整文件名格式、表头内容和数据格式化逻辑

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