PL/SQL - 嵌套游标 cursor

blog.chinaunix.net

yuechaot…

2008-7-4

保存本文

推荐给好友

收藏本页

欢迎进入Oracle社区论坛，与200万技术人员互动交流 >>进入

cursor() 函数可以将一个查询结果集封装成一个类似 REF CURSOR 的游标变量，可以 FETCH 记录，也可以作为 REF CURSOR 类型的参数进行传递。它被称为“嵌套游标（nested cursor）”。

1. FETCH 记录

我们先看一下测试表 test1 和 test2 的数据：

SQL> select * from test1;

         A
----------
         1
         1
         2
         3

SQL> select * from test2;

        ID NAME
---------- ------------------------------------------
         1 yuechaotian1
         2 yuechaotian2
         3 yuechaotian3
         4 yuechaotian4
         5 yuechaotian5

　　我们可能会发出这样一个查询：

SQL> select id, name, (select a from test1 where a = test2.id)
2 from test2;
select id, name, (select a from test1 where a = test2.id)
*
ERROR 位于第 1 行:
ORA-01427: 单行子查询返回多个行

　　因为表 test1 中有两条 a=1 的记录，所以这个查询执行失败了。但有时候我们确实需要这样的查询，怎么办呢？你可以试试 cursor() 函数：

SQL> set serveroutput on

SQL> declare
2    cursor cur_test2 is
3      select id, name, cursor(select a from test1 where a = test2.id)
4        from test2;
5    rec_test2 test2%rowtype;
6
7    cur_test1 sys_refcursor;
8    rec_test1 test1%rowtype;
9 begin
10    open cur_test2;
11    loop
12      fetch cur_test2 into rec_test2.id, rec_test2.name, cur_test1;
13      exit when cur_test2%notfound;
14      dbms_output.put_line('rec_test2.id: ' || rec_test2.id || ' | rec_test2.name: ' || rec_test2.name);
15      -- 这里不需要再显式 OPEN 游标 cur_test1，也不需要显式关闭
16      loop
17        fetch cur_test1 into rec_test1;
18        exit when cur_test1%notfound;
19        dbms_output.put_line( 'rec_test1.a: ' || rec_test1.a );
20      end loop;
21    end loop;

22 close cur_test2;
23 end;
24 /
rec_test2.id: 1 | rec_test2.name: yuechaotian1
rec_test1.a: 1
rec_test1.a: 1
rec_test2.id: 2 | rec_test2.name: yuechaotian2
rec_test1.a: 2
rec_test2.id: 3 | rec_test2.name: yuechaotian3
rec_test1.a: 3
rec_test2.id: 4 | rec_test2.name: yuechaotian4
rec_test2.id: 5 | rec_test2.name: yuechaotian5

PL/SQL 过程已成功完成。

[1] [2] [3] 下一页

【责编:michael】