P249 -P254  oracle8i_9i数据库基础——查看本号百度文库

　　***********PL/SQL 简介***************

　　1、PL/SQL 是过程语言（Procedural Language)与结构化查询语言（SQL）结合而成的编程语言

　　2、PL/SQL 是对SQL的扩展

　　3、支持多种数据类型，如大对象和集合类型，可使用条件和循环等控制结构

　　4、可用于创建存储过程、触发器和程序包，给SQL语句的执行添加程序逻辑

　　5、与 Oracle 服务器和 Oracle 工具紧密集成，具备可移植性、灵活性和安全性

　　§11.2.2  *********************PL/SQL 可用的SQL语句*******************

　　PL/SQL是Oracle系统的核心语言，现在Oracle的许多部件都是由PL/SQL写成。在PL/SQL中可以使用的SQL语句有：

　　在PL/SQL中可以用的SQL语句有：

　　INSERT

　　UPDATE

　　DELETE

　　SELECT INTO

　　COMMIT

　　ROLLBACK

　　SAVEPOINT

　　提示：在 PL/SQL中只能用 SQL语句中的 DML 部分，不能用 DDL 部分，

　　如果要在PL/SQL中使用DDL(如Create  table  等)的话，只能以动态的方式来使用。

　　Oracle 的 PL/SQL 组件在对 PL/SQL 程序进行解释时，同时对在其所使用的表名、列名及数据类型进行检查。

　　PL/SQL 可以在SQL*PLUS 中使用。PL/SQL 可以在高级语言中使用。

　　PL/SQL可以 在Oracle的 开发工具中使用。

　　其它开发工具也可以调用PL/SQL编写的过程和函数，如Power Builder 等都可以调用服务器端的PL/SQL过程。

　　/**************************PL/SQL块的结构如下：*************************/

　　Declare

　　/*   声明部分: 在此  声明PL/SQL用到的变量,类型及光标 */

　　begin

　　/*  执行部分:  过程及SQL 语句  , 即程序的主要部分  */

　　Exception

　　/* 执行异常部分: 错误处理  */

　　End;

　　************************************第十三章PL/SQL 处理流程**************************

　　在PL/SQL程序中，要使程序能按照逻辑进行处理，除了有些语句是SQL语句外，还必须有能进行逻辑控制的语句。下面就介绍进行处理流程的语句结构。

　　§13.1  /*********条件语句**********条件语句*********************条件语句******/

　　IF <布尔表达式> THEN

　　PL/SQL 和 SQL语句

　　END IF;

　　IF <布尔表达式> THEN

　　PL/SQL 和 SQL语句

　　ELSE

　　其它语句

　　END IF;

　　IF <布尔表达式> THEN

　　PL/SQL 和 SQL语句

　　ELSIF < 其它布尔表达式> THEN

　　其它语句

　　END IF;

　　提示: ELSIF 不能写成 ELSEIF

　　例:

　　declare

　　v_salary annualsalary.nannualsalary%TYPE;--annualsalary.nannualsalary%TYPE 为 "表名.字段名%type"

　　v_output varchar(100);

　　begin

　　select nannualsalary into v_salary    --为v_salary 赋值

　　from annualsalary where nyear=1997;

　　if v_salary <40000 then

　　v_output:='1员工工资小于40000';

　　elsif v_salary>50000 then

　　v_output:='1员工工资大于50000';

　　else

　　v_output:='1员工工资在40000到50000之间';

　　end if;

　　dbms_output.put_line(v_output);

　　end;

　　§13.2  循环

　　1.  简单循环  ****************loop end loop*************loop  end loop*******************loop   end loop****************

　　Loop

　　要执行的语句;

　　end loop;

　　--此循环将执行到遇到一条 exit 语句为止.

　　例1.

　　declare

　　x  number;

　　begin

　　x:= 0;

　　loop

　　x:=x+1;

　　dbms_output.put_line(to_char(x));

　　exit  when x=10;

　　end loop;

　　end;

　　例 2.

　　--节选自在线代码 simple.sql

　　DECLARE

　　V_counter  BINARY_INTEGER  := 1;

　　Begin

　　LOOP

　　Inert into temp_table

　　Values( v_counter, ‘loop index’ );

　　V_counter  := v_counter  + 1;

　　If v_counter > 50  then

　　Exit;

　　End if ;

　　End loop;

　　End;

　　例 3.

　　--节选自在线代码 exitwhen.sql

　　DECLARE

　　V_counter  binary_index := 1;

　　Begin

　　Loop

　　Insert  into temp_table

　　Values ( v_counter,’ loop index ‘ );

　　Exit  when  v_counter > 50  ;

　　End loop;

　　End;

　　2.  WHILE 循环 /********While <> Loop  End Loop*******************While <> Loop  End Loop*******************

　　While 循环

　　While  <布尔表达式>  loop

　　要执行的语句;

　　end loop;

　　例1.

　　declare

　　x  number;

　　begin

　　x:= 1;

　　while  x<10  loop

　　dbms_output.put_line(to_char(x)||’还小于10’);

　　x:= x+1;

　　end loop;

　　end;

　　例 2.

　　--节选自在线代码 while1.sql

　　DECLARE

　　V_counter  binary_integer  := 1;

　　Begin

　　While v_counter <= 50  loop

　　Inert  into temp_table

　　Values( v_counter, ‘loop index ‘) ;

　　V_counter  := v_counter + 1;

　　End loop;

　　End;

　　3.  数字式循环

　　For 循环/****************************************For  循环计数器  in  下限 ..  上限

　　For  循环计数器  in  下限 ..  上限

　　loop

　　要执行的语句;

　　end loop;

　　FOR loop_counter  IN [ REVERSE ] low_bound  . . high_bound  LOOP

　　Sequence_of_statements;

　　END LOOP;

　　例1.

　　begin

　　for  I   in   1    ..   10    loop

　　dbms_output.put_line(‘in=’||to_char(I));

　　end loop;

　　end;

　　例 2.

　　--节选自在线代码 forscope.sql

　　DECLARE

　　V_counter  number := 7;

　　Begin

　　Inert  into temp_table  (num_col)

　　Values ( v_counter );

　　For  v_counter  IN 20 .. 30 loop

　　Insert  into temp_table (num_col )

　　Values ( v_counter );

　　End  loop;

　　Inert  into temp_table (num_col )

　　Values( v_counter );

　　End ;

　　注：*******************************************如果在for 中用 INVERSE 关键字，则循环索引将从最大向最小进行迭代.

　　§13.3  ***************标号和GOTO************标号和GOTO****************标号和GOTO

　　PL/SQL中GOTO语句是无条件跳转到指定的标号去的意思。语法如下：

　　GOTO   label;

　　. . .  . . .

　　<<label>>

　　例:

　　--节选自在线代码 goto.sql

　　DECLARE

　　V_counter  BINARY_INTEGER := 1;

　　Begin

　　Loop

　　Inert  into temp_table

　　Values( v_counter,’loop count’ );

　　V_counter  := v_counter + 1;

　　If  v_counter > 50 then

　　Goto l_endofloop;

　　End  if;

　　End loop;

　　<<l_endofloop>>

　　insert  into  temp_table ( char_col )

　　values(‘Done !’);

　　End ;

　　§13.4  ***********NULL 语句 *******************NULL 语句 *****************NULL 语句

　　在 PL/SQL 程序中，null语可以用 null 语句来说明“不用做什么”的意思。如：

　　declare

　　. . .

　　begin

　　…

　　if( v_num is null then

　　goto print1;

　　end if;

　　…

　　<<print1>>

　　NULL;  -- 不需要处理任何数据。

　　End;