Oracle游標使用參考語句實例解析

更新時間：2020年11月04日 10:00:47 作者：cuisuqiang

這篇文章主要介紹了Oracle游標使用參考語句實例解析,文中通過示例代碼介紹的非常詳細，對大家的學習或者工作具有一定的參考學習價值,需要的朋友可以參考下

游標是從表中檢索出結果集，從中每次指向一條記錄進行交互的機制。

作用

指定結果集中特定行的位置。
基于當前的結果集位置檢索一行或連續(xù)的幾行。
在結果集的當前位置修改行中的數據。
對其他用戶所做的數據更改定義不同的敏感性級別。
可以以編程的方式訪問數據庫。

一個簡單實用：

Declare 
  -- 聲明游標  
  Cursor Mycur Is 
    Select * From Emp; 
  Empinfo Emp%Rowtype; 
  Cou   Number; 
Begin 
  -- 游標操作使用循環(huán)，但是在操作之前必須先將游標打開  
  For Empinfo In Mycur Loop 
    Cou := Mycur%Rowcount; 
    Dbms_Output.Put_Line('行號：' || Cou || '  雇員編號：' || Empinfo.Empno || '  雇員姓名：' || Empinfo.Ename); 
  End Loop; 
End;

循環(huán)取出數據的兩種寫法：

Declare 
  -- 聲明游標  
  Cursor Mycur Is 
    Select * From Emp; -- List (EmpPo)  
  Empinfo Emp%Rowtype; 
  Cou   Number; 
Begin 
  -- 游標操作使用循環(huán)，但是在操作之前必須先將游標打開  
  If Mycur%Isopen Then 
    Null; 
  Else 
    Open Mycur; 
  End If; 
  -- 使游標向下一行  
  Fetch Mycur 
    Into Empinfo; 
  -- 判斷此行是否有數據被發(fā)現  
  While (Mycur%Found) Loop 
    Cou := Mycur%Rowcount; 
    Dbms_Output.Put_Line('行號：' || Cou || '  雇員編號：' || Empinfo.Empno || '  雇員姓名：' || Empinfo.Ename); 
    -- 修改游標，繼續(xù)向下  
    Fetch Mycur 
      Into Empinfo; 
  End Loop; 
End;

第二種寫法：

Declare 
  -- 聲明游標 
  Cursor Mycur Is 
    Select * From Emp; 
  Empinfo Emp%Rowtype; 
  Cou   Number; 
Begin 
  -- 游標操作使用循環(huán)，但是在操作之前必須先將游標打開  
  If Mycur%Isopen Then 
    Null; 
  Else 
    Open Mycur; 
  End If; 
  Loop 
    -- 使游標向下一行  
    Fetch Mycur 
      Into Empinfo; 
    Exit When Mycur%Notfound; 
    Cou := Mycur%Rowcount; 
    Dbms_Output.Put_Line('行號：' || Cou || '  雇員編號：' || Empinfo.Empno || '  雇員姓名：' || Empinfo.Ename); 
  End Loop; 
End;

在存儲過程中使用游標

Create Or Replace Procedure Myproc(Oi_Return Out Integer) Is 
  Cursor Mycur Is 
    Select * From Emp_0915; 
  Empinfo Emp_0915%Rowtype; 
  Cou   Number; 
  Exc_Return Exception; -- 程序中間返回自定義異常 
Begin 
  If Mycur%Isopen Then 
    Null; 
  Else 
    Open Mycur; 
  End If; 
  Loop 
    Fetch Mycur 
      Into Empinfo; 
    Exit When Mycur%Notfound; 
    Cou := Mycur%Rowcount; 
    Dbms_Output.Put_Line(Cou || '開始更新...'); 
    Update Emp_0915 t Set t.Sal = t.Sal + 1 Where t.Empno = Empinfo.Empno; 
    Dbms_Output.Put_Line(Cou || '更新結束...'); 
  End Loop; 
  Commit; 
  Oi_Return := 1; 
Exception 
  When Exc_Return Then 
    Rollback; 
    Oi_Return := 0; 
End;

在oracle中測試：

Declare 
  Re Integer; 
Begin 
  Myproc(Re); 
  If Re = 1 Then 
    Dbms_Output.Put_Line(Re || '：執(zhí)行結束。。。'); 
  Else 
    Dbms_Output.Put_Line(Re || '：執(zhí)行錯誤_______'); 
  End If; 
End;

以上就是本文的全部內容，希望對大家的學習有所幫助，也希望大家多多支持腳本之家。

您可能感興趣的文章: