友情提示:如果本网页打开太慢或显示不完整,请尝试鼠标右键“刷新”本网页!阅读过程发现任何错误请告诉我们,谢谢!! 报告错误
一世书城 返回本书目录 我的书架 我的书签 TXT全本下载 进入书吧 加入书签

SQL 21日自学通(V3.0)(PDF格式)-第95章

按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
————未阅读完?加入书签已便下次继续阅读!






如何在一个 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 



       ABC                    StillOwes      60。49 



        DDD                   StillOwes      150。95 



        BBB                   StillOwes      50。00 



分析 



    从 PAYMENT_TABLE  获得的数据中有一行被插入到了 PAY_STATUS_TABLE  表中 



如果用户的付款金额比应付金额更多                 那么差额将会被输入到 AMT_CREDIT            列中  如果 



用户的支付金额少于应付金额  那么将会在 AMT_OWED                    中输入一个信息  如果客户已经 



全部支付完毕       那么这两列中就不会有任何数据 



又一个程序 



    在这个例子中使用的表叫 PAY_TABLE 



输入 



    SQL》 desc pay_table 



输出 



    Name            Null?          Type 



    NAME            NOT NULL       VARCHAR2(20) 



    PAY_TYPE        NOT NULL       VARCHAR2(8) 



    PAY_RATE        NOT NULL       NUMBER(8;2) 



    EFF_DATE        NOT NULL       DATE 



    PREV_PAY                       NUMBER(8;2) 



    先来看一下数据 



                                      
返回目录 上一页 下一页 回到顶部 0 0
未阅读完?加入书签已便下次继续阅读!
温馨提示: 温看小说的同时发表评论,说出自己的看法和其它小伙伴们分享也不错哦!发表书评还可以获得积分和经验奖励,认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦!