DECLARE
cursor mycur is select * from emp;
empInfo emp%ROWTYPE;
BEGIN
open mycur;
fetch mycur into empInfo;
while(mycur%found)
loop
dbms_output.put_line('编码:'||empInfo.Empno||';姓名:'||empInfo.Ename);
--使游标向下一行
fetch mycur into empInfo;
end loop;
END;
注意1:在打开游标之前最好先判断游标是否已经是打开的。
通过ISOPEN判断,
格式:
游标%ISOPEN IFmycur%ISOPENTHEN
null; ELSE
OPENmycur; ENDIF;
注意2:可以使用ROWCOUNT对游标所操作的行数进行记录。
代码:
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);
end loop;
/* open mycur;
fetch mycur into empInfo;
while(mycur%found)
loop
dbms_output.put_line('编码:'||empInfo.Empno||';姓名:'||empInfo.Ename);
fetch mycur into empInfo;
end loop;
*/
END;
应用举例:
一次性上涨全部雇员的工资。根据它所在的部门涨工资,规则:
•10部门上涨10%
•20部门上涨20%
•30部门上涨30%
所有部门的上涨工资,最不能超过5000,如果超过5000,则工资就为5000。
declare
cursormycuris select* fromemp;
empInfo emp%rowtype;
s emp.sal%type;
begin
forempInfoin mycurloop
ifempInfo.deptno=10 then s :=empInfo.sal*1.1;
elsifempInfo.deptno=20 then
s :=empInfo.sal*1.2;
elsifempInfo.deptno=30 then s :=empInfo.sal*1.3;
endif;
ifs > 5000 then s :=5000; endif;
updateemp setsal=s whereempno=empInfo.empno;
endloop;
end;
游标属性
%FOUND布尔型属性,当最近一次读记录时成功返回,则值为TRUE;
%NOTFOUND布尔型属性,与%FOUND相反;
%ISOPEN布尔型属性,当游标已打开时返回TRUE;
%ROWCOUNT数字型属性,返回已从游标中读取的记录数。
游标修改和删除操作
游标修改和删除操作是指在游标定位下,修改或删除表中指定的数据行。这时,要求游标查询语句中必须使用FOR UPDATE选项,以便在打开游标时锁定游标结果集合在表中对应数据行的所有列和部分列。
为了对正在处理(查询)的行不被另外的用户改动,ORACLE提供一个FOR UPDATE子句来对所选择的行进行锁住。该需求迫使ORACLE锁定游标结果集合的行,可以防止其他事务处理更新或删除相同的行,直到您的事务处理提交或回退为止。
语法:
SELECT . . . FROM … FOR UPDATE [OF column[, column]…] [NOWAIT]
如果另一个会话已对活动集中的行加了锁,那么SELECT FOR UPDATE操作一直等待到其它的会话释放这些锁后才继续自己的操作,对于这种情况,当加上NOWAIT子句时,如果这些行真的被另一个会话锁定,则OPEN立即返回并给出:
ORA-0054:resource busyandacquire with nowait specified.
如果使用FOR UPDATE声明游标,则可在DELETE和UPDATE语句中使用WHERE CURRENT OF cursor_name子句,修改或删除游标结果集合当前行对应的数据库表中的数据行。
例12:从EMP表中查询某部门的员工情况,将其工资最低定为1500;
DECLARE
V_deptno emp.deptno%TYPE :=&p_deptno;
CURSOR emp_cursor IS SELECT empno, sal
FROM emp WHERE deptno=v_deptno FOR UPDATE NOWAIT;
BEGIN
FOR emp_record IN emp_cursor LOOP
IF emp_record.sal < 1500 THEN
UPDATE emp SET sal=1500 WHERE CURRENT OF emp_cursor;
END IF;
END LOOP;
--COMMIT;
END;