Question

Oracle [存储过程] 执行动态拼接SQL语句并返回结果？？

这是存储过程语句：
CREATE OR REPLACE PROCEDURE P_TEST (p_jbm in varchar2, cur_out out sys_refcursor)
IS
v_sql clob; --可能传入参数很长，超过4000个字符
Begin
v_sql := 'select t.* into cur_out from t_dtjc_zxjcjh t where t.jbm in ('||p_jbm||');';
execute immediate(v_sql);
End;

其中，p_jbm的传入值为： 'XNCVOFfeQ1','XNfB6I0cLh','XNJ4i5xkBu','XN2wG7gAYy','XNqjJMT3jd','XNrMwsqgwc','XNqRUol5Tx','XNXBJfNjcS'

通过v_sql，来创建一个可执行的SQL语句，比如这句话：
select t.* into cur_out from t_dtjc_zxjcjh t where t.jbm in ('XNCVOFfeQ1','XNfB6I0cLh','XNJ4i5xkBu','XN2wG7gAYy','XNqjJMT3jd','XNrMwsqgwc','XNqRUol5Tx','XNXBJfNjcS');

然后，让Oracle去执行，返回一个二维表。

现在的问题是：
execute immediate(v_sql);的时候，总是会报 ORA-00905 missing key
如果v_sql执行成功，怎么返回一个二维表？

Answer 1

建议你用 instr函数,v_sql条件改为
where instr(p_jbm,t.jbm)>0试试吧。

追问

请问，如何将 xx,yy,zz 使用你的Instr方法转换成列？

追答

亲，不明白你的意思，
('XNCVOFfeQ1','XNfB6I0cLh','XNJ4i5xkBu','XN2wG7gAYy','XNqjJMT3jd','XNrMwsqgwc','XNqRUol5Tx','XNXBJfNjcS')，
你的意思是不是把传递过来的列转变成上述字符串？可以用wm_concat()函数

追问

不是哈，如何把传递过来的('XNCVOFfeQ1','XNfB6I0cLh','XNJ4i5xkBu','XN2wG7gAYy','XNqjJMT3jd','XNrMwsqgwc','XNqRUol5Tx','XNXBJfNjcS')这行数据转换成数据列。

追答

亲，你百度一个函数吧，将这样的字符串截取然后填到表里。
CREATE OR REPLACE FUNCTION SPLIT_STR (P_LIST VARCHAR2, P_SEP VARCHAR2)
RETURN TYPE_ARRAY
IS
i INT := 1;
j INT := 0;
LISTLEN INT := 0;
SEPLEN INT := 0;
STR VARCHAR2(200);
ARRAY_SPLIT TYPE_ARRAY := TYPE_ARRAY();
BEGIN
LISTLEN := LENGTH(P_LIST);
SEPLEN := LENGTH (P_SEP);

WHILE j = LISTLEN THEN
EXIT;
END IF;
ELSE
STR := SUBSTR(P_LIST, i, j - i);
i := j + SEPLEN;
ARRAY_SPLIT.EXTEND;
ARRAY_SPLIT(ARRAY_SPLIT.COUNT) := STR;
END IF;
END LOOP;
RETURN ARRAY_SPLIT;
END SPLIT_STR;