Oracle游标的用法

----------------------隐式游标 %isopen , %notfound , %found
定义游标
declare
begin
........
end;

定义：隐式游标则由则由系统自动定义，非显示定义游标的DML语句即被赋予隐式游标属性。其过程由oracle控制，完全自动化。隐式游标的名称是SQL，不能对SQL游标显式地执行
OPEN,FETCH,CLOSE语句。

属性：类似于显示游标，隐式游标同样具有四种属性，只不过隐式游标以SQL%开头，而显示游标以Cursor_name%开头。通过SQL%总是只能访问前一个DML操作或单行SELECT操作的游标属性，用于判断DML执行的状态和结果，进而控制程序的流程。

属性一：SQL%ISOPEN
游标是否打开。当执行select into ,insert update,delete时，Oracle会隐含地打开游标，且在该语句执行完毕或隐含地关闭
游标，因为是隐式游标，故SQL%isopen----总是false

属性二：SQL%FOUND
判断SQL语句是否成功执行。当有作用行时则成功执行为true，否则为false。

属性三：SQL%NOTFOUND
判断SQL语句是否成功执行。当有作用行时否其值为false，否则其值为true。

属性四：SQL%ROWCOUNT
在执行任何DML语句之前，SQL%ROWCOUNT的值都是NULL,对于SELECT INTO语句，如果执行成功，SQL%ROWCOUNT的值为,如果没有

成功，SQL%ROWCOUNT的值为，同时产生一个异常NO_DATA_FOUND。

declare
begin
if sql%isopen then
dbms_output.put_line('游标已打开');
else
dbms_output.put_line('游标未打开');--输入此条，因为是隐式的，所以总是未打开
end if;
end;

declare
begin
update emp set sal=1000;
dbms_output.put_line('你已经处理了'||sql%rowcount||'条数据');
end;
-----------notfound的用法
declare
begin
update emp set sal=1000;
if sql%notfound then
dbms_output.put_line('游标未找到');
else
dbms_output.put_line('游标已找到');--输出此条
end if;
end;
-----------found的用法
declare
begin
update emp set sal=1000;
if sql%found then
dbms_output.put_line('游标找到');--输出此条
else
dbms_output.put_line('游标未找到');
end if;
end;

--------注：
当进行update,delete,insert操作的时候就要用到隐式游标
declare
begin
update emp set sal=1000;--修改
if sql%found then
dbms_output.put_line('修改成功');
end if;
end;

declare
begin
update emp set sal=1000 where empno=7369;
if sql%found then
dbms_output.put_line('游标已打开');
else
dbms_output.put_line('游标未打开');
end if;
end;

select* from emp;

------------------------------------普通游标(带参数和不带参数)

循环游标用loop....end loop

--1。显示所有员工信息(不带参数)
declare
cursor mycur is select * from emp;
myemp emp%rowtype;
begin
open mycur;
loop
fetch mycur into myemp;
exit when mycur%notfound;
dbms_output.put_line('员工编号:'||myemp.empno||' 员工姓名:'||myemp.ename||'员工工资:'||myemp.sal);
end loop;
close mycur;
end;

--2。输入部门编号，显示该部门员工的详细信息(带参数)
declare
cursor mycur(myno emp.deptno%type) is select * from emp where deptno=myno;
myemp emp%rowtype;
mydeptno emp.deptno%type;--所要接的参数
begin
mydeptno:=&请输入员工编号;
open mycur(mydeptno);
loop
fetch mycur into myemp;
exit when mycur%notfound;
dbms_output.put_line('员工编号:'||myemp.empno||' 员工姓名:'||myemp.ename||'员工工资:'||myemp.sal||'部门编号:'||myemp.deptno);
end loop;
close mycur;
end;

----------------------------------循环游标
--1。显示所有员工信息
declare
cursor mycur is select * from emp;
begin
for i in mycur
loop
dbms_output.put_line('员工编号:'||i.empno||' 员工姓名:'||i.ename||'员工工资:'||i.sal);
end loop;
end;

 

--------------------------------------用游标批量更新数据
declare
cursor mycur is select sal from emp for update;
mysal emp.sal%type;
begin
open mycur;
loop
fetch mycur into mysal;
exit when mycur%notfound;
mysal:=mysal*2;
update emp set sal=mysal where current of mycur;
end loop;
close mycur;
end;

select * from emp;

-----------------------------------引用游标
declare
mychar char(10);
type mycur is ref cursor;
mpp mycur;
myemp emp%rowtype;
begin
mychar:=&请输入一个字符;
if mychar='a'then
open mpp for select * from emp where deptno=10;
loop
fetch mpp into myemp;
exit when mpp%notfound;
dbms_output.put_line('员工编号：'||myemp.empno||'员工姓名：'||myemp.ename||'部门编号：'||myemp.deptno);
end loop;
elsif mychar='b' then
open mpp for select * from emp where deptno=20;
loop
fetch mpp into myemp;
exit when mpp%notfound;
dbms_output.put_line('员工编号：'||myemp.empno||'员工姓名：'||myemp.ename||'部门编号：'||myemp.deptno);
end loop;
else
open mpp for select * from emp where deptno=30;
loop
fetch mpp into myemp;
exit when mpp%notfound;
dbms_output.put_line('员工编号：'||myemp.empno||'员工姓名：'||myemp.ename||'部门编号：'||myemp.deptno);
end loop;
end if;
end;