ref cursor

Oracle 系列：REF Cursor

在上文  Oracle 系列：Cursor  （参见： http://blog.csdn.net/qfs_v/archive/2008/05/06/2404794.aspx ）中

1，什么是游标？
 ①从表中检索出结果集，从中每次指向一条记录进行交互的机制。
   
 ②关系数据库中的操作是在完整的行集合上执行的。
  由 SELECT 语句返回的行集合包括满足该语句的 WHERE 子句所列条件的所有行。由该语句返回完整的行集合叫做结果集。
     应用程序，尤其是互动和在线应用程序，把完整的结果集作为一个单元处理并不总是有效的。
     这些应用程序需要一种机制来一次处理一行或连续的几行。而游标是对提供这一机制的结果集的扩展。

     游标是通过游标库来实现的。游标库是常常作为数据库系统或数据访问 API 的一部分而得以实现的软件，
     用来管理从数据源返回的数据的属性（结果集）。这些属性包括并发管理、在结果集中的位置、返回的行数，
     以及是否能够在结果集中向前和/或向后移动（可滚动性）。

     游标跟踪结果集中的位置，并允许对结果集逐行执行多个操作，在这个过程中可能返回至原始表，也可能不返回至原始表。
     换句话说，游标从概念上讲基于数据库的表返回结果集。
     由于它指示结果集中的当前位置 ，就像计算机屏幕上的光标指示当前位置一样，“游标”由此得名。

2，游标有什么作用？
 ①指定结果集中特定行的位置。
 ②基于当前的结果集位置检索一行或连续的几行。
 ③在结果集的当前位置修改行中的数据。
 ④对其他用户所做的数据更改定义不同的敏感性级别。
 ⑤可以以编程的方式访问数据库。
    
3，为什么避免使用游标？
 ①在创建游标时，最需要考虑的事情是，“是否有办法避免使用游标？”
  因为游标的效率较差，如果游标操作的数据超过1万行，那么就应该改写；
  如果使用了游标，就要尽量避免在游标循环中再进行表连接的操作。

4，Oracle游标的类型？
 ①静态游标：结果集已经确实（静态定义）的游标。分为隐式和显示游标。
  ⑴隐式游标：所有DML语句为隐式游标，通过隐式游标属性可以获取SQL语句信息。
  ⑵显示游标：用户显示声明的游标，即指定结果集。当查询返回结果超过一行时，就需要一个显式游标。
 ②REF游标：动态关联结果集的临时对象。
 
5，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；
  
6，如何使用显示游标,？如何遍历循环游标？
  ①使用显示游标
   ⑴声明游标：划分存储区域，注意此时并没有执行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;
  / 

7，怎样更新和删除显示游标中的记录？
 ①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;/
8，什么是带参数的显示游标？
 ①与过程和函数相似，可以将参数传递给游标并在查询中使用。
  参数只定义数据类型，没有大小(所有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 。

1，什么是 REF游标 ？
 动态关联结果集的临时对象。即在运行的时候动态决定执行查询。
 
2，REF 游标 有什么作用？
 实现在程序间传递结果集的功能，利用REF CURSOR也可以实现BULK SQL，从而提高SQL性能。

3，静态游标和REF 游标的区别是什么？
 ①静态游标是静态定义，REF 游标是动态关联；
 ②使用REF 游标需REF 游标变量。
 ③REF 游标能做为参数进行传递，而静态游标是不可能的。
 
4，什么是REF 游标变量？
 REF游标变量是一种 引用 REF游标类型  的变量，指向动态关联的结果集。

5，怎么使用  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游标名；
 
 例子：强类型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;
 
 例子：弱类型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;

6，怎样让REF游标作为参数传递？