PL/SQL 语句块详细解说

PL/SQL语言

作用：如果不使用PL/SQL语言，oracle一次只能处理一条SQL语句。每条SQL语句都导致客户（client）向服务器(server)调用，从而在性能上产生很大的开销，尤其是在网络操作中。如果使用PL/SQL,一个块中的语句作为一个组，导致客户向服务器的一次调用，减少网络转输

PL/SQL块结构与用途

一个基本的PL/SQL块由三部分组成：定义部分、可执行部分以及例外处理部分：

定义部分：

定义将在可执行部分中调用的所有变量、常量、游标和用户自定义的例外处理。这部分可以没有。

可执行部分：

包括对数据库中进行操作的SQL语句，以及对块中进行组织、控制的PL/SQL语句。这部分必须存在。

例外处理部分：

对可执行部分中的语句，在执行过程中出错或出现非正常现象时所做的相应处理。这部分可以没有。

由基本的PL/SQL块组成PL/SQL程序，可组成不同的程序形式，它们的用途和适用性各不相同。程序形式大致有以下几种：

1、无名块：也就是没有命名的PL/SQL块，它可以是嵌入某一个应用之中的一个PL/SQL块。

2、存储过程/函数：也就是命名了的PL/SQL块，它可以接收参数，并且可以重复地被调用。

3、包

命名了的PL/SQL模块，由一组相关的过程、函数和标识符组成。可以将任何出现在块声明的语句 ( 过程 , 函数 , 游标 , 类型 , 变量 ) 放于包中 , 相当于一个容器 . 将声明语句放入包中的好处是 : 用户可以从其他 PL/SQL 块中对其进行引用 , 因此包为 PL/SQL 提供了全程变量。

4、数据库触发器：是一个与具体数据库表相关联的存储PL/SQL程序。每当一个SQL操作影响到该数据库表时，系统就自动执行相应的数据库触发器。每个表最多可以有12个触发器。

PL/SQL块的定义部分

变量声明语法：

标识符 [constant] 数据类型 [not null]

[:=默认值或PL/SQL表达式]

注意的几点（书p73):

加上关键字CONSTANT，则表示所定义的标识符为一个常量，必须为它赋初值。

如果定义的标识符不能为空，则必须加关键字NOT NULL，并赋初值。

“：=”为赋值操作符。

PL/SQL提供了SQL没有的附加数据类型。除一般的ORACLE SQL数据类型外，PL/SQL还可以使用这些数据类型对变理进行说明

1、BOOLEAN：可用预定义的常量TRUE、FALSE或NULL对一个布尔变量赋值。

2、binary_integer（二进制整数):数值范围在 -2,147,483,647到2,147,483,647之间。

3、NATURAL（自然数）:数值范围在0到2,147,483,647之间。

4、POSITIVE(正整数):数值范围在1到2,147,483,647之间。

5、%TYPE：可说明一个变量的数据类型与某一指定列的数据类型相同。

6、%ROWTYPE: 用这种数据类型可以说明一个复合变量，与某一特定有中的一行相同。

变量声明分标量型变量声明和组合变量（复合变量）声明。标量型变量是指其内部没有成员的变量。

例：

age number(5) not null:=25;

pi constant number(9):=3.1415926;

name char(10) not null:=‘fan’;

today date not null:=sysdate;

sex boolean:=true;

例：声明一个变量Student_name,其类型基于另一个变量teacher_name。

Teacher_name char(10);

Student_name teacher_name%type;

例: 声明一个变量No,使其与表emp中EMPNO的类型一致。

no emp.empno%type;

组合型变量内部包含若干个成员，每个成员由标量型变量或组合型变量组成

定义组合型变量的语法如下：

type <类型名> is record

(<域名1> {<标量型数据类型> | <record类型>}[not null],

<域名2> {<标量型数据类型> | <record类型>}[not null],

…….);

<标识符> <类型名>;

例：定义一个变量，存放一个学生的有关信息。

declare

type student is record /*定义组合型变量类型*/

(id number(4) not null:=0,

name char(10) not null:=' ',

sex boolean not null:=true,

birthday date,

physics number(3),chemistry number(3));

stu student; /*定义组合型变量*/

begin

stu.id:=1;

stu.name:='sheng';

stu.sex:=true;

end;

例：声明一个变量，其结构与表emp的数据结构相一致。

declare

emp_value emp%rowtype;

Begin

select * into empvalue from emp

where empno=7369;

dbms_output.put_line(‘姓名：’||‘ ’||emp_value.ename);

End;

注：在运行些PL/SQL块前，应先运行

Set serveroutput on /*使dbms_output.put_line可以显示在屏幕上*/

可执行部分

可执行部分可以包含变量赋值语句、数据查询、数据操纵和事务控制语句。如select、insert、update、delete、commit、rollback等语句。而不能使用CREATE，ALTER，DROP，GRANT，REVOR等数据定义或数据控制命令。

给标量型变量赋值

teacher_name:=‘liu’;

给record类型变量赋值语法:

<record名.域名>:=<pl/sql表达式>;

例:

stud.name:=‘fan’ student.sex:=true;

%rowtype型变量的赋值与record相同。

例：计算表emp中所有雇员的平均工资。

declare

avg_sal number(7,2);

begin

select avg(sal) into avg_sal from emp;

dbms_output.put_line(‘平均工资为:’||avg_sal);

End;

在运用select语句查询时注意查询的结果只能有一条，如果返回的查询结果多于一条或没有找到任何数据，则会产生异常。

事务控制命令

一、事务的概念

事务是一个操作序列。这些操作要么都做，要么都不做，是一个不可分割的工作单位。事务通常以BEGIN TRANSACTION开始，以COMMIT或ROLLBACK操作结束，COMMIT即提交，提交事务中所有的操作、事务正常结束。ROLLBACK即撤消已作的所有操作，滚回到事务开始时的状态。

二、事务提交命令

作用：提交自上次提交以后对数据库中数据所作的改动。事务提交以后，这些操作就不能再撤消。

事务提交有3种方式：

1、显式提交:使用commit命令

2、隐式提交:有些命令，如alter、audit、comment、connect、create、disconnect、

drop、exit、grant、noaudit、revoke、rename命令等都隐含有commit操作,而无须指明该操作。

3、自动提交

用户可以使用set命令来设置自动提交环境。经过设置后，sql/plus会自动提出交用户的更新工作。一旦设置了自动提交，用户每次执行insert、update或delete命令，系统就会立即自动进行提交。

命令为:

set auto on

三、事务回退

作用：尚未提交的UPDATE，INSERT，DELETE操作，可以用事务回退命令回退，回退之后数据库将回到上次COMMIT后的状态。

命令： rollback

四、保存点

作用：可以把一个事务划分成若干部分，每一部分之间用一个保存点分隔。

格式：

savepoint 保存点名;

rollback to 保存点名;

PL/SQL流程控制

主要有三种：

条件控制

循环控制

跳转控制

有两种形式:

1、 IF_THEN_ELSE语句

语法格式:

if 条件 then

语句1；

语句2;

…… else

语句n;

语句n+1;

…… end if;

2、IF_THEN_ELSE_IF语句

语法格式:

IF 条件1 THEN

语句1;

语句2;

……Elsif 条件2 THEN

语句3;

语句4;

[ELSIF 条件 n THEN

……]

[ELSE

语句n+1

……]

END IF

1、根据下式计算y值

x+1 x>3

y= X×2 X>=0

X÷3 X<0

PL/SQL实现语句1:

declare

x number(4);

y number(10,2);

begin

x:=&x; /* 实现从键盘输入一个值给X */

if x>=3 then

y:=x+1;

elsif x>=0 then

y:=x*2;

else

y:=x/3;

end if;

dbms_output.put_line(y); /* 输出Y值 */

end;

PL/SQL实现语句2:declare

x number(4);

y number(10,2);

begin

x:=&x;

if x>=3 then

y:=x+1;

else if x>=0 then

y:=x*2;

else

y:=x/3;

end if;

end if;

dbms_output.put_line(y);

end;

注意:条件语句中可以没有else 语句如:

declare

x number(4);

y number(10,2);

begin

x:=&x;

if x>=3 then

y:=x+1;

end if;

dbms_output.put_line(y);

end;

循环控制语句

有四种类型：

FOR循环

直到型循环

当型循环

简单循环

FOR循环

语法格式：

For 计数器 in [reverse] 下界..上界

Loop

语句1;

语句2;

……END LOOP;

注意:

 计数器是有于控制循环资数的变量，它不需显式地在变量定义部分进行定义。

系统默认时，计数器从下界往上界递增记数，如果在关键字IN后加上REVERSE则表示计数器从上界到下界递增记数。

计数器变量只能在循环体内部使用，不能在循环体外使用。

例：计算1+2+3+……+100的值

declare

S number(5):=0;

Begin

For I in 1..100

Loop

s:=s+I;

End loop;

Dbms_output.put_line(s);

End;

/

例4.10

从键盘接收一个整数，计算它的阶乘并在屏幕上打印输出。

declare

num number(3);

Fac number;

begin

Num:=&num

fac:=1;

if num>0 then

for i in 1..num loop

fac:=fac*i;

end loop;

end if;

end;

直到型循环

特点：先执行循环体，后判断条件。

语法格式：

Loop

<语句1>

<……>

Exit [when 条件]

<语句 n>

<……>

End loop;

例4.11用直到型循环控制语句求从1-100所有整数的和。

解1: declare

I number(3):=100;

suma number;

begin

suma:=0;

loop

suma:=suma+I;

I:=I-1;

exit when I=0;

end loop;

end;

解2：

declare

I number(3):=1;

suma number;

begin

suma:=0;

loop

suma:=suma+I;

I:=I+1;

exit when I>100;

end loop;

dbms_output.put_line(suma);

end;

当型循环

特点：先判断条件，后执行循环体。

语法格式:

While <条件> loop

<语句1>

<……>

End loop;

例4.12 采用当型循环控制语句求1-100所有整数的和

解：先申明一个全局变量:

variable suma number

再写PL/SQL块:

declare

I number(3):=100;

begin

:suma:=0; /*变量suma前带有“:”表示为全局变量*/

While I>0 loop

:suma:=:suma+I;

I:=I-1;

End loop;

End;

跳转语句

语法格式：

<<标号>>

……Goto 标号

有几项原则:

可以实现同一块中语句之间的跳转

可以从子块跳至父块,但不能从父块跳至子块

不能从IF语句体外跳入IF语句内。

不能从循环体外跳入循环体内。

不能从子程序外部跳入到子程序内

循环语句的嵌套

即一个循环语句中还可以包括其它的循环语句。

例:求100-200间的全部素数。

declare

fag boolean:=true;

begin

for i in 100..200 loop

for j in 2..i-1 loop

if mod(i,j)=0 then

fag:=false;

end if;

end loop;

if fag then

dbms_output.put_line(i);

end if;

fag:=true;

end loop;

end;

PL/SQL允许在一个块中包含子块，下段程序中列出了一个匿名的块，它包含另一个子块，该子块有自己的说明部分。例如：

declare

max_i constant int:=100;

i int:=1;

rec_number int ;

begin

for i in 1..max_i loop

if mod(i,5)=0 then

rec_number:=5;

elsif mod(i,7)=0 then

rec_number:=7;

else

rec_number:=i;

end if;

insert into text_table

(record_number,current_date)

values

(rec_number,sysdate);

declare

max_j constant int :=10;

j int :=1;

begin

for j in 1..max_j loop

rec_number:=rec_number*j;

insert into test_table

(rec_number,current_date)

values

(record_number,sysdate);

end loop;

end;

end loop;

end;