转：
Oracle中使用Table()函数解决For循环中不写成 in (l_idlist)形式的问题
在实际PL/SQL编程中，我们要对动态取出来的一组数据，进行For循环处理，其基本程序逻辑为：
| 1 2 3 4 5 6 7 8 9 10 11 12 | create or replace procedure getidlist is l_idlist varchar2(200); begin l_idlist:= ‘1,2,3,4‘ ; for brrs in ( select * from bldroom where bldroomid in (l_idlist)) loop brrs.structure:= ‘钢混‘ ; end loop; end ; / show err; |
1、编译该程序，可以正常通过；
2、执行该程序exec getidlist，系统提示：ORA-01722: invalid number，ORA-06512: at “TT.GETIDLIST”, line 6
解决方案：
| 1 | CREATE OR REPLACE TYPE type_split IS TABLE OF VARCHAR2 (4000); |
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | create or replace function split(p_list varchar2,p_sep varchar2 := ‘,‘ ) return type_split pipelined IS l_idx pls_integer; v_list varchar2(50) := p_list; begin loop l_idx := instr(v_list,p_sep); if l_idx > 0 then pipe row(substr(v_list,1,l_idx-1)); v_list := substr(v_list,l_idx+length(p_sep)); else pipe row(v_list); exit; end if; end loop; return ; end split; |
此时修改getidlist代码如下：
| 1 2 3 4 5 6 7 8 9 10 11 12 | create or replace procedure getidlist is l_idlist varchar2(200); begin l_idlist:= ‘1,2,3,4‘ ; for brrs in ( select * from bldroom where bldroomid in ( select column_value from table (split(l_idlist, ‘,‘ )))) loop brrs.structure:= ‘钢混‘ ; end loop; end ; / show err; |
执行：exec getidlist;
提示错误：ORA-22905: cannot access rows from a non-nested table item
再次修改getidlist代码如下：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | create or replace procedure getidlist is brRow bldroom%rowtype; l_idlist varchar2(200); begin l_idlist:= ‘1,2,3,4‘ ; for idrs in ( select column_value from table (split(l_idlist, ‘,‘ ))) loop select * into brRow from bldroom where bldroomid=idrs.column_value; brRow.structure:= ‘ssss‘ ; end loop; end ; / show err; |
OK,搞定。
附：PL/SQL表—table()函数用法
摘录
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | /* 利用table()函数，我们可以将PL/SQL返回的结果集代替table。 oracle内存表在查询和报表的时候用的比较多，它的速度相对物理表要快几十倍。 */ /* simple example： 1、table()结合数组： */ create or replace type t_test as object( id integer , rq date , mc varchar2(60) ); create or replace type t_test_table as table of t_test; create or replace function f_test_array(n in number default null ) return t_test_table as v_test t_test_table := t_test_table(); begin for i in 1 .. nvl(n,100) loop v_test.extend(); v_test(v_test. count ) := t_test(i,sysdate, ‘mc‘ ||i); end loop; return v_test; end f_test_array; / select * from table (f_test_array(10)); select * from the( select f_test_array(10) from dual); /* 2、table()结合PIPELINED函数： */ create or replace function f_test_pipe(n in number default null ) return t_test_table PIPELINED as v_test t_test_table := t_test_table(); begin for i in 1 .. nvl(n,100) loop pipe row(t_test(i,sysdate, ‘mc‘ ||i)); end loop; return ; end f_test_pipe; / select * from table (f_test_pipe(20)); select * from the( select f_test_pipe(20) from dual); /* 3、table()结合系统包： */ create table test (id varchar2(20)); insert into test values ( ‘1‘ ); commit ; explain plan for select * from test; select * from table (dbms_xplan.display); |
关于错误：ORA-22905: cannot access rows from a non-nested table item 的解决方案，不知各位大侠有没有更好的解决方案？请指教。