DBMS_output.put_line(&＃39;Xiao Xiao Xiao&＃39;);
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(&＃39;Kong Kong Kong&＃39;);
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 = &＃39;7369&＃39;;
If EmpRec.RJOB = &＃39;CLERK&＃39; Then
DBMS_OUTPUT.PUT_LINE(&＃39;Name: &＃39;||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 = &＃39;7369&＃39;;
DBMS_OUTPUT.PUT_LINE(&＃39;MyRecType.RJOB: &＃39;||EmpRec.RJOB);
EmpRec.RJOB := &＃39;修改值后&＃39; ;
DBMS_OUTPUT.PUT_LINE(&＃39;MyRecType.RJOB: &＃39;||EmpRec.RJOB);
Select JOB InTo vJob from empa Where empa.EMPNO = EmpRec.RENO;
DBMS_OUTPUT.PUT_LINE(&＃39;EMPA.JOB: &＃39;||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 = &＃39;7369&＃39;;
DBMS_OUTPUT.PUT_LINE(EmpRec.RENO||&＃39; &＃39;||EmpRec.RENAME||&＃39; &＃39;||EmpRec.RJOB);
EmpRec.RENO := 1001;
EmpRec.RENAME := &＃39;杰克&＃39;;
EmpRec.RJOB := &＃39;办事员&＃39;;
Insert InTo empa(EMPNO,ENAME,JOB) Values(EmpRec.RENO, EmpRec.RENAME,EmpRec.RJOB);
Select EMPNO, ENAME, JOB InTo EmpRec From empa Where empa.EMPNO = &＃39;1001&＃39;;
DBMS_OUTPUT.PUT_LINE(EmpRec.RENO||&＃39; &＃39;||EmpRec.RENAME||&＃39; &＃39;||EmpRec.RJOB);
End;
五，使用记录更新数据？
如果用记录(RECORD)更新数据，那么只能使用记录成员；
如果用%ROWTYPE更新数据,可以直接使用%ROWTYPE。
www.2cto.com
例子：使用%ROWTYPE向表中插入数据
[sql]
DECLARE
vEmp empa%RowType;
Begin
Select * InTo vEmp From empa Where empa.EMPNO = &＃39;7369&＃39;;
UpDate empa Set ROW = vEmp Where EMPNO = 1001;
End;
六，使用记录删除数据？
删除记录时，只能在delete语句的where子句中使用记录成员。
京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有