关于oracle中的记录类型

一,什么是记录(Record)?
 由单行多列的标量构成的复合结构。可以看做是一种用户自定义数据类型。组成类似于多维数组。
将一个或多个标量封装成一个对象进行操作。是一种临时复合对象类型。
 
 记录可以直接赋值。RECORD1 :=RECORD2;
 记录不可以整体比较.
 记录不可以整体判断为空。
 
二,%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子句中使用记录成员。

posted on 2012-07-15 15:05  缺心眼的公牛  阅读(1666)  评论(0编辑  收藏  举报

导航