oracle（sql）基础篇系列（五）——PLSQL、游标、存储过程、触发器

PL/SQL

PL/SQL 简介

每一种数据库都有这样的一种语言，PL/SQL 是在Oracle里面的一种编程语言，在Oracle内部使用的编程语言。我们知道SQL语言是没有分支和循环的，而PL语言是为了补充SQL语言的，是带有了分支和循环的语言。

PL/SQL 语法

基本数据类型声明

declare

v_name varchar2(20);

v_temp number(1);

v_count binary_integer := 0;

v_sal number(7,2) := 4000.00;

v_date date := sysdate;

v_pi constant number(3,2) := 3.14;

v_valid boolean := false;

v_name varchar2(20) not null := 'myname';

declare开头声明变量，v_name表示变量名字，通常以v_xxx这种格式命名变量，varchar2(20)表示变量类型， :=为赋值操作符。

在PL/SQL里面boolean类型变量在定义的时候一定要给初始值，Oracle 里面的put_line()不能打印boolean类型的值。

%type属性声明

还有一种声明变量的方法：使用%type属性。

declare

v_empno number(4);

v_empno2 emp.empno%type;

v_empno3 v_empno2%type;

begin

dbms_output.put_line('Test');

end;

使用emp表中empno字段的类型，这种方式的好处是PL/SQL声明的变量类型随着表字段类型的变化而变化。dbms_output.put_line('Test');表示输出Test。

table类型声明

table类型类似java中的数组类型。

declare

type type_table_emp_empno is table of emp.empno%type index by binary_integer;

v_empnos  type_table_emp_empno；

begin

v_empnos(0) := 7369;

v_empnos(2) := 7839;

v_empnos(-1) := 9999;

dbms_output.put_line(v_empnos(-1));

end;

--type开头

--类型名type_table_emp_empno

--is table of 表示table数据类型，相当于java里面的数组Array[]

--emp.empno%type表示该类型数据装的是emp表中empno类型的数据

--index by binary_integer 表示下表

--v_empnos  type_table_emp_empno；使用type_table_emp_empno类型声明变量v_empnos

record数据类型声明

declare

type type_record_dept is record

(

deptno dept.deptno%type,

dname dept.dname%type,

loc dept.loc%type

);

v_temp type_record_dept;

begin

v_temp.deptno := 50;

v_temp.dname := 'aaaa';

v_temp.loc := 'bj';

dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname);

end;

/

--type type_record_dept is record声明type_record_dept是record类型。

--该类型中有三个属性deptno ，dname ，loc ，类型分别为dept表中deptno ，dname ，loc 三个字段的类型。record类型类似java中的类，record类型可以存储一条记录。

-- v_temp type_record_dept;使用type_record_dept类型声明变量v_temp。

%rowtype属性声明

另一种声明record变量的方法：

declare

v_temp dept%rowtype;

begin

v_temp.deptno := 50;

v_temp.dname := 'aaaa';

v_temp.loc := 'bj';

dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname);

end;

/

使用%rowtype声明record类型的变量，v_temp 的属性和dept表的字段保持一致，这种方式的好处是PL/SQL声明的变量类型随着表字段类型的变化而变化。

异常处理

begin

v_num := 2/v_num;

dbms_output.put_line(v_num);

exception

when others then//固定写法

dbms_output.put_line('error');

end;

exception定义异常处理，紧跟“when others then”为固定写法。

SQL> declare

2   v_num number := 0;

3  begin

4   v_num := 2/v_num;

5   dbms_output.put_line(v_num);

6  exception

7   when others then

8    dbms_output.put_line('error');

9  end;

10  /

error

PL/SQL 过程已成功完成。

SQL>

其他类型的异常 

 

--返回记录太多异常

declare

v_temp number(4);

begin

select empno into v_temp from emp where deptno = 10;

exception

when too_many_rows then

dbms_output.put_line('太多记录了');

when others then

dbms_output.put_line('error');

end;

--没有记录异常

declare

v_temp number(4);

begin

select empno into v_temp from emp where empno = 2222;

exception

when no_data_found then

dbms_output.put_line('没数据');

end;

PL/SQL的DML语句

select语句

PL/SQL里面的selec t语句必须和into语句一块用并且有且只有一条记录。

--将编号为7369的员工的员工编号和薪水查询出来并存储到v_empno，v_sal并输出

declare

v_empno emp.empno%type;

v_sal emp.sal%type;

begin

select empno,sal into v_empno,v_sal from emp where empno=7369;

dbms_output.put_line(v_empno || '-' || v_sal);

end;

--将编号为7369的员工的记录查询出来并存储到v_emp，并输出员工编号和薪水

declare

v_emp emp%rowtype;

begin

select * into v_emp from emp where empno=7369;

dbms_output.put_line(v_emp.empno || '-' || v_emp.sal);

end;

insert语句

--向dept表中插入一条数据

declare

v_deptno dept2.deptno%type := 50;

v_dname dept2.dname%type := 'dname';

v_loc dept2.loc%type := ‘ckg’;

begin

insert into dept2 values (v_deptno, v_dname, v_loc);

commit;

end;

和sql语句唯一不同的是采用了pl/sql变量。update与delete语句和sql语句一样。

PL/SQL的DDL语句

create语句

begin

execute immediate 'create table stu2(id number(10),name varchar2(20) default ''zhangsan'')';

end;

PL/SQL编写ddl语句和SQL语句不同的是需要加execute immediate ，单引号中的sql语句使用双单引号指定缺省值，如''zhangsan''。alter语句，drop语句同理。

PL/SQL的分支循环语句

判断语句

declare

v_sal emp.sal%type;

begin

select sal into v_sal from emp where empno = 7369;

if(v_sal < 1200) then

dbms_output.put_line('low');

elsif(v_sal < 2000) then

dbms_output.put_line('middle');

else

dbms_output.put_line('high');

end if;

end;

注意红色语法部分即可。

循环语句

declare

i binary_integer := 1;

begin

loop

dbms_output.put_line(i);

i := i+1;

exit when ( i>=11);

end loop;

end;

注意红色语法部分即可。上面的循环相当于java里的 do-while 循环。

declare

j binary_integer := 1;

begin

while j < 11 loop

dbms_output.put_line(j);

j := j + 1;

end loop;

end;

注意红色语法部分即可。上面的循环相当于java里的while 循环。

begin

for k in 1..10 loop

dbms_output.put_line(k);

end loop;

--逆序

for k in reverse 1..10 loop

dbms_output.put_line(k);

end loop;

end;

注意红色语法部分即可。上面的循环相当于java里的增强 for 循环。

游标

我们知道，select语句的结果集是一张表，如果我们想对结果集逐条记录遍历该如何实现，就像java中的迭代器一样？PL/SQL提供了解决遍历结果集的的功能：游标。游标是指在结果集上的指针，通过游标可以对select语句的结果集逐条记录遍历。

显示游标与隐式游标

oracle中的游标分为显示游标和隐式游标。显示游标是用cursor...is..命令定义的游标，它可以对查询语句(select)返回的多条记录进行处理。显式游标的操作：打开游标、操作游标、关闭游标。

隐式游标由Oracle数据库自动创建，名称是sql ,主要用途是可以返回一个操作是否成功或失败，只能用于DML语句。PL/SQL隐式地打开SQL游标，并在它内部处理SQL语句，然后关闭它。

游标属性

访问游标对象的属性方法：游标对象%游标属性。游标具有的属性如下：

%notfound 没有结果集

%found存在结果集

%rowcount 返回受影响的行数

%isopen询问游标是否已经打开

sql%rowcount可以统计刚执行的sql语句影响了多少条记录。

declare

v_deptno dept2.deptno%type := 50;

v_dname dept2.dname%type := 'dname';

v_loc dept2.loc%type := ‘can’;

begin

update dept2 set loc = 'sha' where deptno = 10;

dbms_output.put_line (sql%rowcount || '条记录被影响');

commit;

end;

--输出

1条记录被影响

循环游标

declare

cursor c is --声明游标指向select的结果集

select * from emp;

v_emp c%rowtype;

begin

open c; --打开游标

loop

fetch c into v_emp; --取出游标当前执向的值存入v_emp，每fetch一次，游标指向下一条记录

exit when (c%notfound); --找不到就退出

dbms_output.put_line(v_emp.ename);

end loop;

close c; --关闭游标

end;

--输出

SMITH

ALLEN

WARD

JONES

MARTIN

BLAKE

CLARK

SCOTT

KING

TURNER

ADAMS

JAMES

FORD

MILLER

可见，使用PL/SQL的游标和循环的结合，实现了对select结果集的遍历。

for循环游标

declare

cursor c is

select * from emp;

begin

for v_emp in c loop

dbms_output.put_line(v_emp.ename);

end loop;

end;

for循环中使用游标，不需要声明 v_emp变量，for开始的时候自动声明v_emp；不需要打开关闭游标；不需要每次fetch。因此，通常采用此写法。

带参数的游标

declare

cursor c(v_deptno emp.deptno%type, v_job emp.job%type) is

select ename, sal from emp where deptno = v_deptno and job = v_job;

begin

for v_temp in c (30, 'CLERK') loop

dbms_output.put_line(v_temp.ename);

end loop;

end;

注意红色语法部分即可。从这里我们也可以看出，实际上，真正fetch的时候，PL/SQL才回去数据库查询数据。

可更新的游标

declare

cursor c is

select * from emp2 for update;

begin

for v_temp in c loop

if(v_temp.sal < 2000) then

update emp2 set sal = sal * 2 where current of c;

elsif (v_temp.sal = 5000) then

delete from emp2 where current of c;

end if;

end loop;

注意红色语法部分即可。for update声明游标是更新用的，current of c 更新或者删除时指明是当前游标指向的记录。

存储过程

存储过程的创建

declare

cursor c is

select * from emp2 for update;

begin

for v_temp in c loop

if(v_temp.sal < 2000) then

update emp2 set sal = sal * 2 where current of c;

elsif (v_temp.sal > 2000) then

update emp2 set sal = sal / 2 where current of c;

end if;

end loop;

end;

对于上面这段PL/SQL代码，如果我们需要经常执行，可以将这段代码创建成存储过程，如下：

create or replace procedure p is

cursor c is

select * from emp2 for update ;

begin

for e in c loop

if(e.sal < 2000) then

update emp2 set sal = sal * 2 where current of c;

elsif(e.sal > 2000) then

update emp2 set sal = sal / 2 where current of c;

end if;

end loop;

end;

创建存储过程和普通的PL/SQL代码不同的是将“declare”改为“create or replace procedure p is ”，其他保持不变。

调用存储过程

--命令方式

Procedure created

SQL> exec p;

PL/SQL procedure successfully completed

SQL>

--另一种方式

begin

p;

end;

带参数的存储过程

create or replace procedure p

(v_a in number, v_b number, v_ret out number, v_temp in out number)

is

begin

if(v_a > v_b) then

v_ret := v_a;

else

v_ret := v_b;

end if;

v_temp := v_temp + v_a;

end;

--in 叫做传入参数，调用者负责给v_a赋值

--out 叫做传出参数，存储过程是没有返回值的,它就借助于传出参数

-- v_b 中间什么都没写，默认是in，是接收参数用的

-- v_temp 既可以接收，又可以传出

调用过程

declare

v_a number := 3;

v_b number := 4;

v_ret number;

v_temp number := 5;

begin

p(v_a, v_b, v_ret, v_temp);

dbms_output.put_line(v_ret);

dbms_output.put_line(v_temp);

end;

需要注意的是，执行存储过程并不会直接显示错误，可以使用show error命令显示编译错误。

删除存储过程

drop procedure p;

使用存储过程求emp表的树状结构

求出每个员工的上级（经理）并输出

create or replace procedure p_emp(v_empno emp.empno%type,v_level binary_integer) is

cursor c is

select * from emp where mgr = v_empno;

v_str varchar2(256) := '';

begin

for i in 1..v_level loop

v_str := v_str || '   ';

end loop;

for emp in c loop

dbms_output.put_line(v_str || emp.ename);

p_emp(emp.empno,v_level+1);--递归调用存储过程

end loop;

end;

--求出没有经理的员工

declare

v_emp emp%rowtype;

begin

select * into v_emp from emp where mgr is null;

dbms_output.put_line(v_emp.ename);

p_emp(v_emp.empno, 1);

end;

--或者我们已经知道7839是没有上级的

begin

p_emp(7839, 1);

end;

--输出

KING

JONES

SCOTT

ADAMS

FORD

SMITH

BLAKE

ALLEN

WARD

MARTIN

TURNER

JAMES

CLARK

MILLER

触发器

当对某一张表进行增删改查操作的时候，触发其他操作。

触发器的创建

--创建一张记录操作表

create table emp2_log-- emp2这张表的操作记录

(

uname varchar2(20),--用户

action varchar2(10),--操作

atime date--操作时间

);

--创建一个队emp2表操作的触发器

create or replace trigger trig

after insert or delete or update on emp2 for each row --表示每更新一条记录都会生成一条操作记录

--after可以改为before

begin

if inserting then

insert into emp2_log values(USER, 'insert', sysdate);--USER关键字,代表当前用户是谁

elsif updating then

insert into emp2_log values(USER, 'update', sysdate);

elsif deleting then

insert into emp2_log values(USER, 'delete', sysdate);--记录到log文件中

end if;

end;

触发器的执行

触发器不能直接执行，必须指明在哪张表上面执行哪些操作的时候才能触发触发器。现在对emp2表进行插入操作并查看emp2_log表

SQL> insert into emp2(ename,deptno) values('lisi',20);

SQL> select * from emp2_log;

UNAME                ACTION     ATIME

-------------------- ---------- -----------

SCOTT                insert     2016/10/10

SCOTT                insert     2016/10/10

SQL>

可见对emp2表的插入操作触发了日志记录操作。

触发器的删除

drop trigger trig;

基础篇到此。