Oracle 19c PL/SQL：循环修改CLOB变量并返回结果的问题

你的代码核心问题是绑定变量初始为NULL——Oracle中NULL与任何字符串拼接结果仍为NULL，所以循环赋值根本不会生效。另外，循环拼接CLOB效率偏低，针对Oracle 19c和SQL Developer环境，给你几个实用的正确实现方式：

先给绑定变量赋初始空CLOB，再执行循环拼接：

var my_text clob;

begin
  :my_text := empty_clob(); -- 初始化空CLOB，避免NULL陷阱
  for c in (select letter from dummy_table) loop
    :my_text := :my_text || c.letter || chr(10);
  end loop;
end;
/
print my_text; -- SQL Developer中直接用print输出绑定变量，无需加括号

如果拼接后总长度不超过VARCHAR2最大限制（19c为32767字节），可以用LISTAGG直接生成结果再转CLOB：

var my_text clob;

begin
  select listagg(letter || chr(10), '') within group (order by letter)
  into :my_text
  from dummy_table;
end;
/
print my_text;

若数据量过大导致LISTAGG报长度超限，改用下面的方法。

处理大量数据时，DBMS_LOB.APPEND比直接用||运算符效率高很多：

var my_text clob;

begin
  :my_text := empty_clob();
  for c in (select letter from dummy_table) loop
    dbms_lob.append(:my_text, c.letter || chr(10));
  end loop;
end;
/
print my_text;

适合拼接内容远超VARCHAR2上限的情况，直接生成CLOB：

var my_text clob;

begin
  select rtrim(xmlagg(xmlelement(e, letter || chr(10)).extract('//text()') order by letter).getclobval(), chr(10))
  into :my_text
  from dummy_table;
end;
/
print my_text;

• print my_text：SQL Developer中输出绑定变量的最简方式，直接调用即可。
• dbms_output.put_line：需先开启DBMS_OUTPUT（SQL Developer中打开「视图」→「DBMS输出」面板，点击「+」连接当前会话），示例代码：

  set serveroutput on; -- 或通过DBMS输出面板开启
  declare
    my_text clob;
  begin
    my_text := empty_clob();
    for c in (select letter from dummy_table) loop
      dbms_lob.append(my_text, c.letter || chr(10));
    end loop;
    dbms_output.put_line(my_text);
  end;
  /
  

• dbms_sql.return_result：以结果集形式输出，适合需要结构化展示的场景：

  declare
    my_text clob;
  begin
    my_text := empty_clob();
    for c in (select letter from dummy_table) loop
      dbms_lob.append(my_text, c.letter || chr(10));
    end loop;
    dbms_sql.return_result(sys_refcursor(select my_text as result from dual));
  end;
  /
  

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