PL/SQL中的游标(cursor)_plsql中cursor-优快云博客

本文链接：https://blog.youkuaiyun.com/u011977189/article/details/70837675

本文详细介绍了PL/SQL中的游标，包括游标的概念、作用、为何避免使用游标，以及Oracle游标的类型和状态。重点讲解了如何使用显示游标、遍历循环游标，以及更新和删除游标中的记录。还提到了带参数的游标和REF CURSOR的使用，强调了游标在数据库操作中的重要性和注意事项。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

PL/SQL中的游标(cursor)

游标的相关概念

什么是游标

从表中检索出结果集，从中每次指向一条记录进行交互的机制。
关系数据库中的操作是在完整的行集合上执行的。
理解：
- 由SELECT 语句返回的行集合包括满足该语句的WHERE 子句所列条件的所有行。由该语句返回完整的行集合叫做结果集。
- 应用程序，尤其是互动和在线应用程序，把完整的结果集作为一个单元处理并不总是有效的。
- 这些应用程序需要一种机制来一次处理一行或连续的几行。而游标是对提供这一机制的结果集的扩展。
- 游标是通过游标库来实现的。游标库是常常作为数据库系统或数据访问API 的一部分而得以实现的软件，用来管理从数据源返回的数据的属性（结果集）。这些属性包括并发管理、在结果集中的位置、返回的行数，以及是否能够在结果集中向前和/或向后移动（可滚动性）。
- 游标跟踪结果集中的位置，并允许对结果集逐行执行多个操作，在这个过程中可能返回至原始表，也可能不返回至原始表。换句话说，游标从概念上讲基于数据库的表返回结果集。由于它指示结果集中的当前位置，就像计算机屏幕上的光标指示当前位置一样，“游标”由此得名。

游标的作用

指定结果集中特定行的位置。
基于当前的结果集位置检索一行或连续的几行。
在结果集的当前位置修改行中的数据。
对其他用户所做的数据更改定义不同的敏感性级别。
可以以编程的方式访问数据库。

为什么避免使用游标

在创建游标时，最需要考虑的事情是，“是否有办法避免使用游标？”
因为游标的效率较差，如果游标操作的数据超过1万行，那么就应该改写；如果使用了游标，就要尽量避免在游标循环中再进行表连接的操作。

Oracle游标的类型

静态游标：结果集已经确实（静态定义）的游标。分为隐式和显示游标。
⑴隐式游标：所有DML语句为隐式游标，通过隐式游标属性可以获取SQL语句信息。
⑵显示游标：用户显示声明的游标，即指定结果集。当查询返回结果超过一行时，就需要一个显式游标。
REF游标：动态关联结果集的临时对象。

Oracle游标的状态有哪些，怎么使用游标属性

游标的状态是通过属性来表示。
- %Found ：Fetch语句（获取记录）执行情况True or False。
- %NotFound : 最后一条记录是否提取出True or False。
- %ISOpen ：游标是否打开True or False。
- %RowCount ：游标当前提取的行数。
使用游标的属性。
例子：

/* conn scott/tiger */
Begin
Update emp Set SAL = SAL + 0.1 Where JOB = ‘CLERK’;
If SQL%Found Then
DBMS_OUTPUT.PUT_LINE(‘已经更新！’);
Else
DBMS_OUTPUT.PUT_LINE(‘更新失败！’);
End If；
End；

显示游标与遍历循环游标

使用显示游标

声明游标：划分存储区域，注意此时并没有执行Select 语句。

CURSOR 游标名( 参数列表) [返回值类型] IS Select 语句；
打开游标：执行Select 语句，获得结果集存储到游标中，此时游标指向结果集头，而不是第一条记录。
Open 游标名( 参数列表);
获取记录：移动游标取一条记录
Fetch 游标名InTo 临时记录或属性类型变量；
关闭游标：将游标放入缓冲池中，没有完全释放资源。可重新打开。
Close 游标名；

遍历循环游标

For 循环游标
循环游标隐式打开游标，自动滚动获取一条记录，并自动创建临时记录类型变量存储记录。处理完后自动关闭游标。
For 变量名 In 游标名
Loop
数据处理语句；
End Loop；
Loop循环游标
Loop
Fatch 游标名InTo 临时记录或属性类型变量；
Exit When 游标名%NotFound；
End Loop；
例子1：
/* conn scott/tiger */
Declare
Cursor myCur is select empno,ename,sal from emp;
vna varchar2(10);
vno number(4);
vsal number(7,2);
Begin
open myCur;
fetch myCur into vno,vna,vsal;
dbms_output.put_line(vno||’ ‘||vna||’ ‘||vsal);
close myCur;
End;
/

例子2：

使用loop遍历游标。

  /* conn scott/tiger */
  Declare
     Cursor myCur is select ename,job,sal,empno from emp;
     varE myCur%rowType;
  Begin
     if myCur%isopen = false then
        open myCur;
        dbms_output.put_line('Opening...');
     end if;
     loop
        fetch myCur into varE;
        exit when myCur%notfound;
        dbms_output.put_line(myCur%rowCount||'    '||vare.empno||'    '||vare.ename||'    '||vare.sal);
     end loop;
     if myCur%isopen then
        Close myCur;
        dbms_output.put_line('Closing...');
     end if;
  End;
  /

例子3：
使用For循环遍历游标,

  /* conn scott/tiger */
  Declare
     Cursor myCur is select * from emp;
  Begin
     for varA in myCur
      loop
         dbms_output.put_line(myCur%rowCount||'    '||varA.empno||'    '||varA.ename||'  '||varA.sal);
      end loop;
  End;
  /

更新和删除显示游标中的记录

UPDATE或DELETE语句中的WHERE CURRENT OF子串专门处理要执行UPDATE或DELETE操作的表中取出的最近的数据。要使用这个方法，在声明游标时必须使用FOR UPDATE子串，当对话使用FOR UPDATE子串打开一个游标时，所有返回集中的数据行都将处于行级（ROW-LEVEL)独占式锁定，其他对象只能查询这些数据行，不能进行UPDATE、DELETE或SELECT…FOR UPDATE操作。在多表查询中，使用OF子句来锁定特定的表,如果忽略了OF子句，那么所有表中选择的数据行都将被锁定。如果这些数据行已经被其他会话锁定，那么正常情况下ORACLE将等待，直到数据行解锁。

使用更新或删除：

声明更新或删除显示游标：

Cursor 游标名IS  SELECT 语句   For Update [ Of  更新列列名]；
Cursor 游标名IS  SELECT 语句   For Delete [ Of  更新列列名]；

使用显示游标当前记录来更新或删除：

Update  表名   SET   更新语句  Where   Current  Of   游标名；
Delete  From  表名   Where   Current  Of   游标名；

例子1:
更新显示游标记录
/conn scott/tiger/
Declare
Cursor myCur is select job from emp for update;
vjob empa.job%type;
rsal empa.sal%type;
Begin
open myCur;
loop
fetch myCur into vjob;
exit when myCur%notFound;
case (vjob)
when ‘ANALYST’ then rsal := 0.1;
when ‘CLERK’ then rsal := 0.2;
when ‘MANAGER’ then rsal := 0.3;
else
rsal := 0.5;
end case;
update emp set sal = sal + rsal where current of myCur;
end loop;
End;
/

例子2：
删除显示游标记录

  /*conn scott/tiger
  Crate table  empa  Select * from scott.emp;
  */
  Declare
    Cursor MyCursor  Select   JOB  From  empa  For  Update;
    vSal   emp.Sal%TYPE;
  Begin
    Loop
     Fetch  MyCursor  InTo  vSal;
     Exit  When  MyCursor%NotFound;
     If   vSal < 800 Then
      Delete  From empa  Where  Cursor  Of   MyCursor;
     End  If;  
    End    Loop;
  End;/

带参数的显示游标

与过程和函数相似，可以将参数传递给游标并在查询中使用。参数只定义数据类型，没有大小(所有Oracle中的形参只定义数据类型，不指定大小)。与过程不同的是，游标只能接受传递的值，而不能返回值。可以给参数设定一个缺省值，当没有参数值传递给游标时，就使用缺省值。游标中定义的参数只是一个占位符，在别处引用该参数不一定可靠。
使用带参数的显示游标
- 声明带参数的显示游标：
```
CURSOR 游标名  [(parameter[,parameter],...)]    IS   Select语句；;
```
- 参数形式：
  1.参数名数据类型
  2.参数名数据类型 DEFAULT 默认值

例子：

  /*conn scott/tiger
  Crate table  empa  Select * from scott.emp;
  */
  Declare
    Cursor MyCursor(pSal  Number  Default   800)  Select   JOB  From  empa Where  SAL >  pSal ;
    varA  MyCursor%ROWTYPE;
  Begin
    Loop
     Fetch  MyCursor  InTo  varA;
     Exit  When  MyCursor%NotFound;
     DBMS_OUTPUT.PUT_LINE(MyCursor%RowCount||'    '||varA.empno||'    '||varA.ename||'  '||varA.sal); 
    End    Loop;
  End;/

REF CURSOR

什么是REF游标？
动态关联结果集的临时对象。即在运行的时候动态决定执行查询。
REF 游标有什么作用？
实现在程序间传递结果集的功能，利用REF CURSOR也可以实现BULK SQL，从而提高SQL性能。
静态游标和REF 游标的区别是什么？
- 静态游标是静态定义，REF 游标是动态关联；
- 使用REF 游标需REF 游标变量。
- 游标能做为参数进行传递，而静态游标是不可能的。
什么是REF 游标变量？
REF游标变量是一种引用REF游标类型的变量，指向动态关联的结果集。
怎么使用 REF游标？
- 声明REF 游标类型，确定REF 游标类型；
  - 强类型REF游标：指定retrun type，REF 游标变量的类型必须和return type一致。
    语法：Type REF游标名 IS Ref Cursor Return 结果集返回记录类型；
  - 弱类型REF游标：不指定return type，能和任何类型的CURSOR变量匹配，用于获取任何结果集。
    语法：Type REF游标名 IS Ref Cursor；
- 声明Ref 游标类型变量；
  语法：变量名已声明Ref 游标类型；
- 打开REF游标，关联结果集；
  语法：Open Ref 游标类型变量 For 查询语句返回结果集；
- 获取记录，操作记录；
  语法：Fatch REF游标名InTo 临时记录类型变量或属性类型变量列表；
- 关闭游标，完全释放资源；
  语法：Close REF游标名；

例子1：

强类型REF游标

 /*conn scott/tiger*/
 Declare
  Type MyRefCurA IS  REF CURSOR RETURN emp%RowType;
  Type MyRefCurB IS  REF CURSOR RETURN emp.ename%Type;
  vRefCurA  MyRefCurA;
  vRefCurB  MyRefCurB;
  vTempA  vRefCurA%RowType;
  vTempB  vRefCurB.ename%Type;

 Begin
  Open  vRefCurA  For Select  *  from   emp   Where  SAL > 2000;
  Loop
   Fatch  vRefCurA InTo  vTempA;
   Exit  When  vRefCurA%NotFound;
   DBMS_OUTPUT.PUT_LINE(vRefCurA%RowCount||'  '|| vTempA.eno||'  '||vTempA.ename ||'  '||vTempA.sal)
  End Loop;
  Close vRefCurA;

  DBMS_OUTPUT.PUT_LINE('-------------------------------------------------------------------------------------------------------');

  Open  vRefCurB  For Select  ename  from   emp   Where  SAL > 2000;
  Loop
   Fatch  vRefCurB InTo  vTempB;
   Exit  When  vRefCurB%NotFound;
   DBMS_OUTPUT.PUT_LINE(vRefCurB%RowCount||'  '||vTempB)
  End Loop;
  Close vRefCurB;

  DBMS_OUTPUT.PUT_LINE('-------------------------------------------------------------------------------------------------------');  

  Open  vRefCurA  For Select  *  from   emp   Where  JOB = 'CLERK';
  Loop
   Fatch  vRefCurA InTo  vTempA;
   Exit  When  vRefCurA%NotFound;
   DBMS_OUTPUT.PUT_LINE(vRefCurA%RowCount||'  '|| vTempA.eno||'  '||vTempA.ename ||'  '||vTempA.sal)
  End Loop;
  Close vRefCurA;
 End;

例子2：

弱类型REF游标

 /*conn scott/tiger*/
 Declare
  Type MyRefCur  IS  Ref  Cursor;
  vRefCur MyRefCur;
  vtemp  vRefCur%RowType;
 Begin
  Case(&n)
   When  1 Then Open vRefCur  For Select   *   from emp;
   When  2 Then Open vRefCur  For Select   *   from dept;
   Else
    Open vRefCur  For Select   eno,  ename  from emp Where JOB = 'CLERK';
  End Case;
  Close  vRefCur;
 End;