oracle游标循环的嵌套 CREATE OR REPLACE PROCEDUREmain_mx AS BEGIN FOR mainout_recordIN( SELECT /*这里的mainout_record直接是游标的每行记录了。另外IN后面如果是select语句，就要加括号，并且select语句结束不用;结尾，IN后面如果是游标名，就不要括号*/ ID,smscontent,allcode,cjr,pretongdaoid,clientid,shr,pretime,cjsj,shstatus,shsj from t_busi_main_presend where shstatus in(‘1′,’9′) and klstatus=’2′) LOOP /* insert into T_BUSI_PRESEND_MX*/ /* CURSOR mainmobile_cursor IS SELECT * FROM TABLE(fn_split(mainout_record.allcode,’,’)); */ FOR mainmobile_record IN (SELECT column_value cv FROM TABLE(fn_split(mainout_record.allcode,’,’))) LOOP /*SELECT column_value cv FROM TABLE(fn_split(mainout_record.allcode,’,’)，这句话是执行fn_split这个函数，函数功能类似java中的split功能，但是oracle本身没有这个函数，所以要自己写，代码是我在网上拷的，注意因为mainout_record.allcode这个记录集就只有“一列”记录，allcode是外层游标查出来的一个列名，所以前面是selectcolumn_value，后面打印值的时候也是写.column_value： 功能描述：用指定分隔符切割输入的字符串，返回一维数组，每个数组素为一个子串。 先： CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000); 再： CREATE OR REPLACE FUNCTION fn_split(p_str IN CLOB, p_delimiter IN VARCHAR2) RETURN ty_str_split IS j INT := 0; i INT := 1; len INT := 0; len1 INT := 0; str VARCHAR2 (4000); str_split ty_str_split := ty_str_split (); BEGIN len := LENGTH (p_str); len1 := LENGTH (p_delimiter); WHILE j < len LOOP j := INSTR (p_str, p_delimiter, i); IF j = 0 THEN j := len; str := SUBSTR (p_str, i); str_split.EXTEND; str_split (str_split.COUNT) := str; IF i >= len THEN EXIT; END IF; ELSE str := SUBSTR (p_str, i, j – i); i := j + len1; str_split.EXTEND; str_split (str_split.COUNT) := str; END IF; END LOOP; RETURN str_split; END fn_split; */ DBMS_OUTPUT.PUT_LINE(mainmobile_record.cv);/*打印结果的时候，直接反键存储过程名–>测试有时是出不来结果的，这时应该”新建”–>”命令窗口”–SQL>set serveroutput on –>execute main_mx(这是存储过程名)，这样才能打印结果 */ END LOOP; END LOOP; END;
2024最新激活全家桶教程，稳定运行到2099年，请移步至置顶文章：https://sigusoft.com/99576.html
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请联系我们举报，一经查实，本站将立刻删除。 文章由激活谷谷主-小谷整理,转载请注明出处：https://sigusoft.com/66959.html
