1.选用何种游标?
显示游标分为：普通游标，参数化游标和游标变量三种。
create or replace procedure proc(p varchar2)
as
v_rownum number(10) := 1;
cursor c1 is select ename from emp where rownum = 1;
cursor c2 is select ename from emp where rownum = v_rownum;
cursor c3(p_rownum number) is select ename from emp where rownum = p_rownum;
type c_c is ref cursor;
c4 c_c;
v1 varchar2(20);
begin
open c1;
fetch c1 into v1;
dbms_output.put_line('1.' || v1);
close c1;
open c2;
fetch c2 into v1;
dbms_output.put_line('2.' || v1);
close c2;
open c3(1);
fetch c3 into v1;
dbms_output.put_line('3.' || v1);
close c3;
open c4 for select ename from emp where rownum = 1;
fetch c4 into v1;
dbms_output.put_line('4.' || v1);
close c4;
end;
-- 调用
call proc(1);
-- 说明
cursor c1 is select ename from emp where rownum = 1;
这一句是定义了一个最普通的游标，把整个查询已经写死,调用时不可以作任何改变。
cursor c2 is select ename from emp where rownum = v_rownum;
这一句并没有写死，查询参数由变量v_rownum来决定。需要注意的是v_rownum必须在这个游标定义之前声明。
cursor c3(p_rownum number) is select ename from emp where rownum = p_rownum;
这一条语句与第二条作用相似，都是可以为游标实现动态的查询。但是它进一步的缩小了参数的作用域范围。但是可读性降低了不少。
type c_c is ref cursor;
c4 c_c;
先定义了一个引用游标类型，然后再声明了一个游标变量。
open c4 for select ename from emp where rownum = 1;
然后再用open for 来打开一个查询。需要注意的是它可以多次使用,用来打开不同的查询。
从动态性来说，游标变量是最好用的，但是阅读性也是最差的。
注意，游标的定义只能用使关键字IS，它与AS不通用。
2.游标的循环策略
create or replace procedure proc1
as
cursor c1 is select ename,sal from emp ;
v1 varchar2(20);
v2 number(4);
begin
open c1;
if c1%found = true then
dbms_output.put_line('found true ...');
elsif c1%found = false then
dbms_output.put_line('found false ...');
else
dbms_output.put_line('found null ...');
end if;
--1.loop循环
loop
fetch c1 into v1,v2;
exit when c1%notfound;
dbms_output.put_line('ename: ' || v1 || ',val:' || v2);
end loop;
dbms_output.put_line('--- loop end ...');
close c1;
/*exit when语句一定要紧跟在fetch之后。必避免多余的数据处理。
处理逻辑需要跟在exit when之后。这一点需要多加小心。
循环结束后要记得关闭游标*/
--2.while循环
open c1;
fetch c1 into v1,v2;
while c1%found loop
dbms_output.put_line('ename: ' || v1 || ',val:' || v2);
fetch c1 into v1,v2;
end loop;
close c1;
dbms_output.put_line('---while end---');
/*
我们知道了一个游标打开后，必须执行一次fetch语句，游标的属性才会起作用。
所以使用while 循环时，就需要在循环之前进行一次fetch动作。
而且数据处理动作必须放在循环体内的fetch方法之前。
循环体内的fetch方法要放在最后。否则就会多处理一次。这一点也要非常的小心。
总之，使用while来循环处理游标是最复杂的方法。
*/
--3.for循环
for v in c1 loop
v1 := v.ename;
v2 := v.sal;
dbms_output.put_line('ename: ' || v1 || ',val:' || v2);
end loop;
dbms_output.put_line('---for end---');
/*
可见for循环是比较简单实用的方法。
首先，它会自动open和close游标。解决了你忘记打开或关闭游标的烦恼。
其它,自动定义了一个记录类型及声明该类型的变量，并自动fetch数据到这个变量中。
我们需要注意v 这个变量无需要在循环外进行声明，无需要为其指定数据类型。
它应该是一个记录类型，具体的结构是由游标决定的。
这个变量的作用域仅仅是在循环体内。
把v看作一个记录变量就可以了，如果要获得某一个值就像调用记录一样就可以了。
如v.ename
由此可见，for循环是用来循环游标的最好方法。高效，简洁，安全。
但遗憾的是，常常见到的却是第一种方法。所以从今之后得改变这个习惯了
*/
end;
--调用
call proc1();
说明：
在打开一个游标之后，马上检查它的%found或%notfound属性，
它得到的结果即不是true也不是false.而是null.
必须执行一条fetch语句后，这些属性才有值。
3.select into不可忽视的问题
<1.>
我们知道在pl/sql中要想从数据表中向变量赋值，需要使用select into 子句。
但是它会带动来一些问题，如果查询没有记录时，会抛出no_data_found异常。
如果有多条记录时，会抛出too_many_rows异常。
这个是比较糟糕的。一旦抛出了异常，就会让过程中断。
特别是no_data_found这种异常，没有严重到要让程序中断的地步，可以完全交给由程序进行处理。
eg1:
create or replace procedure proc2
AS
v varchar2(20);
begin
dbms_output.put_line('---开始：================');
select ename into v from emp where 1 = 0;
dbms_output.put_line('---' || v);
exception
when no_data_found then
dbms_output.put_line('no data found...。。。');
end;
--调用
call proc2();
<2.>
说明：加exception → 这样做换汤不换药，程序仍然被中断。
可能这样不是我们所想要的。
select into做为一个独立的块，在这个块中进行异常处理 。
这是一种比较好的处理方式了。不会因为这个异常而引起程序中断。
如下面的例子：
eg2:
create or replace procedure proc3
as
v varchar2(20);
begin
begin
dbms_output.put_line('---begin...========');
select ename into v from emp where 1 = 0;
dbms_output.put_line('---' || v);
exception
when no_data_found then
dbms_output.put_line('no data found...give new value...');
v := '';
end;
dbms_output.put_line('v :' || v);
end;
-- 调用：
call proc3();
<3.>使用游标：这样就完全的避免了no_data_found异常。完全交由程序员来进行控制了。
eg3:
create or replace procedure proc4
as
v varchar2(20);
cursor c is select ename from emp where 1=0;
begin
open c;
dbms_output.put_line('---begin...========');
fetch c into v;
dbms_output.put_line('v :' || v);
close c;
dbms_output.put_line('end...v :' || v);
end;
--
call proc4();
4. too_many_rows 异常的问题。
Too_many_rows 这个问题比起no_data_found要复杂一些。
给一个变量赋值时，但是查询结果有多个记录。
处理这种问题也有两种情况：
<1>． 多条数据是可以接受的，也就是说从结果集中随便取一个值就行。
这种情况应该很极端了吧，如果出现这种情况，也说明了程序的严谨性存在问题。
<2>． 多条数据是不可以被接受的，在这种情况肯定是程序的逻辑出了问题，也说是说原来根本就不会想到它会产生多条记录。
对于第一种情况，就必须采用游标来处理，而对于第二种情况就必须使用内部块来处理，重新抛出异常。
多条数据可以接受,随便取一条，这个跟no_data_found的处理方式一样，使用游标。
我这里仅说第二种情况，不可接受多条数据，但是不要忘了处理no_data_found哦。
这就不能使用游标了，必须使用内部块。
需要注意的是一定要加上对no_data_found的处理，对出现多条记录的情况则继续抛出异常，让上一层来处理。
总之对于select into的语句需要注意这两种情况了。需要妥当处理啊。
eg4:
create or replace procedure proc5
as
v varchar2(20);
begin
begin
select ename into v from emp where rownum < 5;
exception
when no_data_found then
v := null;
when too_many_rows then
raise_application_error('-20000','对v赋值时，找到多行记录！');
end;
dbms_output.put_line(v);
end;
--
call proc5();
5.在存储过程中返回结果集
见参考文章吧：→ 【http://www.cnblogs.com/chinafine/archive/2010/07/12/1776102.html】
------------------demo---------------------
create or replace procedure proc6(v1 varchar2,v2 number)
as
total number(4) := 0;
cursor c is select * from empa ;-- where 1=0;
begin
if v1is not null and v2 != 0 then
dbms_output.put_line('ok' || v1 || v2);
elsif v1 is null then
dbms_output.put_line('v1 is null');
-- elsif v1 = '' then
-- dbms_output.put_line('v1 is kong...');
elsif v2 = 0 then
dbms_output.put_line('v2 is 0');
end if;
for varObj in c loop
total := c%Rowcount ;
dbms_output.put_line(c%Rowcount || 'empno :' || varObj.empno || 'ename: ' || varObj.ename || 'sal:' || varObj.sal);
end loop;
dbms_output.put_line('total:' || total);
if total <= 0 then
dbms_output.put_line('total:' || total);
raise_application_error('ORA-00973','rownumber is zero!');
end if;
end;
--
call proc6(null,1);
call proc6('',1);-- ''会被认为是null
call proc6('tom',0);
==========================2013-12-17-说明===================
1.texit用来跳出循环 2.return跳出存储过程.参考地址：http://sunrise-king.iteye.com/blog/391374
http://www.jb51.net/article/34230.htm
本文转自韩立伟 51CTO博客，原文链接：http://blog.51cto.com/hanchaohan/1340791，如需转载请自行联系原作者
