游标
游标存在意义：解决“select *”返回空、多行记录问题，但凡select，就可能多行结果集，也就需要用游标。
游标分4步走：cursor、open、fetch、close
可能省略open、close，用for ... in ... loop ... end loop;
1、静态游标：
（1）隐式游标：
在PL/SQL中DML（select into、insert、update、delete）时，Oracle隐式定义一个叫SQL的游标，自动声明、打开、关闭。
①sql%found
如果DML语句影响一行或多行，则sql%found为true
例如：
declare
empno emp.empno%type;
begin
select empno into empno -- 对于DML之select into
from emp
where empno =7369;
ifsql%foundthen
dbms_output.put_line('有一行记录');-- 用sql%found、sql%notfound判断是否返回一行记录
endif;
Exception
when no_data_found then
dbms_output.put_line('查询返回空行');-- 用no_data_found判断是否返回空行记录
when too_many_rows then
dbms_output.put_line('查询返回多行');-- 用too_many_rows判断是否返回多行记录
When others then
dbms_output.put_line(‘系统错误');
end;
例如：
declare
total integer;
e_null exception;--自定义的异常
e_toomanyrow exception;
begin
select count(*) into total from emp where emp.deptno=20;
if total>1 then
raise e_toomanyrow;--抛出异常
elsif total<=0 then
raise e_null;
end if;
--捕获并处理异常
Exception when e_toomanyrow then
dbms_output.put_line('Exception：返回多行记录');
when e_null then
dbms_output.put_line('Exception：无返回记录');
when others then
dbms_output.put_line('Exception：其他异常');
end;
②sql%notfound
如果DML语句没有影响任何行，则sql%notfound为true
第一种情况：DML是insert、delete、update
例如：
declare
begin
deletefrom emp
where empno =47;
ifsql%notfoundthen
dbms_output.put_line('未找到值');
else
dbms_output.put_line('已经删除');
endif;
end;
第二种情况：DML是select into
PL/SQL中的“select into”的结果必须“有且只有一行”，该行结果可以赋给列变量、或记录变量
例如：
declare
type type_emp isrecord
(
empno emp.empno%type,
ename emp.ename%type,
dname dept.dname%type,
sal emp.sal%type
);
v_emp type_emp;
begin
select empno, ename, dname, sal into v_emp
from emp innerjoin dept
on emp.deptno = dept.deptno
where ename ='SMITH';
--if sql%notfound then
--dbms_output.put_line('查无此人'); -- 永远执行不到，因为查询返回空行时触发no_data_found异常
--else
dbms_output.put_line(v_emp.empno||'*'||v_emp.ename||'*'||v_emp.dname||'*'||v_emp.sal);
--end if;
exception
whenno_data_foundthen
dbms_output.put_line('查无此人');
whenothersthen
dbms_output.put_line(sqlerrm);
end;
注意：
如果查询返回空行，PL/SQL抛出no_data_found异常；
如果查询返回多行，PL/SQL抛出too_many_rows异常；
所以在DML之“select into”引发异常时，不能使用sql%notfound属性查看DML是否影响了行。
③sql%rowcount
declare
empno emp.empno%type;
begin
select empno into empno
from emp
where empno =7788;
ifsql%rowcount>0then
dbms_output.put_line('从表中选择了'||sql%rowcount||'行');
else
dbms_output.put_line('从表中未选择行');
endif;
end;
④sql%isopen
SQL%ISOPEN返回一个布尔值，如果游标打开，则为TRUE, 如果游标关闭，则为FALSE.对于隐式游标而言SQL%ISOPEN总是FALSE，这是因为隐式游标在DML语句执行时打开，结束时就立即关闭。
（２）显式游标
重点在“步骤”:定义游标，打开游标， 抓取数据，关闭游标；
①游标%found
如果最后一条fetch语句成功提取行，则“游标%found”为true
②游标%notfound
如果最后一条fetch语句未能提取行，则“游标%notfound”为true
例如：
declare
cursor cur is
select ename,job from emp; --这里enamel，job 两列
item emp.ename%type; --定义item是emp表ename列的类型
item2 emp.job%type; --定义item2 是emp表job列类型。 这里声明的变量必须对性查询--出的列对应。
begin
open cur;
loop
fetch cur into item,item2; --捕捉了游标cur 的元素放入，item，item2中。
exitwhencur%notfound; -- 当cur游标都便利完就exit退出。
endloop;
dbms_output.put_line(item||item2);
close cur; --注意关闭游标
end;
③游标%isopen，判断该游标是否被打开；
例如：
Declare
--声明一个游标
cursor cur is
select* from emp where deptno =10;
v_emp cur%rowtype;
begin
ifnot cur%isopenthen
open cur;--如果游标没有被打开，那么就代开游标
endif;
--循环，从游标中抓取数据
loop
fetch cur into v_emp;
exitwhen cur%notfound;--当最后一条数据被获取后，exit退出循环
dbms_output.put_line(v_emp.ename||':'||v_emp.sal);
endloop;
close cur;--关闭游标
end;
④游标%rowcount：返回游标查询记录数；
注意：SQL%ROWCOUNT:在执行任何DML语句之前，SQL%ROWCOUNT的值都是NULL,对于SELECT INTO语句，如果执行成功，SQL%ROWCOUNT的值为1,如果没有成功，SQL%ROWCOUNT的值为0，同时产生一个异常NO_DATA_FOUND.
例如：（上面例子多了几行代码） declare
cursor cur is
select*
from emp
where deptno =10;
v_emp cur%rowtype;
a number;
begin
ifnot cur%isopenthen
open cur;
endif;
loop
fetch cur into v_emp;
exitwhen cur%notfound;
dbms_output.put_line(v_emp.ename||':'||v_emp.sal);
endloop;
-----------------------------------------------------------
--下面是sql%rowcount
select empno into a from emp where empno='7369';
dbms_output.put_line(sql%rowcount);--如果查询sql 有记录数，此时返回1否则为null
dbms_output.put_line(cur%rowcount);--返回游标查询的最终记录数
-----------------------------------------------------------
close cur;
end;
例如：
declare
cursor cur(i varchar2)is
select*from emp where deptno=i ;
item cur%rowtype;
begin
for r in cur('10') -- 注意这里的in。。。 后面跟的是游标 cur 而不是 tiem
--这里可以写成：for admin in cur（&部门编号）；用通配符，使键盘键入内容。
loop
dbms_output.put_line(r.ename|| cur%rowcount);--其中cur%rowcount 是有标明%rowcount 显示游标序列
endloop;
end;
⑤使用显式游标更新或删除行：
declare
-- select语句必须只包括一个表
-- 某表不能是“含有distinct、order by的子查询”查询来的结果集（视图）
cursor 游标名 is select 某列 from 某表 for update[ of 某列];
变量 某表.某列%type;
变量 某表%rowtype;
变量 游标%type;
变量 游标%rowtype;
begin
open 游标;
loop
fetch 游标 into 变量;
exit when 游标%notfound;
if 某条件 then
-- update、delete语句只有在打开游标、提取特定行之后才能使用
-- update语句中使用的列必须出现在“select-for update of”语句中
update 某表 set 某列 = 某值 where current of 游标;
end if;
end loop;
close 游标;
commit;
end;
例如：
-- 如果sal < 2000，长工资1000
declare
cursor cur is
select sal from emp
where sal <2000forupdate;
cursor bbb is
select*from emp;
begin
for v_sal in cur
loop
update emp
set sal = sal +1000
wherecurrentof cur;
endloop;
Commit;
for v_emp in bbb
loop
dbms_output.put_line(v_emp.ename||'*'||v_emp.sal);
endloop;
end;
动态游标：
（1）弱类型游标
例如：
declare -- //弱类型游标
type cursor_type isrefcursor;
cur cursor_type;
temp emp%rowtype;
begin
open cur for
select*from emp;
loop
fetch cur into temp;
exitwhencur%notfound;
dbms_output.put_line(temp.empno||temp.ename);
endloop;
end;
例如：
declare
type cur_type isrefcursor;-- 弱类型游标 通过is ref 定义
cur cur_type;
v_emp emp%rowtype;
v_dept dept%rowtype;
selection varchar2(1):= upper('D');
begin
if selection ='E'then
open cur for
select*from emp;
loop
fetch cur into v_emp;
exitwhen cur%notfound;
dbms_output.put_line(v_emp.ename||':'||v_emp.sal);
endloop;
close cur;
elsif selection ='D'then
open cur for
select*from dept;
loop
fetch cur intov_dept;
exitwhen cur%notfound;
dbms_output.put_line(v_dept.deptno||':'||v_dept.dname);
endloop;
close cur;
else
null;
endif;
end;
（2）强类型游标
例如：
declare --强类型游标 强制返回内容
type record_type isrecord(empno number,ename varchar2(20));
type cursor_type isrefcursorreturn record_type;
rec record_type;
cur cursor_type;
begin
open cur for
select empno,ename from emp;
loop
fetch cur into rec;
exitwhen cur%notfound;
dbms_output.put_line(rec.empno||' '||rec.ename);
endloop;
end;
例如：
-- 用强类型游标显示员工姓名和工资
declare
type record_type isrecord(namevarchar2(10), sal number);-- 记录类型
type cur_type isrefcursorreturn record_type;-- 强类型游标，将来必须返回record_type类型的结果集
emp_record record_type;-- 记录类型变量
emp_cur cur_type;-- 强类型游标变量
begin
open emp_cur for
select ename, sal from emp;-- 动态SQL两边的单引号可以省略，必须返回record_type类型的结果集
loop
fetch emp_cur into emp_record;-- 把record_type类型的结果集向record_type类型的变量中填充
exitwhen emp_cur%notfound;
dbms_output.put_line(emp_record.name||':'||emp_record.sal);
endloop;
close emp_cur;
end;