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

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

    震惊

    震惊

版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号