PL/SQL集合（一）：记录类型（TYPE 类型名称 IS RECORD）

记录类型

• 利用记录类型可以实现复合数据类型的定义；
• 记录类型允许嵌套；
• 可以直接利用记录类型更新数据。

• 传统操作的问题

• 对于Oracle数据类型，主要使用的是VARCHAR2、NUMBER、DATE等类型，但是这些基本数据类型，如果在进行一些实际操作的时候就会比较麻烦。

获取一个雇员的完整信息：

如下数据类型被单独定义.

DECLARE

v_emp_empno        emp.empno%TYPE ;

v_emp_ename        emp.ename%TYPE ;

v_emp_job            emp.job%TYPE ;

v_emp_hiredate        emp.hiredate%TYPE ;

v_emp_sal            emp.sal%TYPE ;

v_emp_comm            emp.comm%TYPE ;

BEGIN

v_emp_empno := &inputempno ;

SELECT ename,job,hiredate,sal,comm INTO

v_emp_ename,v_emp_job,v_emp_hiredate,v_emp_sal,v_emp_comm

FROM emp WHERE empno=v_emp_empno ;

DBMS_OUTPUT.put_line('雇员编号：' || v_emp_empno || '，姓名：' || v_emp_ename || '，职位：' || v_emp_job || '，雇佣日期：' || TO_CHAR(v_emp_hiredate,'yyyy-mm-dd') || '，基本工资：' || v_emp_sal || '，佣金：' || NVL(v_emp_comm,0)) ;

EXCEPTION

WHEN others THEN

RAISE_APPLICATION_ERROR(-20007,'此雇员信息不存在！') ;

END ;

/

• 定义新类型

• 定义记录类型

TYPE 类型名称 IS RECORD (

成员名称        数据类型 [[NOT NULL] [:= 默认值] 表达式] ,

...

成员名称        数据类型 [[NOT NULL] [:= 默认值] 表达式]

) ;

ROWTYPE只能够根据已有表来决定复合类型

记录类型可以由用户自定义组成.

使用记录类型接收查询返回结果

注意使用逗号.

DECLARE

v_emp_empno        emp.empno%TYPE ;

TYPE emp_type IS RECORD (

ename        emp.ename%TYPE ,

job        emp.job%TYPE ,

hiredate        emp.hiredate%TYPE ,

sal        emp.sal%TYPE ,

comm        emp.comm%TYPE

) ;

v_emp            emp_type ;         -- 定义一个指定的复合类型变量

BEGIN

v_emp_empno := &inputempno ;

SELECT ename,job,hiredate,sal,comm INTO v_emp

FROM emp WHERE empno=v_emp_empno ;

DBMS_OUTPUT.put_line('雇员编号：' || v_emp_empno || '，姓名：' || v_emp.ename || '，职位：' || v_emp.job || '，雇佣日期：' || TO_CHAR(v_emp.hiredate,'yyyy-mm-dd') || '，基本工资：' || v_emp.sal || '，佣金：' || NVL(v_emp.comm,0)) ;

EXCEPTION

WHEN others THEN

RAISE_APPLICATION_ERROR(-20007,'此雇员信息不存在！') ;

END ;

/

用户自己操作记录类型数据

这个时候没有通过查询，直接声明变量，然后为属性赋值.

DECLARE

TYPE dept_type IS RECORD (

deptno        dept.deptno%TYPE := 80,    -- 定义默认值

dname        dept.dname%TYPE ,

loc            dept.loc%TYPE

) ;

v_dept    dept_type ;

BEGIN

v_dept.dname := 'scent' ;    -- 为记录类型成员赋值

v_dept.loc := '重庆' ;            -- 为记录类型成员赋值

DBMS_OUTPUT.put_line('部门编号：' || v_dept.deptno || '，名称：' || v_dept.dname || '，位置：' || v_dept.loc) ;

END ;

/

定义嵌套的记录类型

这是一种面向对象的方式

DECLARE

TYPE dept_type IS RECORD (

deptno    dept.deptno%TYPE := 80,    -- 定义默认值

dname    dept.dname%TYPE ,

loc    dept.loc%TYPE

) ;

TYPE emp_type IS RECORD (

empno    emp.empno%TYPE ,

ename    emp.ename%TYPE ,

job    emp.job%TYPE ,

hiredate    emp.hiredate%TYPE ,

sal    emp.sal%TYPE ,

comm    emp.comm%TYPE ,

dept    dept_type

) ;

v_emp    emp_type ;

BEGIN

SELECT e.empno,e.ename,e.job,e.hiredate,e.sal,e.comm,d.deptno,d.dname,d.loc INTO

v_emp.empno,v_emp.ename,v_emp.job,v_emp.hiredate,v_emp.sal,v_emp.comm,

v_emp.dept.deptno,v_emp.dept.dname,v_emp.dept.loc

FROM emp e,dept d

WHERE e.deptno=d.deptno(+) AND e.empno=7369 ;

DBMS_OUTPUT.put_line('雇员编号：' || v_emp.empno || '，姓名：' || v_emp.ename || '，职位：' || v_emp.job || '，雇佣日期：'     || TO_CHAR(v_emp.hiredate,'yyyy-mm-dd') || '，基本工资：' || v_emp.sal || '，佣金：' || NVL(v_emp.comm,0)) ;

DBMS_OUTPUT.put_line('部门编号：' || v_emp.dept.deptno || '，名称：' || v_emp.dept.dname || '，位置：' || v_emp.dept.loc) ;

END ;

/

增加一条新的记录，利用记录类型保存数据

DECLARE

TYPE dept_type IS RECORD (

deptno    dept.deptno%TYPE ,

dname    dept.dname%TYPE ,

loc        dept.loc%TYPE

) ;

v_dept        dept_type ;

BEGIN

v_dept.dname := 'gaga' ;

v_dept.loc := 'chongqing' ;

v_dept.deptno := 80 ;

INSERT INTO dept VALUES v_dept ;     -- 直接插入记录类型的数据

END ;

/

如果不需要插入全表数据，也可以插入指定栏位的数据

DECLARE

TYPE dept_type IS RECORD (

deptno    dept.deptno%TYPE ,

dname    dept.dname%TYPE

) ;

v_dept        dept_type ;

BEGIN

v_dept.dname := 'wendy' ;

v_dept.deptno := 90 ;

INSERT INTO dept(deptno,dname) VALUES (v_dept.deptno,v_dept.dname) ;     -- 直接插入记录类型的数据

END ;

/

修改数据，利用记录类型保存数据

DECLARE

TYPE dept_type IS RECORD (

deptno        dept.deptno%TYPE ,

dname        dept.dname%TYPE ,

loc        dept.loc%TYPE

) ;

v_dept            dept_type ;

BEGIN

v_dept.dname := 'yaya' ;

v_dept.loc := '中国' ;

v_dept.deptno := 90 ;

UPDATE dept SET ROW=v_dept WHERE deptno=v_dept.deptno ;

END ;

/