10.PL_SQL――PL_SQL中的复合数据类型之RECORDS

一、记录和集合概述
目前为止所介绍的变量的数据类型都属于scalar，即标量，如整形，字符串，日期等等。任何一种编程语言都需要提供一些手段让用户创建更复杂的变量，PL/SQL也不例外，本章就来介绍一下PL/SQL中的复合型变量。
PL/SQL的复合型变量主要包括两类： 1. Records：记录 2. Collection：集合。Collection又可以分为三种， a. Associative Array（INDEXTBY table）: 关联数组（或称索引表，和SQL中的INDEX OF TABLE不是一个概念） b. Nested Table: 嵌套表 c. Varray: 可变长度列表。 二、记录和集合的区别
Records可以形象的理解为一个容器，用来保存很多其他的数据类型，但每种数据类型只在记录中出现一次，例如一个记录中保存了如下数据类型：

PL/SQL Record：



这个记录中保存了布尔型、日期型、字符型和BLOB型变量，且每个变量都只出现了一次，每个存放其他数据类型的空间称为域（Field）













SQL> edit

DECLARE
TYPE myrecord IS RECORD
(id number(8),
name varchar2(20)default 'Wilson',
birthday DATE
);

person myrecord;
BEGIN
person.id :=12345;
person.birthday :=SYSDATE;

DBMS_OUTPUT.PUT_LINE('Name: '|| person.name);
END;
/

SQL> /
Name: Wilson






===============================
SQL> edit

DECLARE
person employees%ROWTYPE；
BEGIN
SELECT * INTO person
FROM employees WHEREemployee_id = 100;

DBMS_OUTPUT.PUT_LINE('Name: '|| person.first_name);
END;
/

SQL> @notes/s37.sql
Name: Steven

PL/SQL procedure successfully completed.
===============================================
eg3.

SQL> edit

DECLARE
TYPE t_rec IS RECORD
(v_sal number(8),
v_minsal number(8)default 1000,
v_hire_dateemployees.hire_date%TYPE,
v_reclemployees%ROWTYPE);
v_myrec t_rec;
BEGIN
v_myrec.v_sal := v_myrec.v_minsal+ 500;
v_myrec.v_hire_date :=SYSDATE;
SELECT * INTO v_myrec.v_recl
FROM employees WHEREemployee_id = 100;
DBMS_OUTPUT.PUT_LINE(v_myrec.v_recl.last_name || ' ' || TO_CHAR(v_myrec.v_hire_date) || ' '|| TO_CHAR(v_myrec.v_sal));
END;
/

SQL> @notes/s38.sql
King 24-AUG-14 1500

PL/SQL procedure successfully completed.









CREATE TABLE retired_emps (
EMPNO NUMBER(4),
ENAME VARCHAR2(25),
JOB VARCHAR2(9),
MGR NUMBER(4),
HIREDATE DATE,
LEAVEDATE DATE,
SAL NUMBER(7,2),
COMM NUMBER(7,2),
DEPTNO NUMBER(2)
);

SQL> @notes/s39.sql

Table created.

SQL> select * from retired_emps where empno = 124;

no rows selected

SQL> edit

DECLARE
v_employee_number NUMBER :=124;
v_emp_rec employees%ROWTYPE;
BEGIN
SELECT * INTO v_emp_rec FROMemployees
WHERE employee_id =v_employee_number;

INSERT INTOretired_emps(empno, ename, job, mgr,
hiredate,leavedate, sal, comm, deptno)
VALUES( v_emp_rec.employee_id,v_emp_rec.last_name,
v_emp_rec.job_id,v_emp_rec.manager_id,
v_emp_rec.hire_date,SYSDATE,
v_emp_rec.salary,v_emp_rec.commission_pct,
v_emp_rec.department_id);
COMMIT;
END;
/

SQL> @notes/s40.sql

PL/SQL procedure successfully completed.

SQL> select * from retired_emps where empno = 124;

EMPNO ENAME JOB MGR HIREDATE LEAVEDATE SAL COMM DEPTNO
---------- ---------- --------------- --------- ------------------- --------- ---------- ---------- ----------
124 Mourgos ST_MAN 100 16-NOV-07 24-AUG-14 5800 50

=========================INSERT============================

SQL> edit

DECLARE
v_employee_number NUMBER := 127;
v_emp_rec retired_emps%ROWTYPE;

BEGIN
SELECT employee_id, last_name, job_id,manager_id,
hire_date, hire_date, salary,commission_pct,
department_id INTO v_emp_rec
FROM employees
WHERE employee_id = v_employee_number;

INSERT INTO retired_emps
VALUES v_emp_rec;
-- 将查询结果打包到v_emp_rec中
END;
/

SELECT * FROMretired_emps;

SQL>@notes/s41.sql

PL/SQL proceduresuccessfully completed.

EMPNO ENAME JOB MGR HIREDATE LEAVEDATE SAL COMM DEPTNO
----------------------------------- --------- ---------- --------- --------- -------------------- ----------
124 Mourgos ST_MAN 100 16-NOV-07 24-AUG-14 5800 50
127 Landry ST_CLERK 120 14-JAN-07 14-JAN-07 3200 50

=========================UPDATE============================

SQL> edit

SET VERIFY OFF
DECLARE
v_employee_number NUMBER:= 127;
v_emp_recretired_emps%ROWTYPE;

BEGIN
SELECT *
INTO v_emp_rec
FROM retired_emps
WHERE empno =v_employee_number;
v_emp_rec.leavedate :=CURRENT_DATE;

UPDATE retired_emps SETROW = v_emp_rec
WHERE empno = v_employee_number;
END;
/

SELECT * FROM retired_emps;

SQL> @notes/s42.sql

PL/SQL procedure successfully completed.

EMPNO ENAME JOB MGR HIREDATE LEAVEDATE SAL COMM DEPTNO
---------- -------------- ---------- --------- ---------- ------------------ ---------- ---------- ----------
124 Mourgos ST_MAN 100 16-NOV-07 24-AUG-14 5800 50
127 Landry ST_CLERK 120 14-JAN-07 24-AUG-14 3200 50











SQL> edit

DECLARE
myrec employees%ROWTYPE;
BEGIN
myrec := NULL;
END;
/

SQL> @notes/s43.sql

PL/SQL procedure successfully completed.

本文出自 “重剑无锋 大巧不工” 博客，请务必保留此出处http://wuyelan.blog.51cto.com/6118147/1550342