PL/SQL 学习

                                                                                第一个程序

代码如下 具体的思想已经在注释里了

 

DECLARE
l_book_count INTEGER

GEGIN 
--set the value of l_book_count.
   SELECT COUNT(*)
          INTO l_book_count
          FROM books
          WHERE author LIKE '%FEUERSTEIN,STEEVEN';
 --print the count of the books that author has written.
DBMS_OUTPUT.PUT_LINE (
     'steven has written (or co-written)'||
     l_book_count ||
     'books');
     
     
     --oh,and I changed my name, so...
     UPDATE books
     SET author = replace (author,'STEVEN','STEPHEN')
     WHERE author LIKE '%FEUERSTEIN,STEVEN';
 END;

                                                                                条件语句

一 if and case 语句

二 循环语句

for  .....loop        and        while .......loop     和简单循坏

三  goto语句

pl支持goto语句，允许你无条件的调到需要该执行的地方 下面看看一个存储过程

 

 CREATE OR replace PROCEDURE pay_out_balance (
 
 --parameter list of the procedure.
 
         account_id_in in accounts.id % TYPE)
 is
     --declare varial here.
     l_balance_remaining Number;
  GEGIN
   --loop util the value of l_balance_remaining less than 1000
   --then exit the loop
     LOOP
        l_balance_remaining := account_balance (account_id_in);
   if l_balance_remaining < 1000
   THEN
       EXIT;
      else
          apply_balance(account_id_in,l_balance_remaining);
          END if;
     END if;
     
     END LOOP;
     END pay_out_balance;

 

下面的存储过程通过id获取用户的名字和余额，如果余额太低，就显式的抛出一个异常，阻止程序的进一步执行。

 

CREATE OR REPLACE PROCEDURE check_account (
account_id_in IN accounts.id % type )
IS
   l_balance_remaining     NUMBER;  --remaining money
   l_balance_below_minimum EXCEPTION;  -- the remaining is too below the type is Exception
   l_account_name          accounts.name%TYPE ;-- account name
  
  --get account name by id
  BEGIN
     SELECT name
       INTO  l_account_name
       FROM accounts
       WHERE id = account_id_in;

 --calculate the remaining of money
l_balance_remaining := account_balance (account_id_in);

--tell account the remaining money of his
DBMS_OUTPUT.put_line(
      'Balance for ' || l_account_name ||
      ' = ' || l_balance_remaining );
--if the remaining below 1000 ,then raise exception here.
IF l_balance_remaining < 1000
THEN 
   RAISE l_balance_below_minimum;
END IF;
   
Exception
    WHEN NO_DATA_FOUND
THEN
    --No account found for this ID
log_error("No account exsits");

WHEN l_balance_below_minimum
THEN
    log_error("Your remaining of money is too low , please add your money....");
         RAISE;
END;
 

好了这是入门的第一步，现在是2007-5-14 21：01得回寝室拉 要不关门了  下次我将继续，敬请关注我的博客