关于oracle怎么输出到控制台以及oracle 记录表record的使用

如何创建和使用记录？

①创建记录类型
语法：
TYPE  记录名  IS RECORD
　　(
filed1 type1 [NOT NULL] [：=eXPr1],
　　     ....... ,
　　  filedN typen [NOT NULL] [：=exprn]
）
其中，filed1是标量的名字。

②声明记录类型变量：
记录类型变量名 记录类型

③填充记录。

④访问记录成员
记录类型变量名.filed1
.........
记录类型变量名.filedN
www.2cto.com
注意：
表字段类型修改后，还需要修改记录字段类型，有时候可能会忘记，从而出现错误。
对于记录内每个字段（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]
）;
www.2cto.com
例子：记录可以整体赋值

[sql]
/*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;

例子：记录不可以整体比较，只可以比较记录字段
[sql]
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;
www.2cto.com
例子：记录不可以整体判断为空，只可以判断记录字段。

[sql]
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动态指定记录字段。
[sql]
/*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;

例子：数据集中的记录和记录类型中的数据关系。
www.2cto.com
[sql]
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;
/
www.2cto.com
四，使用记录向表中插入数据？
根据表结构合理安排记录字段。比如主外键。
如果用记录(RECORD)插入数据，那么只能使用记录成员；
如果用%ROWTYPE插入数据,可以直接使用%ROWTYPE。

例子：使用记录成员向表中插入数据
[sql]
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。
www.2cto.com
例子：使用%ROWTYPE向表中插入数据
[sql]
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子句中使用记录成员。