PL/SQL编程

 

一、什么是pl/sql

 

pl/sql（procedural language/sql）是Oracle在标准的sql语言上的扩展，pl/sql不仅允许嵌入Sql语言，还可以定义变量和常量，允许使用条件语句和循环语句，允许使用例外处理各种错误，这样使得它的功能变得更加强大。

 

二、pl/sql学习的必要性

 

1、提高应用程序的运行性能。

2、模块化的设计思想。

3、减少网络传输量。

4、提高安全性。

 

三、编写规范

 

1、注释

单行注释--

sql>select * from emp where empno=7788; --取得员工信息

 

多行注释

/*....................*/

 

2、标识符号的命名规范

 

（1）当定义变量时，建议用v_作为前缀 v_sal。

（2）当定义常量时，建议用c_作为前缀 c_rate。

（3）当定义游标时，建议用_cursor作为后缀emp_cursor。

（4）当定义例外时，建议用e_作为前缀 e_error。

 

四、块

 

块（block）是pl/sql的基本程序单元，编写pl/sql程序实际上 就是编写pl/sql块。要完成相对简单的应用功能，可能只需要编写一个pl/sql快；但是如果想要实现复杂的功能，可能需要在一个pl/sql块中嵌套其他的pl/sql快。

 

1、块结构示意图

 

pl/sql块由三个部分构成：定义部分、执行部分、例外处理部分。

declear：定义部分是从declare开始的，这部分是可选的。定义常量、变量、游标例外、复杂数据类型。

begin：执行部分是从begin开始的，这部分是必须的。

exception：例外处理部分是exception开始的，该部分可选的。

 

A、包含定义部分和执行部分的pl/sql块

 

declare

v_ename varchar2(5); --定义字符串变量

begin

select ename int o v_ename from emp where empno=&no;

dbms_output.put_line('雇员名：' || v_ename);

end;

/

 

相关说明：

 

& 表示要接收从控制台输入的变量

 

B、包含定义部分、执行部分和例外处理部分

 

为了避免pl/sql程序的运行错误，提高pl/sql的健壮性，应该对可能的错误今夕处理，这个很有必要。

 

declare

v_ename varchar2(5); --定义字符串变量

begin

select ename int o v_ename from emp where empno=&no;

dbms_output.put_line('雇员名：' || v_ename);

exception

when no_data_found then

dbms_output.put_line('输入有误');

end;

/

 

五、过程

 

过程用于执行特定的操作，当建立过程时，即可以指定输入参数（in），也可以指定输出参数（out），通过在过程中使用输入参数，可以将数据传递到执行部分，通过使用输出参数，可以将执行部分的数据传递到应用环境。在sqlplus中可以使用create procedure命令来建立过程。

 

实例：

请考虑编写一个过程，可以输入雇员们，新工资，可修改雇员的工资。

 

create procedure Update_Sal(spName varchar2,new sal number) is

begin

update emp set sal = newSal where ename = spName;

end;

/

 

如何调用过程有两种方法：

 

A、exec Update_Sa('Scott',4678);

B、call Update_Sal'Scott',4567);

 

 

 

六、函数

 

函数用于返回特定的数据，当建立函数时，在函数头部必须包含return子句，而在函数体内必须包含return语句返回的数据，我们可以使用create function 来建立函数。

 

案例：

 

create function annual_income(name varchar2)

return numeber is annual_salary number(7,2);

begin

select sal*12+nvl(comm,0)*12 into annual_salary from emp where ename=name;

return annual_salary;

end;

/

 

在sqlplus中调用函数

 

sql>var income number

sql>call annual_income('SCOTT') into: income;

sql>print income;

 

七、包

 

包用于在逻辑上组合过程和函数，它由包规范和包体两部分组成

 

1、我们可以使用create package命令来创建包。

 

实例：

 

create package sp_package as

procedure update_sal(name varchar2,new sal number);

function annual_income(name varchar2) return number;

end;

 

包的规范只包含了过程和函数的说明，但是没有过程和函数的实现代码。包体用于实现包规范中的过程和函数。

 

2、建立包体可以使用create package body命令

 

实例：

 

create package body sp_package as

procedure Update_Sal(spName varchar2,new sal number) is

begin

update emp set sal = newSal where ename = spName;

end;

function annual_income(name varchar2)

return numeber is annual_salary number(7,2);

begin

select sal*12+nvl(comm,0)*12 into annual_salary from emp where ename=name;

return annual_salary;

end;

end;

 

3、如何调用包的过程或是函数

 

当调用包的过程或是函数时，在过程和函数前需要带有包名，如果要访问其他方案的包，还需要在包名前加方案名。

 

案例：

 

sql>call sp_package.update_sal('SCOTT',1500);

 

 

八、定义并使用变量

 

概述：在编写pl/sql程序时，可以定义变量和常量。在pl/sql程序中包括有标量类型（scalar）、复合类型（composite）、参照类型（references）、lob（large object）。

 

1、标量（scalar）

 

在编写pl/sql块时，如果要使用变量，需要在定义部分定义变量。

 

pl/sql中定义变量和常量的语法如下：

 

identifier [constant] datatype [not null] [:=| default expr]

 

identifier：名称

 

constant：指定常量。需要指定它的初始值，其其值是不能改变的。

 

datatype：数据类型

 

not null：指定变量值不能为NULL

 

:=：给变量或是常量指定初始值

 

default：用于指定初始值

 

expr：指定初始值pl/sql表达式，可是文本值、其他变量、函数等。

 

标量定义的案例

 

（1）定义一个变长字符串

 

v_ename varchar2(10);

 

（2）定义一个小数，范围-9999.99～9999.99

 

v_sal number(6,2);

 

（3）定义一个小数并给一个初始值为5.4 :=是pl/sql的赋值号

 

v_sal2 number(6,2):=5.3;

 

（4）定义一个日期类型的数据

 

v_hiredate date;

 

（5）定义一个布尔变量，不能为空，初始值为false

 

v_valid boolean not null default false;

 

A、使用标量

 

在定义好变量后，就可以使用这些变量。这里需要 说明的是pl/sql块为变量赋值不同于其他的编程语言，需要在等号前面加冒号（:=）。

 

下面以输入员工号，显示雇员姓名、工资、个人所得税（税率为0.03）为例，说明变量的使用，看看如何编写。

 

declare

 

c_tax_rate number(3,2):=0.03;

 

v_ename varchar2(5);

 

v_sal number(7,2);

 

v_tax number(7,2);

 

begin

 

select ename,sal into v_ename,v_sal from emp where empno=&no;

 

v_tax:=v_sal*c_tax_rate;

 

dbms_output.put_line('姓名是：'||v_ename||' 工资是：'||v_sal||' 所得税是：'||v_tax);

 

end;

 

B、使用%type类型

 

对于上面的pl/sql块有一个问题：

 

就是如果员工的姓名超过了5字符的话，就会有错误，为了降低pl/sql程序的维护工作量，可以使用%type属性定义变量，这样它会按照数据库列来确定你定义的变量的类型和长度。

 

语法：标识符名 表名.列名%type;

 

案例：

 

declear

 

c_tax_rate number(3,2):=0.03;

 

v_ename emp.ename%type;

 

v_sal emp.sal%type;

 

v_tax number(7,2);

 

begin

 

select ename,sal into v_ename,v_sal from emp where empno=&no;

 

v_tax:=v_sal*c_tax_rate;

 

dbms_output.put_line('姓名是：'||v_ename||' 工资是：'||v_sal||' 所得税是：'||v_tax);

 

end;

 

 

 

2、复合变量（composite）

 

用于存储多个值的变量。主要包括这几种pl/sql记录、pl/sql表、嵌套表、varray。

 

1、pl/sql记录

 

类似于高级语言中的结构体，需要注意的是，当引用pl/sql记录成员时，必须要加记录变量作为前缀（记录变量.记录成员）。

 

案例：

 

declare

 

type emp_record_type is record(name emp.ename%type, salary emp.sal%type,title emp.job%type);

 

sp_record emp_record_type;

 

begin

 

select ename,sal,job into sp_record from emp where empno=7788;

 

dbms_output.put_line('员工名：'||sp_record.name);

 

end;

 

 

 

2、pl/sql表

 

相当于高级语言中的数组，但是需要注意的是在高级语言中数组的下标不能为负数，而pl/sql是可以为负数的，并且表元素的下标没有限制。

 

案例：

 

declare

 

type sp_table_type is table of emp.ename%type index by binary_integer;

 

sp_table sp_table_type;

 

begin

 

select ename into sp_table(0) from emp where empno=7788;

 

dbms_output.put_line('员工名：'||sp_table(0));

 

 

 

end;

 

说明：

 

sp_table_type：是pl/sql表类型

 

emp.ename%type：指定了表的元素的类型和长度

 

sp_table：是pl/sql表变量

 

sp_table(0)：表示下标为0的元素

 

 

 

3、参照变量

 

概述：参照变量是指用于存放数值指针的变量，通过使用参照变量，可以使得应用程序共享相同对象，从而降低占用空间。在编写pl/sql程序时，可以使用游标变量(ref cursor)和对象类型变量（ref obj_type）两种参照变量类型。

 

1、游标变量（ref cursor）

 

使用游标时，当定义游标时不需要指定相应的select语句，但是当使用游标时（open时）需要指定select语句，这样一个游标就与一个select 语句结合了。

 

案例：

 

请使用pl/sql编写一个块，可以输入部门号，并显示该部门所有员工姓名和他的工资

 

declare

 

type sp_emp_cursor is ref cursor;

 

test_cursor sp_emp_cursor;

 

v_ename emp.ename%type;

 

v_sal emp.sal%type

 

begin

 

opent test_cursor for select ename,sal from emp where deptno=&no;

 

loop

 

fetch test_cursor into v_ename,v_sal;

 

exit when test_cursor%notfound

 

dbms_output.putline('姓名：'||v_ename||' 工资：'||v_sal);

 

endloop;

 

close test_cursor;

 

end;

 

 

 

九、控制结构

 

概述：在任何计算机语言（C、Java、Pascal）都有各种控制语句（条件语句、循环结构、顺序控制结构），在pl/sql中也存在这样的控制结构。

 

1、条件分支语句

 

pl/sql中提供了三种条件分支语句。if-then、if-then-else、if-then-elsif-else。

 

（1）简单的条件判断if-then

 

案例：编写一个过程，可以输入一个雇员名，如果该雇员的工资低于2000，就给该雇员工资增加10%。

 

create procedure IncreaseSal(spName varchar2) is

 

v_sal emp.sal%type;

 

begin

 

select sal into v_sal from emp where ename=spName;

 

if v_sal<2000 then

 

update emp sal=sal+sal*10% where ename=spName;

 

end if;

 

end;

 

 

 

（2）二重条件分支if-then-else

 

案例：编写一个过程，可以输入一个雇员名，如果该雇员的补助不是0，就在原来的基础上增加100；如果补助为0就把补助设为200。

 

create procedure IncreaseComm(spName varchar2) is

 

v_comm emp.comm%type;

 

begin

 

select comm into v_comm from emp where ename=spName;

 

if v_comm<>0 then

 

update emp set comm=comm+100 where ename=spName;

 

else

 

update emp set comm=200 where ename=spName;

 

end if;

 

end;

 

 

 

（3）多重条件分支if-then-elsif-else

 

案例：编写一个过程，可以输入一个雇员编号，如果该雇员的职位是PRESIDENT就给他的工资增加1000，如果该雇员的职位是MANAGER就给他的工资增加500，其他职位的雇员工资增加200。

 

create procedure IncreaseSal(spNo number) is

 

v_job emp.job%type;

 

begin

 

select job into v_job from emp where empno=spNo;

 

if v_job='PRESIDENT' then

 

update emp set sal=sal+1000 where empno=spNo;

 

elsif v_job='MANAGER'

 

update emp set sal=sal+500 where empno=spNo;

 

else

 

update emp set sal=sal+200 where empno=spNo;

 

end if;

 

end;

 

 

 

2、循环语句

 

（1）基本循环

 

loop是pl/sql中最简单的循环语句，这种循环语句以loop开头，以end loop结尾，这种循环至少会被执行一次。

 

案例：编写一个过程，可输入用户名，并循环添加10个用户到Users表中，用户编号从1开始增加。

 

create procedure AddUser(spName varchar2) is

 

v_num number(2):=1;

 

begin

 

loop

 

insert into Users values(v_num,spName);

 

exit when v_num=10;

 

v_num:=v_num+1;

 

endloop;

 

end;

 

 

 

（2）While循环

 

基本循环至少要执行循环体一次，而对于while循环来说，只有条件为true时，才会执行循环体语句，while循环以while 条件 loop开始，以end loop结束。

 

案例：

 

编写一个过程，可输入用户名，并循环添加10个用户到Users表中，用户编号从11开始增加

 

create procedure AddUser(spName varchar2) is

 

v_num number(3):=11;

 

begin

 

while v_num<=20 loop

 

insert into Users values(v_num,spName);

 

v_num:=v_num+1;

 

endloop;

 

end;

 

 

 

（3）for循环

 

基本for循环的基本结构如下

 

begin

 

for i in reverse 1..10 loop

 

insert into Users values(i,'Kevin');

 

end loop;

 

end;

 

 

 

3、顺序控制语句

 

（1）goto语句

 

goto语句用于跳转到特定标号去执行有车，注意由于使用goto语句会增加程序的复杂度，并使得应用程序可读性变差，所以在一般应用开发时，建议大家不要使用goto语句

 

基本语法如下：

 

goto label：其中label是已经定义好的标号名。

 

declare

 

i number(4):=1;

 

begin

 

loop

 

dbms_output.put_line("输出i='||i");

 

if i=10 then

 

goto end_loop

 

end if;

 

i:=i+1;

 

endloop;

 

<<end_loop>>

 

dbms_output.put_line("循环结束");

 

end;

 

 

 

（2）null

 

null语句不会执行任何操作，并且会直接将控制传递到下一条语句。使用null语句的主要好处是可以提高pl/sql的可读性。

 

declare

 

v_sal emp.sal%type;

 

begin

 

select sal into v_sal from emp where ename=spName;

 

if v_sal<2000 then

 

update emp sal=sal+sal*10% where ename=spName;

 

else

 

null;

 

end if;

 

end;

 

 

 

十、编写分页过程

 

概述：分页时任何一个网站（bbs、网上商城、Blog）都会使用到的技术，因此学习pl/sql编程开发就一定要掌握该技术。

 

案例：编写一个过程完成分页。

 

--创建一个包，存放游标。

 

create package ListPackage as

 

type page_cursor is ref cursor;

 

end;

 

--开始编写分页的过程

 

create procedure PagedList(

 

tableName in varchar2, --要查询的表名

 

sortColumn in varchar2, --欲排序的列名

 

pagesize in number, --每页显示的记录数

 

currentPage in number, --当前页号

 

myRowCount out number, --表中总共的记录数

 

myPageCount out number, --共有多少页

 

p_cursor out ListPackage.page_cursor --游标变量

 

) is

 

v_sql varchar2(1000);

 

v_begin number:=(currentPage-1)*pagesize+1;

 

v_end number:=currentPage*pagesize;

 

begin

 

v_sql:='select * from(select *, rownum rn from (select * from '||tableName||' order by '||sortColumn||') t1 where rownum<='||v_end||') where rn>='||v_begin;

 

open p_cursor for v_sql;

 

--计算myRowCount和myPageCount

 

v_sql:='select count(*) from '||tableName;

 

execute immediate v_sql into myRowCount;

 

if mod(myRowCount,pagesize)=0 then

 

myPageCount:=myRowCount/pagesize;

 

else

 

myPageCount:=myRowCount/pagesize+1;

 

 

 

end if;

 

close p_cursor;

 

end;

 

 

 

十一、例外处理

 

1、例外的分类

 

Oracle将例外分为预定义例外、非预定义例外和自定义例外三种。

 

预定义例外：用于处理常见的Oracle错误。

 

非预定义例外：用于处理预定义例外不能处理的例外。

 

自定义例外：用于处理与Oracle错误无关的其他情况。

 

 

 

2、处理预定义例外

 

预定义例外时由pl/sql所提供的系统例外。当pl/sql应用程序违反了Oracle规定的限制时，则会隐含的触发一个内部例外。pl/sql为开发人员提供了二十多个预定义例外。我们给大家介绍常用的例外。

 

（1）预定义例外case_not_found

 

在开发pl/sql块中编写case语句时，如果在when子句中没有包含必须的条件分支，就会触发case_not_found的例外。

 

案例：

 

create procedure sp_pro6(spno number) is

 

v_sal emp.sal%type;

 

begin

 

select sal into v_sal from emp where empno=spno;

 

case

 

when v_sal<1000 then

 

update emp set sal=sal+100 where empno=spno;

 

when v_sal<2000 then

 

update emp set sal=sal+200 where empno=spno;

 

end case;

 

exception

 

when case_not_found then

 

dbms_output.put_line('case语句没有与'||v_sal||'相匹配的条件');

 

end;

 

 

 

（2）预定义例外cursor_already_open

 

当从新打开已经打开的游标时，会隐含的触发例外cursor_already_open。

 

案例：

 

declare

 

cursor emp_cursor is select ename,sal from emp;

 

begin

 

open emp_cursor;

 

for emp_record1 in emp_cursor loop

 

dbms_output.put_line(emp_record1.ename);

 

end loop;

 

exception

 

when cursor_already_open then

 

dbms_output.put_line('游标已经打开');

 

end;

 

 

 

（3）预定义例外dup_val_on_index

 

在唯一索引所对应的列上插入重复的值时，会隐含的触发例外dup_val_on_index例外。

 

案例：

 

begin

 

insert into dept values(10.'公关部','北京');

 

exception

 

when dup_val_on_index then

 

dbms_output.put_line('在deptno列上不能出现重复值');

 

end;

 

 

 

（4）预定义例外invalid_cursor

 

当试图在不合法的游标上执行操作时，会触发该例外。

 

例如：视图从没有打开的游标提取数据，或是关闭没有打开的游标。则会触发该例外。

 

declare

 

cursor emp_cursor is select ename,sal from emp;

 

emp_record emp_cursor%rowtype;

 

begin

 

fetch emp_cursor into emp_record;

 

dbms_output.put_line(emp_record.ename);

 

close emp_cursor;

 

exception

 

when invalid_cursor then

 

dbms_output.put_line('请检查游标是否打开');

 

end;

 

 

 

（5）预定义例外invalid_number

 

当输入的数据有误时，会触发该例外。

 

案例：数字100写成了1oo就会触发该例外

 

begin

 

update emp set sal=sal+'1oo';

 

exception

 

when invalid_number then

 

dbms_output.put_line('输入数字不正确');

 

end;

 

 

 

（6）预定义例外no_data_found

 

下面是一个pl/sql块，当执行select into没有返回行，就会触发该例外。

 

declare

 

v_sal emp.sal%type;

 

begin

 

select sal into v_sal from emp where ename='&name';

 

exception

 

when no_data_found then

 

dbms_output.put_line('不存在该员工');

 

end;

 

 

 

（7）预定义例外too_many_rows

 

当执行select into语句时，如果返回超过了一行，则会触发该例外。

 

declare

 

v_ename emp.ename%type;

 

begin

 

select ename into v_ename from emp;

 

exception

 

when too_many_rows then

 

dbms_output.put_line('返回了多行');

 

end;

 

 

 

（8）预定义例外zero_divide

 

当执行除0操作时，则会触发给例外。

 

 

 

（9）预定义例外value_error

 

当在执行赋值操作时，如果变量的长度不足以容纳实际数据，则会触发该例外value_error。

 

案例：

 

declare

 

v_ename varchar2(5);

 

begin

 

select ename into v_ename from emp where empno=&no;

 

dbms_output.put_line(v_ename);

 

exception

 

when value_error then

 

dbms_output.put_line('变量尺寸不足');

 

end;

 

 

 

（10）其它预定义例外

 

A、login_denide

 

当用户非法登录时，会触发该例外。

 

 

 

B、not_logged_on

 

如果用户没有登录就执行dml操作，就会触发该例外。

 

 

 

C、storage_error

 

如果超出了内存空间或是内存被损坏，就触发该例外。

 

 

 

D、timeout_on_resourece

 

如果Oracle在等待资源时，出现超时就触发该例外。

 

 

 

3、非预定义例外

 

非预定义例外用于处理与预定义例外无关的Oracle错误，使用预定义例外只能处理21个Oracle错误，而当使用pl/sql开发应用程序时，可能会遇到其他的一些Oracle错误。比如在pl/sql快中执行dml语句时，违反了约束规定等等。在这样的情况下，也可以处理Oracle的各种例外。

 

 

 

4、处理自定义例外

 

预定义例外和非预定义例外都是Oracle错误相关的，并且处在的Oracle错误会隐含的触发相应的例外。而自定义例外与Oracle错误没有任何关联，它是由开发人员为特定情况所定义的例外。

 

案例：请编写一个pl/sql块，接收一个雇员的编号，并给该雇员工资增加1000元，如果该雇员不存在请提示。

 

create procedure IncreaseSal(spno number) is

 

myException exception;

 

begin

 

update emp set sal=sal+100 where empno=spno;

 

if sql%not_found then

 

raise myException;

 

end if;

 

exception

 

when myException then

 

dbms_output.put_line('没有更新任何用户');

 

end;

 

 

 

十二、Oracle视图

 

概述：视图是一个虚拟表，其内容由查询定义，同真实表一样，视图包含一系列带有名称的列和行数据。但是，视图并不在数据库中以存储的数据值集形式存在，行和列数据来自有定义视图的查询所引用的表，并且在引用视图时动态生成。

 

1、视图与表的区别

 

A、表需要占用磁盘空间，视图不需要。

 

B、视图不能添加索引。

 

C、使用视图可以简化复杂查询。

 

D、视图有利于提高安全性。

 

 

 

2、创建视图

 

create view 视图名 as select语句[with read only]

 

 

 

3、创建或修改视图

 

create or replace view 视图名 as select语句[with read only]

 

 

 

4、删除视图

 

drop view 视图名