分类： 
版权声明：本文为博主原创文章，未经博主允许不得转载。
Oracle系列：记录（Record）
一，什么是记录（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子句中使用记录成员。