友情提示：如果本网页打开太慢或显示不完整，请尝试鼠标右键“刷新”本网页！
SQL 21日自学通(V3.0)(PDF格式)-第69部分
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！
PL/SQL 在语句块中的每一条语句 — — 从变量的赋值到数据操作命令 — — 使用分号结束
在 SQL 的脚本中正斜线 / 但是在 PL/SQL 也使用正斜线来表明脚本的结束 最为
容易的运行 PL/SQL 语句块的方法是使用 START 命令 或简写为 STA 或@
你的 PL/SQL 脚本可能会像下边这样
语法
/* This file is called proc1。sql */
BEGIN
DECLARE
。。。
BEGIN
393
…………………………………………………………Page 394……………………………………………………………
SQL 21 日自学通（V1。0） 翻译人 笨猪
。。。
statements；
。。。
EXCEPTION
。。。
END；
END；
/
你可以像下边这样执行 PL/SQL 脚本
SQL》 start proc1 or
SQL》 sta proc1 or
SQL》 @proc1
注 PL/SQL 脚本语言可以使用 START 命令或@字符来运行 它也可以被其它的 PL/SQL
脚本 SHELL 脚本或其它的程序调用
将输入返回给用户
尤其是在捕获了错误的时候 你可以会希望输出信息给用户告诉他出现了什么错误
你可以转送已有的错误信息 你也可以显示你所定制的错误信息 对于用户来说这会与错
误代码更容易理解 也许你想的是当在错误产生时让他们与数据库管理员联系而不是给他
们尽可以准确的信息
PL/SQL 在它的语法部分中并没有提供直接的方式来显示输出 但是它可以让你来调
用一个对该语句块服务的包 这个包是由 DBMS_OUTPUT 来调用的
EXCEPTION
WHEN zero_divide THEN
DBMS_OUTPUT。put_line（'ERROR： DIVISOR IS ZERO。 SEE YOUR DBA。'）
分析
ZERO_DIVIDE 是 ORACLE 的一个预定义的异常 有许多在程序运行中产生的常见的
错误都被预定义为异常并且可以被默认地激活 也就是说你不必在编程的过程中手动将其
激活
394
…………………………………………………………Page 395……………………………………………………………
SQL 21 日自学通（V1。0） 翻译人 笨猪
如果在这个语句块运行的过程中产生的异常 用户将会看到
INPUT
SQL》 @block1
ERROR： DIVISOR IS ZERO。 SEE YOUR DBA。
PL/SQL procedure successfully pleted。
是不是这样的错误信息比下边的错误信息更友好
输入/输出
SQL》 @block1
begin
*
ERROR at line 1：
ORA…01476： divisor is equal to zero
ORA…06512： at line 20
在 PL/SQL 中的事务控制
在第 11 天中的 事务控制 中 我们已经讨论了事务控制命令 MIT ROLLBACK
SAVEPOINT 这些命令可以让程序员在在事务向数据库中进行写操作时加以控制 在多数
时候所进行的操作是需要撤消
语法
BEGIN
DECLARE
。。。
BEGIN
statements。。。
IF condition THEN
MIT；
ELSE
ROLLBACK；
END IF；
395
…………………………………………………………Page 396……………………………………………………………
SQL 21 日自学通（V1。0） 翻译人 笨猪
。。。
EXCEPTION
。。。
END；
END；
PL/SQL 的一个好处就是你可以用自动地执行事务控制命令来代替对大型事务的不断
监控— — 这是非常单调和乏味的
让所有的事在一起工作
到目前为止 我们已经介绍了 PL/SQL 你已经熟悉了它所支持的数据类型以及 PL/SQL
语句块的主要特性 你已经知道了如何定义一个局部变量 常量和指针 你也已经知道了
如何在一个 PROCDURE 部分 指针的操作部分和异常部分嵌入 SQL 语句 当指针在使用
时 你应该清楚地知道如何在异常部分捕获它 现在你已经可以使用 BEGIN END 语
句块来进行了实际工作 在今天的结束部分 你将会彻底明白 PL/SQL 语句块之间的相同
关系
示例表及数据
在我们创建的 PL/SQL 语句块中使用两个表 PAYMENT_TABLE 确定了一个客户 她
/他的付款是多少 应得的总数是多少 PAY_STATUS_TABLE 最初实际上没有任何数据
数据将会依据 PAYMENT_TABLE 中的特定条件插入到 PAY_STATUS_TABLE 表中
输入
SQL》 select * from payment_table；
输出
CUSTOMER PAYMENT TOTAL_DUE
ABC 90。50 150。99
AAA 79。00 79。00
BBB 950。00 1000。00
CCC 27。50 27。50
DDD 350。00 500。95
EEE 67。89 67。89
396
…………………………………………………………Page 397……………………………………………………………
SQL 21 日自学通（V1。0） 翻译人 笨猪
FFF 555。55 455。55
GGG 122。36 122。36
HHH 26。75 0。00
输入
SQL》 describe pay_status_table
输出
Name Null？ Type
CUST_ID NOT NULL CHAR（3）
STATUS NOT NULL VARCHAR2（15）
AMT_OWED NUMBER（8；2）
AMT_CREDIT NUMBER（8；2）
分析
DESCRIBE 是一个 ORACLE SQL 它可以不通过查询数据字典就可以显示一个表的结
构 它与其它的 ORACLE SQL*PLUS 命令将会在第 20 天 SQL*PLUS 中提到
一个简单的 PL/SQL 语句块
这个 PL/SQL 的脚本内容如下所示
输入
set serveroutput on
BEGIN
DECLARE
AmtZero EXCEPTION；
cCustId payment_table。cust_id％TYPE；
fPayment payment_table。payment％TYPE；
fTotalDue payment_table。total_due％TYPE；
cursor payment_cursor is
select cust_id； payment； total_due
from payment_table；
fOverPaid number（8；2）；
fUnderPaid number（8；2）；
BEGIN
397
…………………………………………………………Page 398……………………………………………………………
SQL 21 日自学通（V1。0） 翻译人 笨猪
open payment_cursor；
loop
fetch payment_cursor into
cCustId； fPayment； fTotalDue；
exit when payment_cursor％NOTFOUND；
if （ fTotalDue = 0 ） then
raise AmtZero；
end if；
if （ fPayment 》 fTotalDue ） then
fOverPaid ：= fPayment fTotalDue；
insert into pay_status_table （cust_id； status； amt_credit）
values （cCustId； 'Over Paid'； fOverPaid）；
elsif （ fPayment 《 fTotalDue ） then
fUnderPaid ：= fTotalDue fPayment；
insert into pay_status_table （cust_id； status； amt_owed）
values （cCustId； 'Still Owes'； fUnderPaid）；
else
insert into pay_status_table
values （cCustId； 'Paid in Full'； null； null）；
end if；
end loop；
close payment_cursor；
EXCEPTION
when AmtZero then
DBMS_OUTPUT。put_line（'ERROR： amount is Zero。 See your supervisor。'）；
when OTHERS then
DBMS_OUTPUT。put_line（'ERROR： unknown error。 See the DBA'）；
END；
END；
/
398
…………………………………………………………Page 399……………………………………………………………
SQL 21 日自学通（V1。0） 翻译人 笨猪
分析
DECLARE 部分定义了六个局部变量 与被称为payment_cursor 指针一样 PROCEDURE
从第二个 BEGIN 语句开始并先打开了这个游标并开始循环 而 FETCH 命令则将当前指针
所指向的记录的内容存入在 DECLARE 部分定义的变量中 当在指针中发现记录以后 语
句会将客户的支付与他应付的总数进行比较 根据支付的的数量来计算已付款的人数和未
付款的人数 然后将计算过的数据插入到 PAY_STATUS_TABLE 表中 当循环终止以后
关闭指针 异常用于处理在这一部分可以发生的错误
现在 我们来运行一个这个脚本看一个他的结果
INPUT：
SQL》 @block1
OUTPUT：
Input truncated to 1 characters
ERROR： amount is Zero。 See your supervisor。
PL/SQL procedure successfully pleted。
现在看来你在应得总数上有一个数值是不正确的 你应该修正这个数量然后再运行脚
本
输入/输出
SQL》 update payment_table set total_due = 26。75 where cust_id = 'HHH'；
1 row updated。
SQL》 mit；
mit plete。
SQL》 truncate table pay_status_table；
Table truncated。
注 在上例中我们清除了 pay_status_table 中的内容 在下一次运行这个语句块时表将会被
重新写入 你也许会想把清除语句也加入到语句块中吧
输入/输出
SQL》 @block1
Input truncated to 1 characters
PL/SQL procedure successfully pleted。
399
…………………………………………………………Page 400……………………………………………………………
SQL 21 日自学通（V1。0） 翻译人 笨猪
现在你可以对 PAY_STATUS_TABLE 表执行 SELECT 语句 看一下每一个客户的支付
情况
输入/输出
SQL》 select * from pay_status_table order by status；
CUSTOMER STATUS AMT_OWED AMT_CREDIT
FFF OverPaid 100。00
AAA PaidinFull
CCC PaidinFull
EEE PaidinFull
GGG PaidinFull
HHH PaidinFull
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部!
温馨提示： 温看小说的同时发表评论，说出自己的看法和其它小伙伴们分享也不错哦！发表书评还可以获得积分和经验奖励，认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦！