简单测试动态游标（REF CURSOR）的使用
SET SERVEROUTPUT ON
DECLARE
TYPE TCUR IS REF CURSOR;
CUR TCUR;
AC_WHERE VARCHAR2(100);
AC VARCHAR2(100);
BEGIN
AC_WHERE := '(31044,31048)';
OPEN CUR FOR 'SELECT OBJECT_ID FROM USER_OBJECTS WHERE OBJECT_ID IN '|| AC_WHERE;
LOOP
FETCH CUR INTO AC;
EXIT WHEN CUR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(AC);
END LOOP;
CLOSE CUR;
END;
/[@more@]
DECLARE
TYPE TCUR IS REF CURSOR;
CUR TCUR;
AC_WHERE VARCHAR2(100);
AC VARCHAR2(100);
BEGIN
AC_WHERE := '(31044,31048)';
OPEN CUR FOR 'SELECT OBJECT_ID FROM USER_OBJECTS WHERE OBJECT_ID IN '|| AC_WHERE;
LOOP
FETCH CUR INTO AC;
EXIT WHEN CUR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(AC);
END LOOP;
CLOSE CUR;
END;
/[@more@]
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/802415/viewspace-842461/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
浅谈LogMiner的使用(转载)
请登录后发表评论
登录
全部评论
