oracle存儲過程循環(huán)執(zhí)行SQL語句？CREATE OR REPLACE PACKAGE BODY PKG_A_TESTPACKAGE ISPROCEDURE PKG_A_TESTPROCEDURE

oracle存儲過程循環(huán)執(zhí)行SQL語句？

CREATE OR REPLACE PACKAGE BODY PKG_A_TESTPACKAGE IS

PROCEDURE PKG_A_TESTPROCEDURE(PRM_參數(shù) IN VARCHAR2，

PRM_返回值 OUT NUMBER，

PRM_錯誤信息 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é)果，這里只針對單列的查詢結(jié)果

-- 如果沒有取到退出

EXIT WHEN CUR_SQL%NOTFOUND

END LOOP

CLOSE CUR_SQL

END

END LOOP

EXCEPTION

WHEN OTHERS THEN

PRM_返回值 := -1

PRM_錯誤信息 := "執(zhí)行PKG_A_TESTPROCEDURE出錯"

END PKG_A_TESTPROCEDURE

END PKG_A_TESTPACKAGE

按照你的思路寫的，具體需要根據(jù)你自己實際需求修改擴充一下

如何在存儲過程中使用Loop？

ascursor應該是ascursorw_namevarchar2這點應該聲明數(shù)據(jù)類型的大小，如：varchar2(50)同時變量名最好不要和字段名同名。begindbms_output.put_line(w_name)end這兒可以不用寫beginend直接寫dbms_output.put_line(w_name)如：CREATEORREPLACEPROCEDURETEST_FORINLOOP()ASCURSORTEST_CURSORISSELECTW_NAMEFROMWORK_ORACLE_TESTV_NAMEWORK_ORACLE_TEST%RowtypeBEGINFORV_NAMEINTEST_CURSORLOOPDBMS_OUTPUT.PUT_LINE(V_NAME)ENDLOOPENDTESTFORINLOOP也可以：CREATEORREPLACEPROCEDURETEST_FORINLOOP()ASCURSORTEST_CURSORISSELECTW_NAMEFROMWORK_ORACLE_TESTV_NAMEVARCHAR2(50)BEGINFORV_NAMEINTEST_CURSORLOOPDBMS_OUTPUT.PUT_LINE(V_NAME)ENDLOOPENDTESTFORINLOOP

oracle存儲過程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