当前位置:首页 > 开发 > 数据库 > 正文

Oracle游标使用参考语句

发表于: 2010-09-06   作者:cuisuqiang   来源:转载   浏览次数:
摘要: 一个简单实用: Declare -- 声明游标 Cursor Mycur Is Select * From Emp; Empinfo Emp%Rowtype; Cou Number; Begin -- 游标操作使用循环,但是在操作之前必须先将游标打开 For Empinfo In Mycur Loop Cou := Mycur%Rowcount;

一个简单实用:

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游标使用参考语句

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
-- 游标的使用 %found: 检验是否fetch到值 %notfound: 判断游标所在的行是否有效 %rowcount: 成功执
游标 游标的简介: 逐行处理查询结果,以编程的方式访问数据 游标的类型: 1,隐式游标:在 PL/SQL
这是一个忙碌的季节,也是一个收获颇多的季节。在忙碌工作的同时,挤出些时间写一些小dome,其乐无
一. Cursor说明 Oracle里的cursor分为两种:一种是shared cursor,一种是session cursor。 1.1 Shar
一. Cursor说明 Oracle里的cursor分为两种:一种是shared cursor,一种是session cursor。 1.1 Shar
oracle执行SQL语句就是打开游标,解析游标,执行游标,关闭游标的过程。了解游标的这几个阶段,我们
原博客地址:http://blog.csdn.net/tianlesoftware/article/details/6638062 一. Cursor说明 Oracle
这是一个忙碌的季节,也是一个收获颇多的季节。在忙碌工作的同时,挤出些时间写一些小dome,其乐无
游标是从表中提取的数据以临时表的形式存放内存中,游标中有一个数据指针,默认指向的是第一条记录
SELECT * FROM aspnet_Roles GO DECLARE @role varchar(50) DECLARE CusCursor CURSOR FOR select R
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号