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

一、记录和集合概述

         目前为止所介绍的变量的数据类型都属于scalar,即标量,如整形,字符串,日期等等。任何一种编程语言都需要提供一些手段让用户创建更复杂的变量,PL/SQL也不例外,本章就来介绍一下PL/SQL中的复合型变量。

 

PL/SQL的复合型变量主要包括两类:

 

              1. Records:记录

              2. Collection集合。Collection又可以分为三种,

                              a. Associative  ArrayINDEXTBY table: 关联数组(或称索引表,和SQL中的INDEX OF TABLE不是一个概念)

                              b. Nested Table: 嵌套表

                              c. Varray: 可变长度列表。

 

二、记录和集合的区别

         Records可以形象的理解为一个容器,用来保存很多其他的数据类型,但每种数据类型只在记录中出现一次,例如一个记录中保存了如下数据类型:

 

PL/SQL Record

wKioL1QPATjxf_eiAAAdTByg0cY451.png

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


wKioL1QPAZuR3wL7AAC_MwPYfO0099.jpg

wKiom1QPAY_jfEnyAAF22DV7n7E844.png

wKioL1QPAZyS9zgFAAGD_WCrkiM251.jpg

wKiom1QPAZDgUU8EAAELPODtTI4578.png

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

wKiom1QPAeXTTtUBAAERl3WwbeI118.png

wKiom1QPAebByn2BAAFImHmM4wQ044.jpg

===============================

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.

wKioL1QPAkODyntOAAEsN0oho4o337.jpg

wKiom1QPAjix1SiOAAI3nQHONrk784.jpg

wKioL1QPAkTS69p7AAHBwks03qs126.png

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


wKioL1QPArXQDxNRAAGsD3v0LPI205.png

wKiom1QPAqmjuVqOAAC-yXK7CQg657.png

wKioL1QPArbS6aFbAAGRwZQ_BQQ632.png


SQL> edit

 

DECLARE

    myrec employees%ROWTYPE;

BEGIN

    myrec := NULL;

END;

/

 

SQL> @notes/s43.sql

 

PL/SQL procedure successfully completed.


你可能感兴趣的:(oracle,pl/sql,records)