先定義一個cursor:
Procedure P_MYPROC (
PI_PARAM VARCHAR2
)IS
VI_A VARCHAR2(10):='';
VI_B VARCHAR2(20):='';
VI_C VARCHAR2(30):='';
--定義
CURSOR MYCUR IS
SELECE T.A ,T.B, T.C
FROM TBL_MYTABLE T;
BEGIN
--打開
OPEN MYCUR;
--遍歷
LOOP
FETCH MYCUR
INTO VI_A,VI_B,VI_C;
--無數據時退出
EXIT WHEN MYCUR%NOTFOUND;
--DO SOMETHING HERE;
END LOOP;
END P_MYPROC;
