本教程操作环境:Windows7系统、Oracle 11g版、Dell G3电脑。
在Oracle中,游标(Cursors)是一种机制,可以通过该机制将名称分配给select语句并处理该SQL语句中的信息。
Oracle游标是通过关键字CURSOR的来定义一组Oracle查询出来的数据集,类似数组一样,把查询的数据集存储在内存当中,然后通过游标指向其中一条记录,通过循环游标达到循环数据集的目的。
游标有什么作用?
①指定结果集中特定行的位置。
②基于当前的结果集位置检索一行或连续的几行。
③在结果集的当前位置修改行中的数据。
④对其他用户所做的数据更改定义不同的敏感性级别。
⑤可以以编程的方式访问数据库。
Oracle游标的类型?
1、静态游标:结果集已经确实(静态定义)的游标。分为隐式和显示游标
隐式游标:所有DML语句为隐式游标,通过隐式游标属性可以获取SQL语句信息。
显示游标:用户显示声明的游标,即指定结果集。当查询返回结果超过一行时,就需要一个显式游标。
2、REF游标:动态关联结果集的临时对象。
Oracle游标的状态有哪些,怎么使用游标属性?
①游标的状态是通过属性来表示。
%Found :Fetch语句(获取记录)执行情况True or False。
%NotFound : 最后一条记录是否提取出True or False。
%ISOpen : 游标是否打开True or False。
%rowcount :游标当前提取的行数 。
②使用游标的属性。
例子:
/* conn scott/tiger */ Begin update emp Set SAL = SAL + 0.1 Where JOB = 'CLERK'; If SQL%Found Then DBMS_OUTPUT.PUT_LINE('已经更新!'); Else DBMS_OUTPUT.PUT_LINE('更新失败!'); End If; End;
如何使用显示游标,?如何遍历循环游标?
1、使用显示游标
声明游标:划分存储区域,注意此时并没有执行select 语句。
CURSOR 游标名( 参数 列表) [返回值类型] IS select 语句;
打开游标:执行select 语句,获得结果集存储到游标中,此时游标指向结果集头, 而不是第一条记录。
Open 游标名( 参数 列表);
获取记录:移动游标取一条记录
Fetch 游标名InTo 临时记录或属性类型变量;
关闭游标:将游标放入缓冲池中,没有完全释放资源。可重新打开。
Close 游标名;
2、遍历循环游标
For 循环游标
循环游标隐式打开游标,自动滚动获取一条记录,并自动创建临时记录类型变量存储记录。处理完后自动关闭游标。
For 变量名 In 游标名 Loop 数据处理语句; End Loop;
Loop循环游标
。。。 Loop Fatch 游标名InTo 临时记录或属性类型变量; Exit When 游标名%NotFound; End Loop; 。。。
例子1:
/* conn scott/tiger */ declare Cursor myCur is select empno,ename,sal from emp; vna varchar2(10); vno number(4); vsal number(7,2); Begin open myCur; fetch myCur into vno,vna,vsal; dbms_output.put_line(vno||' '||vna||' '||vsal); close myCur; End; /
例子2:使用loop遍历游标。
/* conn scott/tiger */ declare Cursor myCur is select ename,job,sal,empno from emp; varE myCur%rowType; Begin if myCur%isopen = false then open myCur; dbms_output.put_line('Opening...'); end if; loop fetch myCur into varE; exit when myCur%notfound; dbms_output.put_line(myCur%rowCount||' '||vare.empno||' '||vare.ename||' '||vare.sal); end loop; if myCur%isopen then Close myCur; dbms_output.put_line('Closing...'); end if; End; /
例子3:使用For循环遍历游标,
/* conn scott/tiger */ declare Cursor myCur is select * from emp; Begin for varA in myCur loop dbms_output.put_line(myCur%rowCount||' '||varA.empno||' '||varA.ename||' '||varA.sal); end loop; End; /
怎样更新和删除显示游标中的记录?
①update或delete语句中的WHERE CURRENT OF子串专门处理要执行update或delete操作的表中取出的最近的数据。
要使用这个方法,在声明游标时必须使用FOR update子串,当对话使用FOR update子串打开一个游标时,
所有返回集中的数据行都将处于行级(ROW-LEVEL)独占式锁定,其他对象只能查询这些数据行,
不能进行update、delete或select...FOR update操作。
在多表查询中,使用OF子句来锁定特定的表,如果忽略了OF子句,那么所有表中选择的数据行都将被锁定。
如果这些数据行已经被其他会话锁定,那么正常情况下ORACLE将等待,直到数据行解锁。
②使用更新或删除:
⑴声明更新或删除显示游标:
Cursor 游标名IS select 语句 For update [ Of 更新列列名]; Cursor 游标名IS select 语句 For delete [ Of 更新列列名];
⑵使用显示游标当前记录来更新或删除:
update 表名 SET 更新语句 Where Current Of 游标名; delete From 表名 Where Current Of 游标名;
例子1:更新显示游标记录
/*conn scott/tiger*/ declare Cursor myCur is select job from emp for update; vjob empa.job%type; rsal empa.sal%type; Begin open myCur; loop fetch myCur into vjob; exit when myCur%notFound; case (vjob) when 'ANALYST' then rsal := 0.1; when 'CLERK' then rsal := 0.2; when 'MANAGER' then rsal := 0.3; else rsal := 0.5; end case; update emp set sal = sal + rsal where current of myCur; end loop; End; /
例子2:删除显示游标记录
/*conn scott/tiger Crate table empa select * from scott.emp; */ declare Cursor MyCursor select JOB From empa For update; vSal emp.Sal%TYPE; Begin Loop Fetch MyCursor InTo vSal; Exit When MyCursor%NotFound; If vSal < 800 Then delete From empa Where Cursor Of MyCursor; End If; End Loop; End;/
什么是带参数的显示游标?
1、与过程和函数相似,可以将参数传递给游标并在查询中使用。
参数只定义数据类型,没有大小(所有Oracle中的形参只定义数据类型,不指定大小)。
与过程不同的是,游标只能接受传递的值,而不能返回值。
可以给参数设定一个缺省值,当没有参数值传递给游标时,就使用缺省值。
游标中定义的参数只是一个占位符,在别处引用该参数不一定可靠。
2、使用带参数的显示游标
声明带参数的显示游标:
CURSOR 游标名 [(parameter[,parameter],...)] IS select语句;
参数形式:
1,参数名 数据类型
2,参数名 数据类型 DEFAULT 默认值
例子:
/*conn scott/tiger Crate table empa select * from scott.emp; */ declare Cursor MyCursor(pSal Number Default 800) select JOB From empa Where SAL > pSal ; varA MyCursor%ROWTYPE; Begin Loop Fetch MyCursor InTo varA; Exit When MyCursor%NotFound; DBMS_OUTPUT.PUT_LINE(MyCursor%RowCount||' '||varA.empno||' '||varA.ename||' '||varA.sal); End Loop; End;/
推荐教程:《Oracle教程》