Oracle如何在循环内追加拼接值并在循环外部访问

你现有代码的问题是循环内每次都对strval做全量赋值，直接覆盖了上一轮循环存储的值，按以下调整即可实现累加拼接，且循环外可访问最终结果：

• 首先在循环外部初始化strval变量，提前写入固定前缀Val = ，避免循环内重复拼接前缀
• 循环内改用追加赋值的逻辑，把当前游标的记录值拼接到strval已有内容的末尾，不要直接覆盖变量
• 声明strval时预留足够的字符串长度，防止拼接内容过长触发长度溢出错误

修正后的完整代码示例：

DECLARE
  -- 声明变量时根据实际拼接长度设置足够的VARCHAR2长度
  strval VARCHAR2(2000);
  -- 此处省略你原有的cursor1游标声明、rec1记录类型声明代码
BEGIN
  -- 循环前初始化固定前缀
  strval := 'Val = ';

  OPEN cursor1;
  LOOP
    FETCH cursor1 INTO rec1;
    EXIT WHEN cursor1%NOTFOUND;
    -- 追加拼接当前记录值，用空格分隔每一组内容
    strval := strval || rec1.queue || rec1.steps || ' ';
  END LOOP;
  CLOSE cursor1;

  -- 去除拼接后末尾多余的空格
  strval := TRIM(strval);

  -- 此处循环外即可直接访问完整拼接结果，输出值为 Val = 1A 2B 3C 4D 5R
  DBMS_OUTPUT.PUT_LINE(strval);
END;
/

额外说明 #

• 如果游标数据量较大，拼接后的字符串长度可能超过VARCHAR2的普通长度上限（PL/SQL中VARCHAR2最大支持32767字节），可以考虑改用CLOB类型存储拼接结果
• 若不想要末尾多余空格，除了用TRIM()，也可以在循环内判断是否为第一条记录，非第一条记录拼接前先加空格，避免末尾产生冗余空格

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