Oracle学习笔记摘录6-----PL/SQL块 存储过程 FUNCTION

declare

begin

--SQL语句

--直接写的SQL语句(DML/TCL)

--间接写execute immediate <DDL/DCL命令字符串>

--select 语句

<1>必须带有into子句

select empno into eno from emp

where empno =7369;

<2>只能查到一行**********

<3>字段个数必须和变量的个数一致

exception

--异常

when <异常名字> then --特定异常

<处理语句>

when others then --所有异常都可捕获

<处理语句>

end;

<例子>

编写程序 向DEPT表中插入一条记录，

从键盘输入数据，如果

数据类型输入错误要有提示

无法插入记录 也要有提示

只能输入正数,如果有负数提示

declare

n number;

no dept.deptno%type;

nm dept.dname%type;

lc dept.loc%type;

exp exception; --异常的变量

exp1 exception;

num number:=0; --计数器

pragma exception_init(exp,-1); --预定义语句

--(-1错误和异常变量关联)

pragma exception_init(exp1,-1476);

e1 exception; --自定义异常变量

begin

--输入值

no := '&编号';

num := num + 1;

if no < 0 then

raise e1; --自定义异常的引发

end if;

nm := '&名称';

num := num +1;

lc := '&地址';

num := num +1;

n := 10 /0;

insert into dept values (no,nm,lc);

num := num +1;

commit;

exception

--自定义异常

when e1 then

dbms_output.put_line('编号不能为负数');

--数据类型不对

when value_error then

if num =0 then

dbms_output.put_line('编号数据类型不对');

elsif num = 1 then

dbms_output.put_line('名称数据类型不对');

elsif num =2 then

dbms_output.put_line('地址数据类型不对');

end if;

rollback;

--主键冲突

when exp then

--sqlcode全局变量 异常错误号

--sqlerrm全局变量 异常的文字信息

--dbms_output.put_line('异常的编号:'||sqlcode);

--dbms_output.put_line('异常的内容:'||sqlerrm);

--dbms_output.put_line('编号已存在') ;

rollback;

--非预定义异常(关联错误号)

when exp1 then

--dbms_output.put_line('0做了除数') ;

raise_application_error(-20001,'0做了除数'); --引起一个自定义的错误

--预先保留-20001 到 -29999编号

rollback;

--其他的异常

when others then

dbms_output.put_line('异常的编号:'||sqlcode);

dbms_output.put_line('异常的内容:'||sqlerrm);

-- dbms_output.put_line('出现错误');

rollback;

end;

-- insert into dept values (40,'asdf','asdf');

<简单的做法>

--存放异常的

create table save_exp(

bh number,

wz varchar2(1000)

);

declare

no dept.deptno%type;

nm dept.dname%type;

lc dept.loc%type;

errno number;

errtext varchar2(1000);

begin

no := '&编号';

nm := '&名称';

lc := '&地址';

insert into dept values (no,nm,lc);

commit;

exception

when others then

rollback;

errno := sqlcode;

errtext := sqlerrm;

insert into save_exp values (errno,errtext);

commit;

end;

<游标> 内存中的一块区域,存放的是select 的结果

1。 隐式游标

单条sql语句所产生的结果集合

用关键字SQL表示隐式游标

4个属性 %rowcount 影响的记录的行数 整数

%found 影响到了记录 true

%notfound 没有影响到记录 true

%isopen 是否打开 布尔值 永远是false

多条sql语句 隐式游标SQL永远指的是最后一条sql语句的结果

主要使用在update 和 delete语句上

2。 显式游标

select语句上 使用显式游标

明确能访问结果集

for循环游标

参数游标

解决多行记录的查询问题

fetch游标

显示游标

需要明确定义

(1)FOR循环游标 (常用的一种游标)

--<1>定义游标

--<2>定义游标变量

--<3>使用for循环来使用这个游标

--前向游标 只能往一个方向走

--效率很高

declare

--类型定义

cursor cc is select empno,ename,job,sal

from emp where job = 'MANAGER';

--定义一个游标变量

ccrec cc%rowtype;

begin

--for循环

for ccrec in cc loop

dbms_output.put_line(ccrec.empno||'-'||ccrec.ename||'-'||ccrec.job||'-'||ccrec.sal);

end loop;

end;

(2) fetch游标

--使用的时候 必须要明确的打开和关闭

declare

--类型定义

cursor cc is select empno,ename,job,sal

from emp where job = 'MANAGER';

--定义一个游标变量

ccrec cc%rowtype;

begin

--打开游标

open cc;

--loop循环

loop

--提取一行数据到ccrec中

fetch cc into ccrec;

--判断是否提取到值，没取到值就退出

--取到值cc%notfound 是false

--取不到值cc%notfound 是true

exit when cc%notfound;

dbms_output.put_line(ccrec.empno||'-'||ccrec.ename||'-'||ccrec.job||'-'||ccrec.sal);

end loop;

--关闭

close cc;

end;

游标的属性4种

%notfound fetch是否提到数据 没有true 提到false

%found fetch是否提到数据 有true 没提到false

%rowcount 已经取出的记录的条数

%isopen 布尔值 游标是否打开

declare

--类型定义

cursor cc is select empno,ename,job,sal

from emp where job = 'MANAGER';

--定义一个游标变量

ccrec cc%rowtype;

begin

--打开游标

open cc;

--loop循环

loop

--提取一行数据到ccrec中

fetch cc into ccrec;

--判断是否提取到值，没取到值就退出

--取到值cc%notfound 是false

--取不到值cc%notfound 是true

exit when (cc%notfound or cc%rowcount =3);

dbms_output.put_line(cc%rowcount||'-'||ccrec.empno||'-'||ccrec.ename||'-'||ccrec.job||'-'||ccrec.sal);

end loop;

--关闭

close cc;

end;

<例子>

declare

cursor cc is select dept.dname,

emp.ename,emp.sal from

dept,emp where dept.deptno = emp.deptno;

ccrec cc%rowtype;

begin

for ccrec in cc loop

dbms_output.put_line(ccrec.dname||'-'||ccrec.ename||'-'||ccrec.sal);

end loop;

end;

(3)参数游标

按部门编号的顺序输出部门经理的名字

declare

--部门

cursor c1 is select deptno from dept;

--参数游标c2,定义参数的时候

--只能指定类型,不能指定长度

--参数只能出现在select语句=号的右侧

cursor c2(no number,pjob varchar2) is select emp.* from emp

where deptno = no and job=pjob;

/*

no = 10 pjob = 'MANAGER'

select * from emp where deptno = 10 and job = 'MANAGER';

*/

c1rec c1%rowtype;

c2rec c2%rowtype;

--定义变量的时候要指定长度

v_job varchar2(20);

begin

--部门

for c1rec in c1 loop

--参数在游标中使用

for c2rec in c2(c1rec.deptno,'MANAGER') loop

dbms_output.put_line(c1rec.deptno||'-'||c2rec.ename);

end loop;

end loop;

end;

<综合例子>

求购买的商品包括了顾客"Dennis"所购买商品的顾客（姓名）；**************

思路:

Dennis (A,B)

别的顾客 (A,B,C) (A,C) (B,C) C

declare

--Dennis所购买的商品

cursor cdennis is select productid

from purcase where customerid=(

select customerid from

customer where name = 'Dennis');

--除Dennis以外的每个顾客

cursor ccust is select customerid

from customer where name <> 'Dennis';

--每个顾客购买的商品

cursor cprod(id varchar2) is

select productid from purcase

where customerid = id;

j number ;

i number;

c1rec cdennis%rowtype;

c2rec ccust%rowtype;

c3rec cprod%rowtype;

cname varchar2(10);

begin

--顾客循环

for c2rec in ccust loop

i:=0;

j:=0;

for c1rec in cdennis loop

i := i + 1;

--每个顾客买的东西

for c3rec in cprod(c2rec.customerid) loop

if (c3rec.productid = c1rec.productid) then

j := j + 1;

end if;

end loop;

end loop;

if (i=j) then

select name into cname from

customer where customerid = c2rec.customerid;

DBMS_output.put_line(cname);

end if;

end loop;

end;

(4)引用游标/动态游标

select语句是动态的

declare

--定义一个类型(ref cursor)弱类型

type cur is ref cursor;

--强类型(返回的结果集有要求)

type cur1 is ref cursor return emp%rowtype;

--定义一个ref cursor类型的变量

cura cur;

--

c1rec emp%rowtype;

c2rec dept%rowtype;

begin

DBMS_output.put_line('输出员工') ;

open cura for select * from emp;

loop

fetch cura into c1rec;

exit when cura%notfound;

DBMS_output.put_line(c1rec.ename) ;

end loop ;

DBMS_output.put_line('输出部门') ;

open cura for select * from dept;

loop

fetch cura into c2rec;

exit when cura%notfound;

DBMS_output.put_line(c2rec.dname) ;

end loop;

close cura;

end;

>>>>>存储过程和函数

没有名字的PL/SQL块(匿名)

有名字的PL/SQL块(子程序-存储过程和函数)

存储过程

create or replace procedure p1

as

begin

exception

end;

<最简单的存储过程>

create or replace procedure p_jd

as

hello varchar2(20);

begin

select 'Hello World' into hello from dual;

dbms_output.put_line(hello);

end;

执行存储过程的方法

<1> execute p_jd; (SQL*PLUS中SQL>)

<2> begin

p_jd;

end;

带参数的存储过程

--输入参数in

--不写in的参数都是输入参数

--根据部门编号查员工姓名

create or replace procedure p_getemp(no number)

as

cursor c1 is select * from emp

where deptno = no;

c1rec c1%rowtype;

begin

-- no := 20; 输入参数是不能赋值的

for c1rec in c1 loop

dbms_output.put_line(c1rec.ename);

end loop;

end;

--输出参数out

--根据部门编号查出部门的平均工资,返回平均工资的值

-- in 输入 (在procedure中是不能赋值的)

-- out 输出 (在procedure中是能赋值的)

-- 定义参数是不能指定长度的

--定义变量是必须指定长度的

create or replace procedure p_getavgsal(no number,avgsal out number)

-- no 输入参数

-- avgsal 输出参数

as

aa varchar2(10); --变量

begin

select avg(sal) into avgsal

from emp where deptno = no;

end;

调用它只能使用PL/SQL块

declare

av number;

begin

p_getavgsal(10,av);

dbms_output.put_line('平均工资:'||round(av,2));

end;

--一个参数同时可以输入,也可以输出

--输入输出参数

create or replace procedure

p_getavgsal(n in out number)

as

begin

select avg(sal) into n

from emp where deptno = n;

end;

declare

av number;

begin

av := 10;

p_getavgsal(av);

dbms_output.put_line('平均工资:'||round(av,2));

end;

--带多个参数的存储过程

create or replace procedure

p_getM(no number,pjob varchar2) as

--参数游标c2,定义参数的时候

--只能指定类型,不能指定长度

--参数只能出现在select语句=号的右侧

cursor c2(no1 number,pjob1 varchar2) is select * from emp

where deptno = no1 and job=pjob1;

c2rec c2%rowtype;

--定义变量的时候要指定长度

v_job varchar2(20);

begin

--参数在游标中使用

for c2rec in c2(no,pjob) loop

dbms_output.put_line(c2rec.deptno||'-'||c2rec.ename);

end loop;

end;

调用方法:execute p_getm(10,'MANAGER'); --按位置

-- no = 10 , pjob = 'MANAGER'

execute p_getm(pjob => 'MANAGER',no => 10);

--按参数的名字 来传值

函数:

必须要有返回值

只能返回一个值

--根据部门编号查出部门的平均工资,返回平均工资的值(利用函数)

create or replace function

f_getavgsal(no number)

return number

as

avgsal number(7,2);

begin

select avg(sal) into avgsal

from emp where deptno = no;

--返回值

return avgsal;

end;

--带输出参数

--每个部门的平均工资和工资总额

--一个函数返回2个值

create or replace function

f_getavgsal(no number,sumsal out number)

return number

as

avgsal number(7,2);

begin

--平均工资

select avg(sal) into avgsal

from emp where deptno = no;

--工资总额

select sum(sal) into sumsal

from emp where deptno = no;

--返回值

return avgsal;

end;

--调用方法

<1>PL/SQL块调用

declare

aa number;

begin

aa := f_getavgsal(10) ;

dbms_output.put_line(to_char(aa));

end;

<2> SQL语句来调用(DML)

select f_getavgsal(10) from dual;

select deptno,f_getavgsal(deptno) from dept;

<3>

create or replace function f1

return number

as

update emp set comm = 1000

where job='CLERK';

return sql%rowcount;

end;

--select语句是无法调用它的,因为其中含有修改语句