PL/SQL遍历符合条件日期列并拼接日期的循环实现方法

方案1：隐式游标FOR循环（推荐） #

这是PL/SQL中最简洁的循环方式，无需手动管理游标生命周期，适配大多数常规场景。假设目标表为your_table，日期列名为date_col：

DECLARE
    v_result VARCHAR2(4000); -- 若匹配数据量较大，建议改用CLOB类型避免长度溢出
BEGIN
    FOR rec IN (
        SELECT date_col
        FROM your_table
        WHERE date_col >= TRUNC(SYSDATE) -- 筛选当天及之后的日期，TRUNC取当日零点
        ORDER BY date_col -- 可选：按日期排序，保证拼接顺序符合逻辑
    ) LOOP
        -- 处理首个元素，避免开头出现多余连字符
        IF v_result IS NULL THEN
            v_result := TO_CHAR(rec.date_col, 'YYYYMMDD');
        ELSE
            v_result := v_result || '-' || TO_CHAR(rec.date_col, 'YYYYMMDD');
        END IF;
    END LOOP;

    -- 可根据需求替换为存储到变量、写入表等操作
    DBMS_OUTPUT.PUT_LINE('拼接结果：' || v_result);
END;
/

方案2：显式游标循环 #

如果需要精细控制游标流程（比如中途中断循环、自定义异常处理），可以使用显式游标：

DECLARE
    CURSOR c_target_dates IS
        SELECT date_col
        FROM your_table
        WHERE date_col >= TRUNC(SYSDATE)
        ORDER BY date_col;
    v_current_date DATE;
    v_result VARCHAR2(4000);
BEGIN
    OPEN c_target_dates;
    LOOP
        FETCH c_target_dates INTO v_current_date;
        EXIT WHEN c_target_dates%NOTFOUND; -- 游标取完数据时退出循环

        IF v_result IS NULL THEN
            v_result := TO_CHAR(v_current_date, 'YYYYMMDD');
        ELSE
            v_result := v_result || '-' || TO_CHAR(v_current_date, 'YYYYMMDD');
        END IF;
    END LOOP;
    CLOSE c_target_dates;

    DBMS_OUTPUT.PUT_LINE('拼接结果：' || v_result);
EXCEPTION
    WHEN OTHERS THEN
        IF c_target_dates%ISOPEN THEN
            CLOSE c_target_dates; -- 异常时确保游标正常关闭
        END IF;
        RAISE;
END;
/

关键细节说明 #

• TRUNC(SYSDATE)：将系统日期截断至当日零点，确保筛选范围包含当天所有时刻的数据；若需精确匹配当前时间点之后的数据，直接用SYSDATE替代即可。
• TO_CHAR(date_col, 'YYYYMMDD')：标准化DATE类型到指定格式的字符串转换。
• 长度适配：如果匹配的日期条目较多，VARCHAR2(4000)可能不够用，建议改用CLOB类型存储结果。

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