PL/SQL块结构和组成元素

最新推荐文章于 2021-03-18 14:55:54 发布

jolingcome

最新推荐文章于 2021-03-18 14:55:54 发布

阅读量981

点赞数

分类专栏：数据库

数据库专栏收录该内容

29 篇文章 4 订阅

订阅专栏

2.1 PL/SQL块

PL/SQL块可以分为三类： 

　　1. 无名块或匿名块（anonymous）：动态构造，只能执行一次，可调用其它程序，但不能被其它程序调用。

　　2. 命名块（named）：是带有名称的匿名块，这个名称就是标签。

　　3. 子程序（subprogram）：存储在数据库中的存储过程、函数等。当在数据库上建立好后可以在其它程序中调用它们。

　　4. 触发器（Trigger）：当数据库发生操作时，会触发一些事件，从而自动执行相应的程序。

　　5. 程序包（package）：存储在数据库中的一组子程序、变量定义。在包中的子程序可以被其它程序包或子程序调用。但如果声明的是局部子程序，则只能在定义该局部子程序的块中调用该局部子程序。

2.2 PL/SQL结构

PL/SQL程序由三个块组成，即声明部分、执行部分、异常处理部分。 

PL/SQL块的结构如下

 DECLARE  
    --声明部分: 在此声明PL/SQL用到的变量,类型及游标，以及局部的存储过程和函数
  BEGIN
    -- 执行部分:  过程及SQL 语句  , 即程序的主要部分
  EXCEPTION
    -- 执行异常部分: 错误处理
  END;

2.3 标识符

PL/SQL程序设计中的标识符定义与SQL 的标识符定义的要求相同。要求和限制有：
l.标识符名不能超过30字符；
2.第一个字符必须为字母；
3.不分大小写；
4.不能用’-‘(减号);
5.不能是SQL保留字。
提示:  一般不要把变量名声明与表中字段名完全一样,如果这样可能得到不正确的结果.

2.4 PL/SQL 变量类型

2.4.1 变量类型

eg:
Declare
Row_id RowID;
info Varchar2(40);
Begin
	insert into scott.dept values(90,'财务室'，‘海口’)
	returning rowid,danme||':'||to_char(deptno)||':'||loc
	into row_id,info;
	DBMS_OUTPUT.PUT_LINE('RowID:'||row_id);
	DBMS_OUTPUT.PUT_LINE(info);
END;
#returning是执行完插入后返回插入记录的信息用的
#rowid返回到一个row_id的变量，dname || ':' || to_char (deptno) || ':' || loc返回到info变量中
#DBMS_OUTPUT.PUT_LINE('RowID:'||row_id);打印

在使用RETURNING 子句是应注意以下几点限制：
　　1．不能与DML语句和远程对象一起使用；
　　2．不能检索LONG 类型信息；
　　3．当通过视图向基表中插入数据时，只能与单基表视图一起使用。

2.4.2 复合类型

2.4.2.1 记录类型

记录类型类似于C语言中的结构数据类型（struct 结构体）
它把逻辑相关的、分离的、基本数据类型的变量组成一个整体存储起来，
它必须包括至少一个标量型或RECORD数据类型的成员，称作PL/SQL RECORD的域(FIELD)，
其作用是存放互不相同但逻辑相关的信息。在使用记录数据类型变量时，
需要先在声明部分先定义记录的组成、记录的变量，
然后在执行部分引用该记录变量本身或其中的成员。

定义记录类型语法如下: 

TYPE record_name IS RECORD(
   v1 data_type1  [NOTNULL]  [:= default_value ],
   v2 data_type2  [NOTNULL]  [:= default_value ],
   ......
   vn data_typen  [NOTNULL]  [:= default_value ] );

eg:
#申明一个RECORD类型的数据类型,recode类型type名为test_rec,定义rec_book为test_rec类型的数据，
#它是用来在存储成员的，’胡勇‘保存在rec_book中的成员Name中，'谈PL/SQL编程'保存在rec_book的info中
#
DECLARE
TYPE test_rec IS RECORD(
	Name VARCHAR2(30) NOT NULL:='胡勇'，
	Info VARCHAR2(100));
rec_book test_rec;
BEGIN
	rec_book.Name:='胡勇'；
	rec_book.info:='谈PL/SQL编程';
	DBMS_OUTPUT.PUT_LINE(rec_book.Name||' '||rec_book.info);
END;

可以用 SELECT语句对记录变量进行赋值,只要保证记录字段与查询结果列表中的字段相配即可。

例2：
#v_ename emp.ename%TYPE,%TYPE是指RECORD_TEPY_emp类型中的成员变量v_name和emp.ename一样的类型
create or replace procedure p_test_recordtype is
TYPE RECORD_TEPY_emp IS RECORD(
	v_ename emp.ename%TYPE,
	v_date emp.hiredate%TYPE,
	v_empno emp.empno%TYPE);
v_emp_record RECORD_TEPY_emp;
begin
	select ename,hiredate,empno
	into v_emp_record
	from emp where dmpno='7360';
	DBMS_OUTPUT.PUT_LINE('雇员名称：'||v_emp_record.v_ename||'雇佣日期：'
			||v_emp_record.v_date||'岗位：'||v_emp_record.v_empno);
end p_test_recordtype

一个记录类型的变量只能保存从数据库中查询出的一行记录，若查询出了多行记录，就会出现错误。

例3：
Declare
#定义一个hr.employees表中的这几列相同的记录数据类型
TYPE Record_type_employees IS RECORD(
	f_name hr.employee.first_name%TYPE,
	h_date hr.employee.hire_date%TYPE,
	j_id hr.employee.job_id%TYPE);
#声明一个该记录数据类型的记录变量
v_emp_record Record_type_employees；
Begin
	select first_name,hire_date,job_id into v_emp_record
	from employees
	where employee_id=&emp_id;
	DBMS_OUTPUT.PUT_LINE('雇员名称：'||v_emp_record.f_name
		||'雇佣日期：'||v_emp_record.h_date
		||'岗位：'||v_emp_record.j_id);
END;

2.4.2.2 数组类型

数据是具有相同数据类型的一组成员的集合。每个成员都有一个唯一的下标，它取决于成员在数组中的位置。在PL/SQL中，数组数据类型是VARRAY。

定义VARRY数据类型语法如下： 

TYPE varray_name IS VARRAY(size) OF element_type [NOT NULL];

注：varray_name是VARRAY数据类型的名称，size是下整数，
表示可容纳的成员的最大数量，每个成员的数据类型是element_type。
默认成员可以取空值，否则需要使用NOT NULL加以限制。
对于VARRAY数据类型来说，必须经过三个步骤，分别是：定义、声明、初始化。

例1：
DECLARE
--定义一个最多保存5个VARCHAR(25)数据类型成员的VARRAY数据类型
   TYPE reg_varray_type IS VARRAY(5) OF VARCHAR(25);
--声明一个该VARRAY数据类型的变量
   v_reg_varray REG_VARRAY_TYPE;

BEGIN
--用构造函数语法赋予初值
   v_reg_varray := reg_varray_type
         ('中国', '美国', '英国', '日本', '法国');

   DBMS_OUTPUT.PUT_LINE('地区名称：'||v_reg_varray(1)||'、'
                                    ||v_reg_varray(2)||'、'
                                    ||v_reg_varray(3)||'、'
                                    ||v_reg_varray(4));
   DBMS_OUTPUT.PUT_LINE('赋予初值NULL的第5个成员的值：'||v_reg_varray(5));
--用构造函数语法赋予初值后就可以这样对成员赋值
   v_reg_varray(5) := '法国';
   DBMS_OUTPUT.PUT_LINE('第5个成员的值：'||v_reg_varray(5));
END;

实例2： 
--数组 varray实例 
declare 
   type type_myVarray is varray(3) of Varchar2(30); 
   v_myvarrayType  type_myVarray; 
begin 
   --第一种赋值方法：构造函数赋值 
   v_myvarrayType := type_myVarray('男人','女人','不男不女'); 
   dbms_output.put_line(v_myvarrayType(1)); 
   dbms_output.put_line(v_myvarrayType(2)); 
   dbms_output.put_line(v_myvarrayType(3)); 
   --第二种赋值方法：一个一个的赋值 
   select e.ename,e.job,to_char(e.sal) into v_myvarrayType(1),v_myvarrayType(2),v_myvarrayType(3) 
   from scott.emp e where empno = 7369; 
  
 --这种方式不行：会报错：---PLS-00642: 在 SQL 语句中不允许使用本地收集类型（这种赋值方式只适应与record类型的变量） 
   --select e.ename,e.job,to_char(e.sal) into v_myvarrayType
     from scott.emp e where empno = 7369; 
#此种可以在Record赋值
   dbms_output.put_line(v_myvarrayType(1)); 
   dbms_output.put_line(v_myvarrayType(2)); 
   dbms_output.put_line(v_myvarrayType(3)); 
end;

2.4.2.3 使用%TYPE

定义一个变量，其数据类型与已经定义的某个数据变量(尤其是表的某一列)的数据类型相一致，这时可以使用%TYPE。

使用%TYPE特性的优点在于：

　　l.所引用的数据库列的数据类型可以不必知道；
　　2.所引用的数据库列的数据类型可以实时改变，容易保持一致，也不用修改PL/SQL程序

例：DECLARE
   -- 用%TYPE 类型定义与表相配的字段
   TYPE T_Record IS RECORD(
        T_no emp.empno%TYPE,
        T_name emp.ename%TYPE,
        T_sal emp.sal%TYPE );
   -- 声明接收数据的变量
   v_emp T_Record;
BEGIN
   SELECT empno, ename, sal INTO v_emp FROM emp WHERE empno=7788;
   DBMS_OUTPUT.PUT_LINE
    (TO_CHAR(v_emp.t_no)||' '||v_emp.t_name||'  ' || TO_CHAR(v_emp.t_sal));
END;

2.4.3 使用%ROWTYPE

PL/SQL 提供%ROWTYPE操作符, 返回一个记录类型, 其数据类型和数据库表的数据结构相一致。它是与整个数据库表的结构一致，而%type是与数据库表中的某列数据结构一致。

使用%ROWTYPE特性的优点在于：

　　1.所引用的数据库中列的个数和数据类型可以不必知道；

　　2.所引用的数据库中列的个数和数据类型可以实时改变，容易保持一致，也不用修改PL/SQL程序。

例：
DECLARE
    v_empno emp.empno%TYPE :=&no;  
    #&no是输入的变量值，变量v_empno的类型与emp.empno一致，并赋值为&no输入的值
    rec emp%ROWTYPE;
    #返回记录类型，其数据类型和数据库表emp的数据结构一致
BEGIN
    SELECT * INTO rec FROM emp WHERE empno=v_empno; #存入到rec的数据是empno是&no输入的值一致的
    DBMS_OUTPUT.PUT_LINE('姓名:'||rec.ename||'工资:'||rec.sal||'工作时间:'||rec.hiredate); 
END;

2.4.4 LOB类型

ORACLE提供了LOB (Large OBject)类型，用于存储大的数据对象的类型。ORACLE目前主要支持BFILE, BLOB, CLOB 及 NCLOB 类型。 

BFILE (Movie)
    存放大的二进制数据对象，这些数据文件不放在数据库里，而是放在操作系统的某个目录里，数据库的表里只存放文件的目录。 

BLOB(Photo)
    存储大的二进制数据类型。变量存储大的二进制对象的位置。大二进制对象的大小<=4GB。 

CLOB(Book)
    存储大的字符数据类型。每个变量存储大字符对象的位置，该位置指到大字符数据块。大字符对象的大小<=4GB。 

NCLOB
    存储大的NCHAR字符数据类型。每个变量存储大字符对象的位置，该位置指到大字符数据块。大字符对象的大小<=4GB。

2.4.5 BIND 变量

没太理解用处

2.4.6 PL/SQL 表(TABLE)

定义记录表（或索引表）数据类型。它与记录类型相似，但它是对记录类型的扩展。它可以处理多行记录，类似于高级中的二维数组，使得可以在PL/SQL中模仿数据库中的表。记录只处理一行。

定义记录表类型的语法如下：

TYPE table_name IS TABLE OF element_type [NOT NULL]
INDEX BY [BINARY_INTEGER | PLS_INTEGER | VARRAY2];
　　
关键字INDEX BY表示创建一个主键索引，以便引用记录表变量中的特定行。 

Binary_Integer 与 Pls_Integer 都是整型类型.Binary_Integer类型变量值计算是由Oracle来执行，不会出现溢出，
但是执行速度较慢，因为它是由Oracle模拟执行。而Pls_Integer的执行是由硬件即直接由CPU来运算，
因而会出现溢出，但其执行速度较前者快许多。

table类型对应的方法如下：

EXISTS(n):如果集合的第n个成员存在，则返回true

COUNT:返回已经分配了存储空间即赋值了的成员数量

FIRST：返回成员的最低下标值

LAST：返回成员的最高下标值

PRIOR(n)：返回下标为n的成员的前一个成员的下标。如果没有则返回NULL

NEXT(N)：返回下标为n的成员的后一个成员的下标。如果没有则返回NULL

TRIM：删除末尾一个成员

TRIM(n) ：删除末尾n个成员

DELETE：删除所有成员

DELETE(n) ：删除第n个成员

DELETE(m, n) ：删除从n到m的成员

EXTEND：添加一个null成员

EXTEND(n)：添加n个null成员

EXTEND(n,i)：添加n个成员，其值与第i个成员相同

LIMIT：返回在varray类型变量中出现的最高下标值

例1：
Declare
#定义记录表数据类型
TYPE dept_table_type IS TABLE OF
	dept%ROWTYPE INDEX By BINARY_INTEGER;
	 #index by BINARY_INTEGER 索引是整型类型
my_dname_table dept_table_type;
v_count number(2):=4;
Begin
	#plsql中的for 循环int从1-v_count循环，int即相当于python中的for i in range(4)中的i
	#本脚本是：循环从1-4
	for int IN 1 .. v_count Loop
		select * INTO my_name_table(int)
		from dept where deptno=int*10; #1*10,20,30,40的deptno放入my_name_table中
	END Loop;
	#FIRST返回的是成员的最低下标，LAST返回的是成员的最高下标
	#即返回输出记录表中的全部数据(最低下标-最高下标)
	FOR int IN my_dname_table.FIRST .. my_dname_table.LAST LOOP
	DBMS_OUTPUT.PUT_LINE('Department number:'||my_dname)

例2：按一维数组使用记录表 
DECLARE
--定义记录表数据类型
   TYPE reg_table_type IS TABLE OF varchar2(25)
   INDEX BY BINARY_INTEGER;
--声明记录表数据类型的变量
   v_reg_table REG_TABLE_TYPE;
   
BEGIN
   v_reg_table(1) := 'Europe';
   v_reg_table(2) := 'Americas';
   v_reg_table(3) := 'Asia';
   v_reg_table(4) := 'Middle East and Africa';
   v_reg_table(5) := 'NULL';

   DBMS_OUTPUT.PUT_LINE('地区名称：'||v_reg_table (1)||'、'
                                    ||v_reg_table (2)||'、'
                                    ||v_reg_table (3)||'、'
                                    ||v_reg_table (4));
   DBMS_OUTPUT.PUT_LINE('第5个成员的值：'||v_reg_table(5));
END;

例3：按二维数组使用记录表 
DECLARE
--定义记录表数据类型
   TYPE emp_table_type IS TABLE OF employees%ROWTYPE
   INDEX BY BINARY_INTEGER;
--声明记录表数据类型的变量
   v_emp_table EMP_TABLE_TYPE;
BEGIN
   SELECT first_name, hire_date, job_id INTO
   v_emp_table(1).first_name,v_emp_table(1).hire_date, v_emp_table(1).job_id
   FROM employees WHERE employee_id = 177;
   SELECT first_name, hire_date, job_id INTO
   v_emp_table(2).first_name,v_emp_table(2).hire_date, v_emp_table(2).job_id
   FROM employees WHERE employee_id = 178;

   DBMS_OUTPUT.PUT_LINE('177雇员名称：'||v_emp_table(1).first_name
             ||'  雇佣日期：'||v_emp_table(1).hire_date
             ||'  岗位：'||v_emp_table(1).job_id);
   DBMS_OUTPUT.PUT_LINE('178雇员名称：'||v_emp_table(2).first_name
             ||'  雇佣日期：'||v_emp_table(2).hire_date
             ||'  岗位：'||v_emp_table(2).job_id);
END;

2.5 运算符和表达式(数据定义)

2.5.1 关系运算符

2.5.2 一般运算符

注意下面：
=> ：关系号
.. ：范围运算符
|| ：字符连接符

2.5.3 逻辑运算符

IS NULL：是空值 
BETWEEN  AND ：介于两者之间
IN ：在一列值中间 
AND ：逻辑与
OR ：逻辑或
NOT ：取返,如IS NOT NULL, NOT IN

2.6 变量赋值

   variable  := expression ;
　　variable 是一个PL/SQL变量, expression 是一个PL/SQL 表达式.

2.6.1 字符及数字运算特点

空值加数字仍是空值：NULL + < 数字> = NULL 

　　空值加（连接）字符，结果为字符：NULL || <字符串> = < 字符串>

2.6.2 BOOLEAN 赋值

布尔值只有TRUE, FALSE及 NULL 三个值。如： 
DECLARE
  bDone BOOLEAN;
BEGIN
  bDone := FALSE;
  WHILE NOT bDone LOOP
  Null;
  END LOOP;
END;

2.6.3 数据库赋值

数据库赋值是通过 SELECT语句来完成的，每次执行 SELECT语句就赋值一次，一般要求被赋值的变量与SELECT中的列名要一一对应。如：

例：
DECLARE
  emp_id    emp.empno%TYPE :=7788;
  emp_name  emp.ename%TYPE;
  wages     emp.sal%TYPE;
BEGIN
	#NVL(sal,0)表示如果有值则返回sal,否则则返回0
  SELECT ename, NVL(sal,0) + NVL(comm,0) INTO emp_name, wages 
  FROM emp WHERE empno = emp_id;
  DBMS_OUTPUT.PUT_LINE(emp_name||'----'||to_char(wages));
END;

　　提示：不能将SELECT语句中的列赋值给布尔变量。

2.6.4 可转换的类型赋值

1.CHAR 转换为 NUMBER：

使用 TO_NUMBER 函数来完成字符到数字的转换，如：
v_total := TO_NUMBER('100.0') + sal;

2.NUMBER 转换为CHAR：

使用 TO_CHAR函数可以实现数字到字符的转换，如：
 v_comm := TO_CHAR('123.45') || '元' ;

3.字符转换为日期：

使用 TO_DATE函数可以实现  字符到日期的转换，如：
v_date := TO_DATE('2001.07.03','yyyy.mm.dd');

4.日期转换为字符：

使用 TO_CHAR函数可以实现日期到字符的转换，如：
v_to_day := TO_CHAR(SYSDATE, 'yyyy.mm.dd hh24:mi:ss') ;

2.7 变量作用范围及可见性

在PL/SQL编程中，如果在变量的定义上没有做到统一的话，可能会隐藏一些危险的错误，这样的原因主要是变量的作用范围所致。变量的作用域是指变量的有效作用范围，与其它高级语言类似，PL/SQL的变量作用范围特点是：

l 变量的作用范围是在你所引用的程序单元（块、子程序、包）内。即从声明变量开始到该块的结束。

l 一个变量（标识）只能在你所引用的块内是可见的。

l 当一个变量超出了作用范围，PL/SQL引擎就释放用来存放该变量的空间（因为它可能不用了）。

l 在子块中重新定义该变量后，它的作用仅在该块内。

DECLARE
   Emess char(80);
BEGIN

   DECLARE
      V1 NUMBER(4);
   BEGIN
      SELECT empno INTO v1 FROM emp WHERE LOWER(job)='president';
      DBMS_OUTPUT.PUT_LINE(V1);
   EXCEPTION
      When TOO_MANY_ROWS THEN
         DBMS_OUTPUT.PUT_LINE ('More than one president');
   END;

   DECLARE 
      V1 NUMBER(4);
   BEGIN
      SELECT empno INTO v1 FROM emp WHERE LOWER(job)='manager';
   EXCEPTION
      When TOO_MANY_ROWS THEN
          DBMS_OUTPUT.PUT_LINE ('More than one manager');
   END;

EXCEPTION
   When others THEN
      Emess:=substr(SQLERRM,1,80);
      DBMS_OUTPUT.PUT_LINE(emess);
END;

2.8 注释

在PL/SQL里，可以使用两种符号来写注释，即：

1. 使用双 ‘-‘ ( 减号) 加注释，注释一行l
2. 使用 /* */ 来加一行或多行注释。

2.9 简单例子

2.9.1 简单数据插入例子

例：
Declare
	v_ename VARCHAR2(20) :='Bill';
	v_sal NUMBER(7,2) :=1234.56
	v_deptno NUMBER(2) :=10;
	v_empno NUMBER(4) :=8888;
BEGIN
	INSERT INTO emp (empno,ename,job,sal,deptno,hiredate)
	VALUES (v_empno,v_ename,'Manger',v_sal,v_deptno,
	to_date('2014.03,18','yyyy.mm.dd'));
	COMMIT;
END;

2.9.2 简单数据删除例子

例：
Declare
	v_ename VARCHAR2(20) :='Bill';
	v_sal NUMBER(7,2) :=1234.56
	v_deptno NUMBER(2) :=10;
	v_empno NUMBER(4) :=8888;
BEGIN
	INSERT INTO emp (empno,ename,job,sal,deptno,hiredate)
	VALUES (v_empno,v_ename,'Manger',v_sal,v_deptno,
	to_date('2014.03,18','yyyy.mm.dd'));
	COMMIT;
END;
Declare
	v_empno number(4) :=8888;
BEGIN
	DELETE FROM emp where empno=v_empno;
	COMMIT;
END;