如何将查询返回的多个Policy_ID存入单个Oracle变量？

执行SELECT POLICY_ID INTO VPOLICYID FROM POLICY T WHERE...时返回5行数据，希望将这些数据存入单个变量，但现有代码触发too_many_rows异常。已知每个Policy_ID长度不超过20位，以下是实现方案：

现有问题代码 #

Vpolicyid varchar2(20);

Select t.policyid
Into vpolicyid
From policy to
Where (conditions);
Exception 
When too_many_rows

End;

解决方案 #

方法1：使用LISTAGG聚合函数（推荐） #

利用LISTAGG直接将多行结果拼接成单个字符串，无需循环，代码更简洁。注意要调整变量长度，确保能容纳所有拼接后的内容：

-- 调整变量长度，5个20位ID+4个分隔符至少需要104位，这里定义200位留冗余
vpolicyid varchar2(200);

BEGIN
  SELECT LISTAGG(t.policyid, ',') WITHIN GROUP (ORDER BY t.policyid)
  INTO vpolicyid
  FROM policy t
  WHERE (conditions);
  
  -- 后续可使用vpolicyid变量，例如输出查看结果
  DBMS_OUTPUT.PUT_LINE('拼接后的Policy_ID：' || vpolicyid);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    -- 处理无数据的情况
    vpolicyid := '';
  WHEN OTHERS THEN
    -- 其他异常处理
    RAISE;
END;

方法2：游标循环拼接 #

通过游标逐行读取数据，手动拼接到变量中，适合需要自定义拼接逻辑的场景：

vpolicyid varchar2(200);
v_temp_policyid varchar2(20);
-- 定义游标获取目标数据
CURSOR c_policy_ids IS
  SELECT policyid FROM policy t WHERE (conditions);

BEGIN
  vpolicyid := '';
  OPEN c_policy_ids;
  LOOP
    FETCH c_policy_ids INTO v_temp_policyid;
    EXIT WHEN c_policy_ids%NOTFOUND;
    
    -- 处理分隔符，避免开头或结尾出现多余符号
    IF vpolicyid IS NOT NULL AND vpolicyid <> '' THEN
      vpolicyid := vpolicyid || ',';
    END IF;
    vpolicyid := vpolicyid || v_temp_policyid;
  END LOOP;
  CLOSE c_policy_ids;
  
  DBMS_OUTPUT.PUT_LINE('拼接后的Policy_ID：' || vpolicyid);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    vpolicyid := '';
  WHEN OTHERS THEN
    -- 异常发生时关闭已打开的游标
    IF c_policy_ids%ISOPEN THEN
      CLOSE c_policy_ids;
    END IF;
    RAISE;
END;

注意事项 #

• 必须调整vpolicyid的长度，避免因内容过长触发ORA-06502数值或值错误，需根据实际行数和ID长度计算所需长度。
• 若查询可能返回0行，需添加NO_DATA_FOUND异常处理，避免程序报错。
• 分隔符可根据需求替换为分号、竖线等其他符号。

内容的提问来源于stack exchange，提问作者GYAN PRAKASH GAUTAM