oracle在处理单行单列数据时,只需要一般标量即可。但是在处理单行多列和多行单列,甚至多行多列时,需要用到复合数据类型。record就是用来记录和处理单行多列数据的数据结构。


一,什么是记录(Record)?
 由单行多列的标量构成的复合结构。可以看做是一种用户自定义数据类型。组成类似于多维数组。
将一个或多个标量封装成一个对象进行操作。是一种临时复合对象类型。
 
  
二,%ROWTYPE和记录(Record)?
 请区别%ROWTYPE和记录(Record)类型。%ROWTYPE可以说是Record的升级简化版。
 区别在与前者结构为表结构,后者为自定义结构。二者在使用上没有很大区别。前者方便,后者灵活。在实际中根据情况来具体决定使用。
 Record + PL/SQL表可以进行数据的多行多列存储。
 
三,如何创建和使用记录?
 

①创建记录类型
   语法:
   TYPE  记录名  IS RECORD 
   ( 
    filed1 type1 [NOT NULL] [:=eXPr1],
        ....... ,
     filedN typen [NOT NULL] [:=exprn] 
   )
   其中,filed1是标量的名字。
   
   ②声明记录类型变量:
    记录类型变量名 记录类型
    
   ③填充记录。
    
   ④访问记录成员
    记录类型变量名.filed1
    .........
    记录类型变量名.filedN


   
   
  注意:
  表字段类型修改后,还需要修改记录字段类型,有时候可能会忘记,从而出现错误。
  对于记录内每个字段(filed1.。。。),可以指定也可以使用%TYPE和%ROWTYPE动态指定记录字段类型。 

  好处是表字段发生变化,记录字段自动改变。但是,由于每次执行前,遇到%TYPR或%ROWTYPE,
  数据库系统都会去查看对应表字段类型,会造成一定的数据库开销,如果系统中大量使用记录类型,则对性能会有一定影响。
  另外如果删除了某一字段,而自定义记录中使用了该字段,也会有可能忘记删除该字段。
       对数据库负荷偏低的系统,性能问题一般可以不重点关注,但是对于高负荷数据库服务器,
       各个环节都要考虑性能问题,每处节省一点出来,性能整体就有很大提高。
  
  语法:

TYPE  记录名  IS RECORD 
   ( 
    filed1 table.Filed%Type [NOT NULL] [:=eXPr1] ,
    filed2 table.Filed%Type [NOT NULL] [:=eXPr1] ,
        ....... ,
     filedn table.Filed%Type [NOT NULL] [:=exprn] 
   );
  
  例子:记录可以整体赋值
  /*conn scott/tiger
  Create Table  empa  As  Select * From emp;
  */
  Declare
      Type EmpType is Record(
         EMPNO number(4),
         ENAME  varchar2(10),
         JOB varchar2(15),
         SAL number(7,2),
         DEPTNO number(2)
      );
    EmpRec1  EmpType;
    EmpRec2  EmpType;
  Begin
    EmpRec1.Empno:=7369;
    EmpRec1.Ename:='SMITH';
    EmpRec1.Job:='CLERK';
    EmpRec1.Sal:=800;
    EmpRec1.Deptno:=10;
    EmpRec2 := EmpRec1;
    DBMS_output.put_line(EmpRec2.empno);
  End;
  例子:记录不可以整体比较,只可以比较记录字段
  Declare
      Type EmpType is Record(
         EMPNO number(4),
         ENAME  varchar2(10),
         JOB varchar2(15),
         SAL number(7,2),
         DEPTNO number(2)
      );
    EmpRec1  EmpType;
    EmpRec2  EmpType;
  Begin
    EmpRec1.Empno:=7369;
    EmpRec1.Ename:='SMITH';
    EmpRec1.Job:='CLERK';
    EmpRec1.Sal:=800;
    EmpRec1.Deptno:=10;
    if EmpRec1.sal < EmpRec2.sal then
      DBMS_output.put_line('Xiao Xiao Xiao');
    end if;
  End;
  
  例子:记录不可以整体判断为空,只可以判断记录字段。
  Declare
      Type EmpType is Record(
         EMPNO number(4),
         ENAME  varchar2(10),
         JOB varchar2(15),
         SAL number(7,2),
         DEPTNO number(2)
      );
    EmpRec  EmpType;
  Begin
    if EmpRec.ename is null then
      DBMS_output.put_line('Kong Kong Kong');  
    end if;
  End;


 
 例子:使用%TYPE和%ROWTYPE动态指定记录字段。

/*conn scott/tiger
  Create Table  empa  As  Select * From emp;
  */
  DECLARE
   Type MyRecType Is  Record
   (
    RENO  EMPA.EMPNO%Type,
    RENAME   EMPA.ENAME%Type,
    RJOB   EMPA.JOB%Type
   );
   EmpRec  MyRecType;
  Begin
   Select   EMPNO, ENAME, JOB  InTo  EmpRec  From empa Where empa.EMPNO = '7369';
   If  EmpRec.RJOB  = 'CLERK'  Then
    DBMS_OUTPUT.PUT_LINE('Name: '||EmpRec.RENAME);
   End If;
  End;


 
 例子:数据集中的记录和记录类型中的数据关系。

DECLARE
   Type MyRecType Is  Record
   (
    RENO  EMPA.EMPNO%Type,
    RENAME   EMPA.ENAME%Type,
    RJOB   EMPA.JOB%Type
   );
   EmpRec  MyRecType;
   vJob  EMPA.JOB%Type;
  Begin
   Select   EMPNO, ENAME, JOB  InTo  EmpRec  From empa Where empa.EMPNO = '7369';
   DBMS_OUTPUT.PUT_LINE('MyRecType.RJOB: '||EmpRec.RJOB);
   EmpRec.RJOB  := '修改值后'  ;
   DBMS_OUTPUT.PUT_LINE('MyRecType.RJOB: '||EmpRec.RJOB);
   Select JOB  InTo vJob  from empa  Where empa.EMPNO = EmpRec.RENO;
   DBMS_OUTPUT.PUT_LINE('EMPA.JOB: '||vJob);
  End;
  /


 
 
四,使用记录向表中插入数据? 根据表结构合理安排记录字段。比如主外键。
 如果用记录(RECORD)插入数据,那么只能使用记录成员;
 如果用%ROWTYPE插入数据,可以直接使用%ROWTYPE。
 
 例子:使用记录成员向表中插入数据

DECLARE
   Type MyRecType Is  Record
   (
    RENO  EMPA.EMPNO%Type,
    RENAME   VARCHAR2(10),
    RJOB   EMPA.JOB%Type
   );
   EmpRec MyRecType; 
  Begin
   Select   EMPNO, ENAME, JOB  InTo  EmpRec  From empa Where empa.EMPNO = '7369';
   DBMS_OUTPUT.PUT_LINE(EmpRec.RENO||'  '||EmpRec.RENAME||'  '||EmpRec.RJOB);
   
   EmpRec.RENO  := 1001;
   EmpRec.RENAME := '杰克';
   EmpRec.RJOB  := '办事员';  Insert InTo  empa(EMPNO,ENAME,JOB)  Values(EmpRec.RENO, EmpRec.RENAME,EmpRec.RJOB);
  
   Select  EMPNO, ENAME, JOB  InTo  EmpRec  From empa Where empa.EMPNO = '1001';
   DBMS_OUTPUT.PUT_LINE(EmpRec.RENO||'  '||EmpRec.RENAME||'  '||EmpRec.RJOB);
  End;


 
五,使用记录更新数据?
 如果用记录(RECORD)更新数据,那么只能使用记录成员;
 如果用%ROWTYPE更新数据,可以直接使用%ROWTYPE。
 
 例子:使用%ROWTYPE向表中插入数据

DECLARE
   vEmp empa%RowType;
  Begin
   Select  *  InTo  vEmp  From empa Where empa.EMPNO = '7369';
   UpDate empa Set ROW = vEmp Where EMPNO = 1001;
  End;

六,使用记录删除数据?
 删除记录时,只能在delete语句的where子句中使用记录成员。

记录不能作为表中的一个数据类型。