循环遍历Oracle中的显式游标

Question

如何循环通过例如查询创建的隐式游标？

下面是示例代码：

SERVEROUTPUT on; 

DECLARE  
    TYPE ref_cursor IS REF CURSOR; 
    cur REF_CURSOR; 

BEGIN 
    OPEN cur FOR 'SELECT i.item_no, 
         i.item_descr 
        FROM ITEMS i 
       WHERE i.item_no in (1,2,3)'; 

    ... loop statement to print all item descriptions? 

END; 

Answer 1

这里是如何做到这一点，允许动态SQL。您可以在代码中构建查询字符串，但需要（通常有关SQL注入应用的警告）。

DECLARE  
    TYPE ref_cursor IS REF CURSOR; 
    cur REF_CURSOR; 

    d_item_no items.item_no%TYPE; 
    d_item_descr items.item_descr%TYPE; 

BEGIN 
    OPEN cur FOR 'SELECT i.item_no, 
         i.item_descr 
        FROM ITEMS i 
       WHERE i.item_no in (1,2,3)'; 
    LOOP 
    FETCH cur INTO d_item_no, d_item_descr; 
    EXIT WHEN cur%NOTFOUND; 
    dbms_output.put_line(d_item_no||' '||d_item_descr); 
    END LOOP; 

    CLOSE cur; 
END; 
/

Answer 2

我不起来11g的变化，但这应该工作：

BEGIN 

    FOR cur IN (SELECT i.item_no, 
        i.item_descr 
       FROM ITEMS i 
       WHERE i.item_no in (1,2,3)) 
    LOOP 
    DBMS_OUTPUT.PUT_LINE('Row: '|| cur.item_no ||' '|| cur.item_descr); 
    END LOOP; 

END;