如何将ORACLE游标数据转换为JSON格式？

ORACLE解析游标生成JSON 1. 背景 存储过程中使用oracleutl_http调用rest接口,并以JSON的方式传输数据.此需求下,业务和环境有如下限制: 业务已经通过sys_refcursor生成了业务数据,不希望重新编写存储过程 当前ORACLE版本为11G,不支持JSON操作 2. 思路 需要将游标转换为文本,有以下两个方法 使用游标生成XML,从XML转JSON,比较繁琐,如何生成XML,可参考ORACLE游标序列化 直接解析sys_refcursor,生成JSON数据,比较合理 第一种方法,适合接口为xml正文的接口,比如SOAP协议接口.若需要接口为json正文,还需要将XML转为JSON.需要掌握Oracle中的XML操作 第二种方法,直接转成JSON文本,需要借助DBMS_SQL解析游标数据 不管使用哪种方法,接口传输多为大文本,需要使用DBMS_LOB对文本进行文本操作 3. 实现 主要分为以下几个步骤 使用 DBMS_SQL.to_cursor_number 获取游标ID 使用 DBMS_SQL.DESCRIBE_COLUMNS 获取列数以及列信息 使用 DBMS_SQL.DEFINE_COLUMN 循环定义列类型 使用 DBMS_SQL.FETCH_ROWS 遍历数据 使用 DBMS_SQL.COLUMN_VALUE 获取每一列值 使用 DBMS_SQL.CLOSE_CURSOR 关闭游标 其中能获取到到列信息如下 -- author : herbert 公众号: 小满小慢 日期: 2025-11-11 type desc_rec is record ( col_type binary_integer := 0, col_max_len binary_integer := 0, col_name varchar2(32) := '', col_name_len binary_integer := 0, col_schema_name varchar2(32) := '', col_schema_name_len binary_integer := 0, col_precision binary_integer := 0, col_scale binary_integer := 0, col_charsetid binary_integer := 0, col_charsetform binary_integer := 0, col_null_ok boolean := TRUE); 具体测试代码如下 declare v_cursor_id NUMBER; v_col_count BINARY_INTEGER; v_col_desc DBMS_SQL.DESC_TAB; v_value VARCHAR2(4000); v_row_data VARCHAR2(4000); v_p_refcursor sys_refcursor; BEGIN open v_p_refcursor FOR select '小游戏1' F_A, '地心侠士' F_B from dual union all select '小游戏2', '地心侠士' from dual; v_cursor_id := DBMS_SQL.to_cursor_number(v_p_refcursor); DBMS_SQL.DESCRIBE_COLUMNS(v_cursor_id, v_col_count, v_col_desc); FOR i IN 1 .. v_col_count LOOP DBMS_SQL.DEFINE_COLUMN(v_cursor_id, i, v_value, 4000); END LOOP; WHILE DBMS_SQL.FETCH_ROWS(v_cursor_id) > 0 LOOP v_row_data := ''; FOR i IN 1 .. v_col_count LOOP DBMS_SQL.COLUMN_VALUE(v_cursor_id, i, v_valu