PLSQL:oracle记录类型

---

RECORD

---

一，什么是记录（Record）？

 由单行多列的标量构成的复合结构。可以看做是一种用户自定义数据类型,组成类似于多维数组。

•  记录可以直接赋值: RECORD1 :=RECORD2； --record2 赋值给 record1
  
•  记录不可以整体比较.
  
•  记录不可以整体判断为空。
  

---

二，%ROWTYPE和记录（Record）？

• %ROWTYPE可以说是Record的升级简化版。
  
• %ROWTYPE为表结构，record 为自定义结构。
  
• 二者在使用上没有很大区别。前者方便，后者灵活。在实际中根据情况来具体决定使用。
  
• Record + PL/SQL表可以进行数据的多行多列存储。
  

---

三，记录类型如何使用

1.创建记录类型

语法：

TYPE 记录类型名 IS RECORD ( 

 filed1 table.Filed%Type [NOT NULL] [:=eXPr1] ,

 filed2 table.Filed%Type [NOT NULL] [:=eXPr1] ,

　　     ....... ,

 filedn table.Filed%Type [NOT NULL] [:=exprn] 

);

2.声明记录类型变量：

   记录类型变量名 记录类型名

3.填充记录 (赋值)

   使用赋值符号 ":="

 4.访问记录成员

   使用点"."   

例子3-1:

记录可以整体赋值

Declare

   Type EmpType is Record(

      EMPNO number(4),

      ENAME  varchar2(10)

   );

 EmpRec1  EmpType;  

 EmpRec2  EmpType;  --定义同一个记录类型的两个记录类型变量

Begin

 EmpRec1.Empno:=7369;

 EmpRec1.Ename:='SMITH';

 EmpRec2 := EmpRec1;  --记录可以直接"整体赋值"

 DBMS_output.put_line(EmpRec2.empno);

End;

例子3-2:

记录不可以整体比较，只可以比较记录字段

declare

  type emptype is record(

    empno  number(4),

    ename  varchar2(10)

    );

  emp1 emptype;

  emp2 emptype;

begin

  emp1.empno  := 7369;

  emp2.empno  := 7370;

  emp1.ename  := 'SMITH';

  IF emprec1 < emprec2 THEN -- 是错的!

  if emprec1.empno < emprec2.empno THEN  --记录只可以比较字段

    dbms_output.put_line('员工1b编号小于员工2');

  end if;

end;

例子3-3:

记录不可以整体判断为空，只可以判断记录字段。

declare

  type emptype is record(

    empno  number(4),

    ename  varchar2(10));

  emp emptype;

begin

  if emp.ename is null then

    dbms_output.put_line('名字为空');

  end if;

end;

 

例子3-4:

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

declare

  type myrectype is record(

    reno   empa.empno%type,

    rename empa.ename%type,

    rjob   empa.job%type);

  emprec myrectype;

  --或者使用%rowtype

  --%rowtype的用法和record基本一样

  --emprec table_myrectype%rowtype;

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;

例子3-5:

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

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'; --表中7369编号的行 赋值给记录emprec

  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); --使用记录.列 向表中insert

  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';  --把7369号的行赋值给记录vemp

  update empa set row = vemp where empno = 1001;  --再把vemp记录的值更新给行1001

end;

---

六，使用记录删除数据？

删除记录时，只能在delete语句的where子句中使用记录成员。

    delete from empa where empno = empa.empno