快捷導(dǎo)航

Oracle游標(biāo)使用參考語(yǔ)句實(shí)例解析

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

這篇文章主要介紹了Oracle游標(biāo)使用參考語(yǔ)句實(shí)例解析,文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友可以參考下

游標(biāo)是從表中檢索出結(jié)果集，從中每次指向一條記錄進(jìn)行交互的機(jī)制。

作用

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

一個(gè)簡(jiǎn)單實(shí)用：

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

循環(huán)取出數(shù)據(jù)的兩種寫(xiě)法：

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

第二種寫(xiě)法：

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

在存儲(chǔ)過(guò)程中使用游標(biāo)

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 || '開(kāi)始更新...'); 
    Update Emp_0915 t Set t.Sal = t.Sal + 1 Where t.Empno = Empinfo.Empno; 
    Dbms_Output.Put_Line(Cou || '更新結(jié)束...'); 
  End Loop; 
  Commit; 
  Oi_Return := 1; 
Exception 
  When Exc_Return Then 
    Rollback; 
    Oi_Return := 0; 
End;

在oracle中測(cè)試：

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

以上就是本文的全部?jī)?nèi)容，希望對(duì)大家的學(xué)習(xí)有所幫助，也希望大家多多支持腳本之家。

您可能感興趣的文章: