-----PL／SQL的记录类型（复合数据类型）----------------------
定义——一种由逻辑上相关联的独立元素组成的复合数据类型。
记录只能存放一行数据，行变量table_name%rowtype cursor_name%rowtype是一种特殊的记录，记录结构有继承的源。
1、直接访问记录的元素，分别给每个字段赋值
declare
type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));
v_example_rec hrc_org_rec;
begin
v_example_rec.hrc_org_id:=1001;
v_example_rec.hrc_descr:='CEO/COO';
v_example_rec.org_short_name:='Office of CEO/COO ABC Inc.';
dbms_output.put_line(to_char(v_example_rec.hrc_org_id));
dbms_output.put_line(v_example_rec.hrc_descr);
dbms_output.put_line(v_example_rec.org_short_name);
exception when others then
null;
end;
2、通过变量赋值
declare
type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));
v_example_rec1 hrc_org_rec;
v_example_rec2 hrc_org_rec;
begin
v_example_rec1.hrc_org_id:=1001;
v_example_rec1.hrc_descr:='CEO/COO';
v_example_rec1.org_short_name:='Office of CEO/COO ABC Inc.';
v_example_rec2:=v_example_rec1; －－变量赋值
dbms_output.put_line(to_char(v_example_rec2.hrc_org_id));
dbms_output.put_line(v_example_rec2.hrc_descr);
dbms_output.put_line(v_example_rec2.org_short_name);
exception when others then
null;
end;
3、通过select into语句来填充记录（与隐式游标结合使用）（psql用户下）
－－－－－－－－－－－－－－－－－
oracle序列：序列是一种oracle的对象
SQL> create sequence hrc_org_seq minvalue 1 maxvalue 9999999 start with 100 increment by 1;
Sequence created.
SQL> select hrc_org_seq.nextval from dual;
NEXTVAL
----------
100
SQL> select hrc_org_seq.nextval from dual;
NEXTVAL
----------
101
SQL> select hrc_org_seq.nextval from dual;
NEXTVAL
----------
102
SQL> select hrc_org_seq.nextval from dual;
NEXTVAL
----------
103
SQL> select hrc_org_seq.nextval from dual;
NEXTVAL
----------
104
SQL> select hrc_org_seq.nextval from dual;
NEXTVAL
----------
105
用途：生成主键，表中的主键一般不会拿有业务含义的字段作为主键
生成主键的方法：
insert into tab_name values('06'||'A01'||to_char(sysdate,'yyyymmdd'))||hrc_org_seq.nextval,ss,xx,xx,xx,xx,....);
数据字典：
select * from dba_sequences where sequence_name=upper('hrc_org_seq'); --序列的定义
select * from dba_objects where object_name=upper('hrc_org_seq') －－序列的基本属性
删除序列：
drop sequence hrc_org_seq;
-----------------------------------------------------------------------
==通过select into语句来填充记录（与隐式游标结合使用）==
declare
type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));
v_example_rec hrc_org_rec;
begin
select hrc_org_seq.nextval,h.hrc_descr,o.org_short_name
into v_example_rec
from org_tab o,hrc_tab h
where h.hrc_code=o.hrc_code
and o.org_id=1001;
dbms_output.put_line(to_char(v_example_rec.hrc_org_id));
dbms_output.put_line(to_char(v_example_rec.hrc_descr));
dbms_output.put_line(to_char(v_example_rec.org_short_name));
end;
通过循环的方式分别把值赋给记录。
declare
type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),
org_short_name varchar2(30));
v_example_rec hrc_org_rec;
begin
for idx in (select org_id from org_tab) loop
select hrc_org_seq.nextval,h.hrc_descr,o.org_short_name
into v_example_rec
from org_tab o,hrc_tab h
where h.hrc_code=o.hrc_code
and o.org_id=idx.org_id;
dbms_output.put_line(to_char(v_example_rec.hrc_org_id));
dbms_output.put_line(to_char(v_example_rec.hrc_descr));
dbms_output.put_line(to_char(v_example_rec.org_short_name));
end loop;
end;
不用select into也可以实现，用分别赋值的方式
declare
type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));
v_example_rec hrc_org_rec;
begin
for idx in (select hrc_org_seq.nextval org_id,h.hrc_descr,o.org_short_name
from org_tab o,hrc_tab h
where h.hrc_code=o.hrc_code) loop
v_example_rec.hrc_org_id:=idx.org_id;
v_example_rec.hrc_descr:=idx.hrc_descr;
v_example_rec.org_short_name:=idx.org_short_name;
dbms_output.put_line(to_char(v_example_rec.hrc_org_id));
dbms_output.put_line(to_char(v_example_rec.hrc_descr));
dbms_output.put_line(to_char(v_example_rec.org_short_name));
end loop;
end;
==通过显式游标填充记录========
declare
type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));
v_example_rec hrc_org_rec;
cursor csr_hrc_org is select hrc_org_seq.nextval org_id,h.hrc_descr,o.org_short_name
from org_tab o,hrc_tab h
where h.hrc_code=o.hrc_code;
begin
open csr_hrc_org;
loop
fetch csr_hrc_org into v_example_rec;
exit when (csr_hrc_org%notfound);
dbms_output.put_line(to_char(v_example_rec.hrc_org_id));
dbms_output.put_line(to_char(v_example_rec.hrc_descr));
dbms_output.put_line(to_char(v_example_rec.org_short_name));
end loop;
close csr_hrc_org;
end;
==通过隐式游标聚集赋值：====
declare
type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));
v_example_rec1 hrc_org_rec;
v_example_rec2 hrc_org_rec;
begin
for idx in (select org_id from org_tab) loop
select hrc_org_seq.nextval,h.hrc_descr,o.org_short_name
into v_example_rec1
from org_tab o,hrc_tab h
where h.hrc_code=o.hrc_code
and o.org_id=idx.org_id;
v_example_rec2:=v_example_rec1; ---聚集赋值
dbms_output.put_line(to_char(v_example_rec2.hrc_org_id));
dbms_output.put_line(to_char(v_example_rec2.hrc_descr));
dbms_output.put_line(to_char(v_example_rec2.org_short_name));
end loop;
end;
给记录赋值方式：1、用显式游标赋值 2、用隐式赋值 3、分别赋值 4、聚集赋值
===4、测试两个记录是否相等====
if v_example_rec1=v_example_rec2 then xxxxxx 这种写法是错误的。
---------------------------
要进行一一比较
declare
type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));
v_example_rec1 hrc_org_rec;
v_example_rec2 hrc_org_rec;
begin
for idx in (select org_id from org_tab) loop
select hrc_org_seq.nextval,h.hrc_descr,o.org_short_name
into v_example_rec1
from org_tab o,hrc_tab h
where h.hrc_code=o.hrc_code
and o.org_id=idx.org_id;
v_example_rec2:=v_example_rec1;
if (v_example_rec1.hrc_org_id=v_example_rec2.hrc_org_id and v_example_rec1.hrc_descr=v_example_rec2.hrc_descr and v_example_rec1.org_short_name=v_example_rec2.org_short_name) then －－必须要每个属性比较
dbms_output.put_line('YES');
else
dbms_output.put_line('NO');
end if;
end loop;
end;
-------------------------------------------------------------
练习：通过隐式游标填充记录的方式输出员工的姓名、薪资、职位、部门名称。
declare
type rc is record(rc_ename varchar2(10),rc_sal number(7,2),rc_job varchar(9),rc_dname varchar(14));
v_emp rc;
begin
for idx in (select a.ename,a.sal,a.job,b.dname from emp a,dept b
where a.deptno=b.deptno)
loop
v_emp.rc_ename:=idx.ename;
v_emp.rc_sal:=idx.sal;
v_emp.rc_job:=idx.job;
v_emp.rc_dname:=idx.dname;
dbms_output.put_line(to_char(v_emp.rc_ename));
dbms_output.put_line(v_emp.rc_sal);
dbms_output.put_line(to_char(v_emp.rc_job));
dbms_output.put_line(to_char(v_emp.rc_dname));
end loop;
exception when others then
null;
end;
-------------------------------------------
5、行变量的记录
declare
cursor csr_hrc is select * from hrc_tab order by 1; --按升序排列
hrc_rec csr_hrc%rowtype;
hrc_rec1 hrc_tab%rowtype;
type hrc_org_rec is record(hrc_code number,hrc_descr varchar2(20));
hrc_rec2 hrc_org_rec;
begin
open csr_hrc;
loop
fetch csr_hrc into hrc_rec;
exit when (csr_hrc%notfound);
dbms_output.put_line(to_char(hrc_rec.hrc_code)||' '||hrc_rec.hrc_descr);
end loop;
close csr_hrc;
dbms_output.put_line('=======================');
open csr_hrc;
loop
fetch csr_hrc into hrc_rec1;
exit when (csr_hrc%notfound);
dbms_output.put_line(to_char(hrc_rec1.hrc_code)||' '||hrc_rec1.hrc_descr);
end loop;
close csr_hrc;
dbms_output.put_line('=======================');
open csr_hrc;
loop
fetch csr_hrc into hrc_rec2;
exit when (csr_hrc%notfound);
dbms_output.put_line(to_char(hrc_rec2.hrc_code)||' '||hrc_rec2.hrc_descr);
end loop;
close csr_hrc;
end;
6、涉及到记录的DML操作
A insert语句
declare
type hrc_org_rec is record(hrc_code number,hrc_descr varchar2(20));
v_example_rec hrc_org_rec;
begin
v_example_rec.hrc_code:=6;
v_example_rec.hrc_descr:='Web analyze 1';
insert into hrc_tab values v_example_rec;
commit;
exception when others then
null;
end;
B update操作
declare
type hrc_org_rec is record(hrc_code number,hrc_descr varchar2(20));
v_example_rec hrc_org_rec;
begin
v_example_rec.hrc_code:=6;
v_example_rec.hrc_descr:='Web analyze 2';
update hrc_tab set row=v_example_rec where hrc_code=v_example_rec.hrc_code;
commit;
exception when others then
null;
end;
C delete操作
declare
type hrc_org_rec is record(hrc_code number,hrc_descr varchar2(20));
v_example_rec hrc_org_rec;
begin
v_example_rec.hrc_code:=6;
v_example_rec.hrc_descr:='Web analyze 2';
delete from hrc_tab where hrc_code=v_example_rec.hrc_code;
commit;
exception when others then
null;
end;
删除操作不能用记录作过滤条件的。
declare
type hrc_org_rec is record(hrc_code number,hrc_descr varchar2(20));
v_example_rec hrc_org_rec;
begin
v_example_rec.hrc_code:=6;
v_example_rec.hrc_descr:='Web analyze 2';
delete from hrc_tab where row=v_example_rec; --注意
commit;
exception when others then
null;
end;
报错！
