Oracle游标使用参考语句实例解析

发布时间:2022-04-20 发布网站:脚本宝典
脚本宝典收集整理的这篇文章主要介绍了Oracle游标使用参考语句实例解析脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。

游标是从表中检索出结果集,从中每次指向一条记录进行交互的机制。

作用

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

一个简单实用:

Declare 
  -- 声明游标  
  Cursor Mycur Is 
    Select * From Emp; 
  Empinfo Emp%RowtyPE; 
  Cou   Number; 
Begin 
  -- 游标操作使用循环,但是在操作之前必须先将游标打开  
  For Empinfo In Mycur Loop 
    Cou := Mycur%rowcount; 
    Dbms_Output.Put_Line('行号:' || Cou || '  雇员编号:' || Empinfo.Empno || '  雇员姓名:' || Empinfo.Ename); 
  End Loop; 
End; 

循环取出数据的两种写法:

Declare 
  -- 声明游标  
  Cursor Mycur Is 
    Select * From Emp; -- List (EmpPo)  
  Empinfo Emp%Rowtype; 
  Cou   Number; 
Begin 
  -- 游标操作使用循环,但是在操作之前必须先将游标打开  
  If Mycur%Isopen Then 
    Null; 
  Else 
    Open Mycur; 
  End If; 
  -- 使游标向下一行  
  Fetch Mycur 
    Into Empinfo; 
  -- 判断此行是否有数据被发现  
  While (Mycur%Found) Loop 
    Cou := Mycur%Rowcount; 
    Dbms_Output.Put_Line('行号:' || Cou || '  雇员编号:' || Empinfo.Empno || '  雇员姓名:' || Empinfo.Ename); 
    -- 修改游标,继续向下  
    Fetch Mycur 
      Into Empinfo; 
  End Loop; 
End; 

第二种写法:

Declare 
  -- 声明游标 
  Cursor Mycur Is 
    Select * From Emp; 
  Empinfo Emp%Rowtype; 
  Cou   Number; 
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 || '  雇员编号:' || 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 || ':执行结束。。。'); 
  Else 
    Dbms_Output.Put_Line(Re || ':执行错误_______'); 
  End If; 
End; 

以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持脚本宝典。

脚本宝典总结

以上是脚本宝典为你收集整理的Oracle游标使用参考语句实例解析全部内容,希望文章能够帮你解决Oracle游标使用参考语句实例解析所遇到的问题。

如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。
标签:游标游标