怎么結(jié)束loop循環(huán) oracle存儲(chǔ)過(guò)程loop字符串遍歷？
oracle存儲(chǔ)過(guò)程loop字符串遍歷？declare x varchar2(20)v_length inty intv_str varchar2(1)begin x:="wqr3331412rr"
oracle存儲(chǔ)過(guò)程loop字符串遍歷？
declare x varchar2(20)v_length inty intv_str varchar2(1)begin x:="wqr3331412rr" select length(x) into v_length from dual y:=1 while y<=v_length loop select substr(x，y，1) into v_str from dual dbms_output.put_line(v_str) y:=y 1 end loopend
直接運(yùn)行吧，結(jié)果如圖oracle存儲(chǔ)過(guò)程循環(huán)執(zhí)行SQL語(yǔ)句？
CREATE OR REPLACE PACKAGE BODY PKG_A_TESTPACKAGE IS
PROCEDURE PKG_A_TESTPROCEDURE(PRM_參數(shù) IN VARCHAR2，
PRM_返回值 OUT NUMBER，
PRM_錯(cuò)誤信息 OUT VARCHAR2) IS
TYPE CURSOR_TYPE IS REF CURSOR
CUR_SQL CURSOR_TYPE
TYPE TYP_REC_INFO IS RECORD(
COLUMN VARCHAR2(1000))
LREC_INFO TYP_REC_INFO
BEGIN
PRM_返回值 := 0
-- 循環(huán)獲取查詢SQL
FOR REC_SQL IN (SELECT 查詢SQL FROM 存放SQL的表 WHERE 條件) LOOP
BEGIN
OPEN CUR_SQL FOR REC_SQL.查詢SQL
LOOP
-- 獲取查詢的信息
FETCH CUR_SQL
INTO LREC_INFO --存放查詢結(jié)果，這里只針對(duì)單列的查詢結(jié)果
-- 如果沒(méi)有取到退出
EXIT WHEN CUR_SQL%NOTFOUND
END LOOP
CLOSE CUR_SQL
END
END LOOP
EXCEPTION
WHEN OTHERS THEN
PRM_返回值 := -1
PRM_錯(cuò)誤信息 := "執(zhí)行PKG_A_TESTPROCEDURE出錯(cuò)"
END PKG_A_TESTPROCEDURE
END PKG_A_TESTPACKAGE
按照你的思路寫(xiě)的，具體需要根據(jù)你自己實(shí)際需求修改擴(kuò)充一下
oracle存儲(chǔ)過(guò)程中循環(huán)forin是如何使用的？
1、定義帶參數(shù)的游標(biāo)：cursor cur(v_codetype ldcode.Codetype%TYPE) isselect * from ldcode where codetype = v_codetype --定義游標(biāo)定義游標(biāo)格式：cursor 游標(biāo)名稱(變量定義) is 查詢語(yǔ)句2、編寫(xiě)for循環(huán)部分：--游標(biāo)for循環(huán)開(kāi)始for temp in cur("llmedfeetype") loop--temp為臨時(shí)變量名，自己任意起--cur("llmedfeetype")為"游標(biāo)名稱(傳入的變量)"Dbms_Output.put_line(temp.Code) --輸出某個(gè)字段，使用"變量名.列名"即可。end loop--游標(biāo)for循環(huán)結(jié)束3、最后，點(diǎn)擊DBMS Output標(biāo)簽頁(yè)查看結(jié)果，如圖所示，這樣就可以解決問(wèn)題了。