create or replace procedure sopV(obj varchar2)
as --定义一个存储过程,用于输出字符串,简化书写
begin
dbms_output.put_line(obj);
end;
create or replace procedure sopN(obj number)
as --定义一个存储过程,用于输出number类型
begin
dbms_output.put_line(obj);
end;
--隐式游标1
declare
v_ename emp.ename%type;
v_sq lvarchar2(200);
v_no number :='&编号:';
begin
v_sql :='select * from emp where empno =: no';
execute immediate v_sql using v_no;
if sql%notfound then--如果没有影响函数,notfound
sopV('没有找到!');
elsif sql%found then
sopN(sql%rowcount);
end if;
end;
--隐式游标2
declare
v_name varchar2(20) :='ysjian';
begin
update emp set ename = v_name where empno =7369;
if sql%found then
sopV('更新成功');
sopN(sql%rowcount);
elsif sql%notfound then
sopV('没有找到!');
end if;
end;
--隐式游标3
declare
v_emp_rec emp%rowtype;
v_empno number :='&empno';
begin
select * into v_emp_rec from emp where empno=v_empno;
if sql%notfound
then dbms_output.put_line('没有找到');
else
dbms_output.put_line(v_emp_rec.empno||'-->'||v_emp_rec.ename);
end if;
exception
when no_data_found--异常类型,没有找到数据时
then dbms_output.put_line('data no found exception!');
end;
--显示游标1,关键字,cursor is opoen fetch close
declare
v_emp emp%rowtype;
cursor v_cur is--此处与一般的变量声明不同,类型发在名称前面,关键字不能用as,用is
select *from emp;
begin
open v_cur;--打开游标
loop
fetch v_cur into v_emp;--提取游标
sopV(v_emp.ename);
exit when v_cur%notfound;
end loop;
close v_cur;--关闭游标
end;
--显示游标2,for循环遍历,打开,提取和关闭游标的操作自动完成
declare
v_emp emp%rowtype;
cursor v_cur is select * from emp;
begin
for resin v_cur
loop
sopV(res.ename);
end loop;
end;
--显示游标3,带参数
declare
v_emp emp%rowtype;
cursor v_cur(parameter varchar2) is select * from emp where ename = parameter;
begin
for v_res in v_cur('&ename:')
loop
sopV(v_res.ename);
end loop;
end;
--显示游标4:用游标更新数据,关键字:select ... for update
select *from emp;
declare
v_salnumber;
cursor emp_cur is select * from emp where sal<1500 for update of sal; -- 更新sal字段
begin
for cin emp_cur
loop
v_sal := c.sal;
update emp set sal = v_sal*1.2 where current of emp_cur;-- 当前游标所指的行
end loop;
end;
-- REF游标:用于处理运行时动态地执行sql查询
declare
type emp_ref is ref cursor;--声明一个游标类型,此处又有不同哦
emp_cur emp_ref;--声明一个游标,类型是上面定义好的类型
v_emp emp%rowtype;
v_sal number :='&输入薪水:';
begin
open emp_cur for 'select * from emp where sal>:s'--此处可以是字符串,也就是可以动态传值的
using v_sal;--给占位符绑值
loop
fetch emp_cur into v_emp;
exit when emp_cur%notfound;
sopV(v_emp.ename);
end loop;
close emp_cur;
end;
给游标简单的做个小结