Oracle认证：Oracle游标使用经验总结

会计考友

显示游标（Explicit Cursor）：在PL/SQL程序中定义的、用于查询的游标称作显示游标。
6 c/ E+ T- C  Q) t! Q: J    隐式游标（Implicit Cursor）：是指非PL/SQL程序中定义的、而且是在PL/SQL中使用UPDATE/DELETE语句时，Oracle系统自动分配的游标。
    一。显示游标
4 x9 s+ c& c5 y& Y    1.使用步骤
    （1）定义 （2）打开 （3）使用 （4）关闭
0 y: d8 M  o0 a' k    2.使用演示
5 i; ]% B/ K* X$ }& p' x" o    首先创建测试用表STUDENT，脚本如下：
( \$ {! x4 O8 f    复制代码 代码如下：
    CREATE TABLE "STUDENT" （
) C# B  j2 H  s9 p    "STUNAME" VARCHAR2（10 BYTE），
    "STUNO" VARCHAR2（4 BYTE），
    "AGE" NUMBER,
+ p, n: B2 D* B! V8 a1 x    "GENDER" VARCHAR2（2 CHAR）
    ）
    （1）。使用WHILE循环处理游标
    create or replace PROCEDURE PROC_STU1 AS
    BEGIN
2 I4 |9 N$ ^; H+ w6 @0 K" ~    --显示游标使用，使用while循环
* q, Q) y. D  L9 D& O. q8 W    declare
1 y0 _+ ~) e3 r, m7 r& R$ a    --1.定义游标，名称为cur_stu
% |7 l3 g6 d5 H, N$ ?    cursor cur_stu is
; y/ u$ l& ^( P0 }    select stuno,stuname from student order by stuno;
! t) Q) F$ ?! d, Y' L    --定义变量，存放游标取出的数据
* x5 L, n$ ?& Y! i7 P    v_stuno varchar（4）；
' H& Z2 K7 R: w+ ?& P9 G) U7 n    v_stuname varchar（20）；
# K# q5 Z" Q+ D# v    begin
    --2.打开游标cur_stu
1 |0 b5 o; b' f: {% K    open cur_stu;
    --3.将游标的当前行取出存放到变量中
- X1 _. T( W( b) W" K7 b    fetch cur_stu into v_stuno,v_stuname;
    while cur_stu%found --游标所指还有数据行，则继续循环
    loop
* B* I! t2 R% X$ D! F    --打印结果
    dbms_output.PUT_LINE（v_stuno||'->'||v_stuname）；
" \. Q# j$ \( u1 u& s, q* c4 e    --继续将游标所指的当前行取出放到变量中
1 P. P) o& a) ?. P) b1 [    fetch cur_stu into v_stuno,v_stuname;
8 I+ V. ?7 j" z2 y" s    end loop;
    close cur_stu; --4.关闭游标
    end;
' X2 U; {- M, F  {+ r    END PROC_STU1;

会计考友

（2）。使用IFELSE代替WHILE循环处理游标
    create or replace PROCEDURE PROC_STU2 AS
    BEGIN
    --显示游标使用，使用if判断
0 B/ O3 b5 L! [) w    declare
    --1.定义游标，名称为cur_stu
    cursor cur_stu is
1 K% B& |/ F2 ^+ _& T% k1 V- A2 a# p    select stuno,stuname from student order by stuno;
    --定义变量，存放游标取出的数据
  `, A  {3 f( z3 A, E    v_stuno varchar（4）；
    v_stuname varchar（20）；
    begin
* D* s  K& {% \    --2.打开游标cur_stu
    open cur_stu;
    --3.将游标的当前行取出存放到变量中
    fetch cur_stu into v_stuno,v_stuname;
' W4 Z0 t7 X4 c% A1 W" }* X    loop
' K( d7 X0 Q; J+ N( q    if cur_stu%found then --如果游标cur_stu所指还有数据行
) F- q) c! |" y% w, K    --打印结果
- k1 O8 A3 M8 K" h  V" H    dbms_output.PUT_LINE（v_stuno||'->'||v_stuname）；
    --继续将游标所指的当前行取出放到变量中
    fetch cur_stu into v_stuno,v_stuname;
    else
    exit;
0 |2 M) ]8 n9 C/ Z7 N% [    end if;
    end loop;
    close cur_stu; --4.关闭游标
    end;
) ?: y% G0 [  B2 L& \5 h  S3 J    END PROC_STU2;
    （3）。使用FOR循环处理游标
    create or replace PROCEDURE PROC_STU3 AS
: I7 }5 ]3 i2 P  w+ |  _    BEGIN
    --显示游标使用，使用for循环
- h- h* a5 x& Q8 p/ G) j' l. B    declare
    --定义游标，名称为cur_stu
    cursor cur_stu is
2 z+ W) F5 r& ?    select stuno,stuname from student order by stuno;
4 u' E' S# q, `  }    begin
    for stu in cur_stu
    loop
    dbms_output.PUT_LINE（stu.stuno||'->'||stu.stuname）；
; W# }# B! j7 K5 N" c! ~. X    --循环做隐含检查 %notfound
) n8 r0 \' _$ I! ~% a, |2 O5 a    end loop;
    --自动关闭游标
    end;
    END PROC_STU3;