PL/SQL编程简介(转)

Oracle在数据库中引入了一种过程化编程语言，称为PL/SQL(Procedural Language/SQL).PL/SQL构建与SQL之上，可以用来编写包含SQL语句程序。其中包含这类语言的标准编程结构如下：

• 块结构
• 变量和类型
• 条件逻辑
• 循环
• 游标，其中保存着查询返回的结果
• 过程
• 函数
• 包，可以用来将过程和函数组合到一个单元中

      通常，PL/SQL用于向数据库中加入业务逻辑。这种集中化的代码可以由任何能够访问数据库的程序调用，其中就包括C程序和Java程序。

 

     块结构

     PL/SQL程序可划分成称为块的结构，每一个块包含有PL/SQL和SQL语句。典型的PL/SQL代码包含如下的结构：

    

    

[DECLARE

     declaration_statements

    ]

    BEGIN

         executable_statements

     [EXCEPTION

         exception_handing_statements

     ]

    END;

 [DECLARE

      declaration_statements     

     ]

     BEGIN

          executable_statements

      [EXCEPTION

          exception_handing_statements

      ]

     END;

 

 

声明和异常块是可选的，上述语法中的解释如下：

•  declaration_statements   包含在声明块中，它负责声明该块其他部分将会使用的变量。这个变量对这个块来说是局部变量，也就是说不能从块的外部来访问这些变量。声明块总是放在块的开始位置。
• executable_statements    是块中实际可执行的语句。
• exception_handing_statements 中的语句负责处理可执行语句中可能发生的任何错误。

每一条语句都有分号结尾，整个块由关键字END标志结束。先看一个简单的例子：

 

-- Created on 2010-5-20 by ADMINISTRATOR
declare
  -- Local variables here
    width INTEGER;
    height INTEGER:=2;
    area INTEGER;
  i integer;
begin
  -- Test statements here
  area:=6;
    width:=area/height;
    DBMS_OUTPUT.put_line('width='||width);
    EXCEPTION
         WHEN ZERO_DIVIDE THEN
     DBMS_OUTPUT.put_line('Division by zero');
end;

-- Created on 2010-5-20 by ADMINISTRATOR 
declare 
  -- Local variables here
	width INTEGER;
	height INTEGER:=2;
	area INTEGER;
  i integer;
begin
  -- Test statements here
  area:=6;
	width:=area/height;
	DBMS_OUTPUT.put_line('width='||width);
	EXCEPTION
		 WHEN ZERO_DIVIDE THEN
     DBMS_OUTPUT.put_line('Division by zero');
end;

 

   变量和类型

   变量声明中包含名称和类型，还可以通过%TYPE关键字定义变量类型，这个关键字告诉PL/SQL使用与表中指定列相同的类型。下面这个例子用%TYPE声明了一个变量，这个变量类型与product表中price列类型相同。

  

product_price  product.price%TYPE

product_price  product.price%TYPE

 

  条件逻辑

  在PL/SQL中，IF、THEN、ELSE、ELSIF和ENDIF等关键字用于执行条件逻辑。下面的语法说明了条件逻辑的用法：

  

IF condition1 THEN
 statement1
ELSIF condition2 THEN
 statement2
ELSE
 statement3
END IF;

IF condition1 THEN
 statement1
ELSIF condition2 THEN
 statement2
ELSE
 statement3
END IF;

 

   循环

   PL/SQL中包含三种循环：

   简单循环：直到显式结束循环前一直运行。

   WHILE循环:直到某个特定条件出现之前一直运行。

   FOR循环：运行预先确定的次数。

  

   简单循环

  

LOOP

 statements

 END LOOP；

  LOOP

   statements

   END LOOP；

 

  要结束简单循环，可以使用EXIT或者EXIT WHEN语句。EXIT语句立即结束循环，EXIT WHEN语句在指定条件出现时结束循环。  举个简单例子：

LOOP
      counter:=counter+1;
      EXIT WHEN counter=5;
END LOOP;

LOOP
      counter:=counter+1;
      EXIT WHEN counter=5;
END LOOP;

 

   WHILE循环

  

     WHILE循环在某个特定条件出现之前一直运行。

     举个例子：

    

counter=0;
WHILE counter<6 LOOP
      counter:=counter+1;
END LOOP;

counter=0;
WHILE counter<6 LOOP
      counter:=counter+1;
END LOOP;

 

 

   FOR循环

   FOR循环会运行预先确定的次数，可通过给循环变量指定上限和下限来确定循环运行的次数，然后，循环变量在每次循环中递增或递减。语法如下：

   

  

FOR loop_variable IN [REVERSE] lower_bound ..upper_bound LOOP
    statements
END LOOP;

FOR loop_variable IN [REVERSE] lower_bound ..upper_bound LOOP
    statements
END LOOP;

    如果使用了REVERSE则loop_variable每次减少1。

   

    游标

    当SELECT语句从数据库中返回的记录多余一条时，就可以使用游标。使用游标需要遵循以下5个步骤：

    (1)声明一些变量，用于保存SELECT语句返回的列值。

    (2)声明游标，并指定SELECT语句。

    (3)打开游标。

    (4)从游标中获取记录。

    (5)关闭游标。

  

declare
  v_username amc_base_user.user_name%TYPE;
  CURSOR v_user_cursor IS
    SELECT user_name FROM amc_base_user;
begin
  OPEN v_user_cursor;
  LOOP
    FETCH v_user_cursor
      INTO v_username;
    EXIT WHEN v_user_cursor%NOTFOUND;
    DBMS_OUTPUT.put_line(v_username);
  END LOOP;
  CLOSE v_user_cursor;
end;

declare
  v_username amc_base_user.user_name%TYPE;
  CURSOR v_user_cursor IS
    SELECT user_name FROM amc_base_user;
begin
  OPEN v_user_cursor;
  LOOP
    FETCH v_user_cursor
      INTO v_username;
    EXIT WHEN v_user_cursor%NOTFOUND;
    DBMS_OUTPUT.put_line(v_username);
  END LOOP;
  CLOSE v_user_cursor;
end;

 

注意：

     1 声明完游标后此时游标并未打开，只有OPEN的时候才打开。

     2 为了确定循环是否结束，可以使用布尔变量%NOTFOUND。当FETCH语句到达游标的最后一条记录时，这个变量为真。

     3 游标使用完之后要及时关闭掉。

 

利用FOR循环的功能，可以增强在游标中访问记录的能力。当使用FOR循环时，可以不显式地打开和关闭游标----FOR循环会自动执行这些操作。

 

declare
  v_username amc_base_user.user_name%TYPE;
  CURSOR v_user_cursor IS
    SELECT user_name FROM amc_base_user;
begin
      FOR v_u IN v_user_cursor LOOP
    DBMS_OUTPUT.put_line(v_u.user_name);
  END LOOP;
end;

declare
  v_username amc_base_user.user_name%TYPE;
  CURSOR v_user_cursor IS
    SELECT user_name FROM amc_base_user;
begin
	  FOR v_u IN v_user_cursor LOOP
    DBMS_OUTPUT.put_line(v_u.user_name);
  END LOOP;
end;