ed.
SQL>
命名的程序与匿名程序的执行不同，执行命名的程序块必须使用execute关键字：
create or replace procedure update_commission
(v_dept in number,v_pervent in number default 10) is
begin
update emp
set comm=sal*v_percent
where deptno=v_dept;
end
SQL>/
Procedure created
SQL>execute update_commission(10,15);
PL/SQL procedure successfully completed.
SQL>
如果在另一个命名程序块或匿名程序块中执行这个程序，那么就不需要EXECUTE关进字。
declare
v_dept number;
begin
select a.deptno
into v_dept
from emp a
where job=''''PRESIDENT''''
update_commission(v_dept);
end
SQL>/
PL/SQL procedure successfully completed
SQL>
控制结构
控制结构控制PL/SQL程序流程的代码行,PL/SQL支持条件控制和循环控制结构。
语法和用途
IF..THEN
语法：
IF condition THEN
Statements 1;
Statements 2;
....
END IF
IF语句判断条件condition是否为TRUE，如果是，则执行THEN后面的语句，如果condition为false或NULL则跳过THEN到END IF之间的语句，执行END IF后面的语句。
IF..THEN...ELSE
语法:
IF condition THEN
Statements 1;
Statements 2;
....
ELSE
Statements 1;
Statements 2;
....
END IF
如果条件condition为TRUE,则执行THEN到ELSE之间的语句，否则执行ELSE到END IF之间的语句。
IF 可以嵌套，可以在IF 或IF ..ELSE语句中使用IF或IF..ELSE语句。
if (a>b) and (a>c) then
g:=a;
else
g:=b;
if c>g then
g:=c;
end if
end if
IF..THEN..ELSIF
语法：
IF condition1 THEN
statement1;
ELSIF condition2 THEN
statement2;
ELSIF condition3 THEN
statement3;
ELSE
statement4;
END IF;
statement5;
如果条件condition1为TRUE则执行statement1,然后执行statement5,否则判断condition2是否为TRUE,若为TRUE则执行statement2,然后执行statement5,对于condition3也是相同的，如果condition1，condition2，condition3都不成立，那么将执行statement4,然后执行statement5。
循环控制
循环控制的基本形式是LOOP语句，LOOP和END LOOP之间的语句将无限次的执行。LOOP语句的语法如下：
LOOP
statements;
END LOOP
LOOP和END LOOP之间的语句无限次的执行显然是不行的，那么在使用LOOP语句时必须使用EXIT语句，强制循环结束，例如：
X:=100;
LOOP
X:=X+10;
IF X>1000 THEN
EXIT;
END IF
END LOOP;
Y:=X;
此时Y的值是1010.
EXIT WHEN语句将结束循环，如果条件为TRUE，则结束循环。
X:=100;
LOOP
X:=X+10;
EXIT WHEN X>1000;
X:=X+10;
END LOOP;
Y:=X;
WHILE..LOOP
WHILE..LOOP有一个条件与循环相联系，如果条件为TRUE,则执行循环体内的语句，如果结果为FALSE,则结束循环。
X:=100;
WHILE X<=1000 LOOP
X:=X+10;
END LOOP;
Y=X;
FOR...LOOP
语法：
FOR counter IN [REVERSE] start_range....end_range LOOP
statements;
END LOOP;
LOOP和WHILE循环的循环次数都是不确定的，FOR循环的循环次数是固定的，counter是一个隐式声明的变量，他的初始值是start_range,第二个值是start_range+1,直到end_range,如果start_range等于end _range,那么循环将执行一次。如果使用了REVERSE关键字，那么范围将是一个降序。
X:=100;
FOR v_counter in 1..10 loop
x:=x+10;
end loop
y:=x;
如果要退出for循环可以使用EXIT语句。
标签
用户可以使用标签使程序获得更好的可读性。程序块或循环都可以被标记。标签的形式是<>。
标记程序块
<>
[DECLARE]
... ... ...
BEGIN
........
[EXCEPTION]
.......
END label_name
标记循环
<>
LOOP
.........
<>
loop
..........
<>
loop
....
EXIT outer_loop WHEN v_condition=0;
end loop innermost_loop;
..........
END LOOP inner_loop;
END LOOP outer_loop;
GOTO语句
语法：
GOTO LABEL;
执行GOTO语句时，控制会立即转到由标签标记的语句。PL/SQL中对GOTO语句有一些限制，对于块、循环、IF语句而言，从外层跳转到内层是非法的。
X ：=100;
FOR V_COUNTER IN 1..10 LOOP
IF V_COUNTER =4 THEN
GOTO end_of_loop
END IF
X:=X+10;
<>
NULL
END LOOP
Y:=X;
注意：NULL是一个合法的可执行语句。
嵌套
程序块的内部可以有另一个程序块这种情况称为嵌套。嵌套要注意的是变量，定义在最外部程序块中的变量可以在所有子块中使用，如果在子块中定义了与外部程序块变量相同的变量名，在执行子块时将使用子块中定义的变量。子块中定义的变量不能被父块引用。同样GOTO语句不能由父块跳转道子块中，反之则是合法的。
《OUTER BLOCK》
DECLARE
A_NUMBER INTEGER；
B_NUMBER INTEGER；
BEGIN
--A_NUMBER and B_NUMBER are available here
<>
DECLARE
C_NUMBER INTEGER
B_NUMBER NUMBER(20)
BEGIN
C_NUMBER:=A_NUMBER;
C_NUMBER=OUTER_BLOCK.B_NUMBER;
END SUB_BLOCK;
END OUT_BLOCK;
小结
我们在这篇文章中介绍了PL/SQL的基础语法以及如何使用PL/SQL语言设计和运行PL/SQL程序块，并将PL/SQL程序整合到Oracle服务器中,虽然PL/SQL程序作为功能块嵌入Oracle数据库中，但PL/SQL与ORACLE数据库的紧密结合使得越来越多的Oracle数据库管理员和开发人员开始使用PL/SQL
上一页 [1] [2] |
