PL/SQL复合类型变量的使用（record、pl/sql表、bulk collect）

本文主要是介绍PL/SQL复合类型变量的使用（record、pl/sql表、bulk collect），希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

标量类型
变量—<
复合类型

1、****************************** record复合类型变量的使用（用于取一行多列）*****************************************************
declare
--第一个变量声明
v_sal number(7,2);
--第二个变量声明
TYPE emp_record_type IS RECORD
(ename VARCHAR2(25),
job VARCHAR2(10),
sal NUMBER(7,2));
emp_record emp_record_type;
begin
emp_record.ename := 'Alvin';
emp_record.job := 'clerk';
emp_record.sal := 1000;
dbms_output.put_line(emp_record.ename||' '||emp_record.job||' '||emp_record.sal);
end;
/

--取一行多列的例子
declare
type emp_table_record is record (ename varchar2(20),empno number(10),sal number(7));
emp_1 emp_table_record ;
begin
select ename,empno,sal into emp_1 from scott.emp where empno=7788;
dbms_output.put_line(emp_1.ename ||chr(10) ||emp_1.empno||chr(10)||emp_1.sal);
end;
/

-----------%rowtype--------------
declare
emp_record scott.emp%rowtype;
begin
select * into emp_record from scott.emp where empno=7788;
dbms_output.put_line(emp_record.ename||' '||emp_record.sal);
end;
/

在我理解，%rowtype就是一种特殊的record。

2、************************************* PL/SQL表(INDEX BY表)类似数组(用于取一列多行)***********************************************************
declare
type emp_table_type is table of varchar2(20) index by binary_integer;
emp_table emp_table_type;
begin
emp_table(0) :='LUYANG';
emp_table(-1) :='SUNYI';
emp_table(2) :='zhengda';
dbms_output.put_line('index 0: '||emp_table(0));
dbms_output.put_line('index -1: '||emp_table(-1));
dbms_output.put_line('index 2: '||emp_table(2));

dbms_output.put_line('the first element of index --> '||emp_table.first );
dbms_output.put_line('the count of element in index --> '||emp_table.count);
dbms_output.put_line('the last element of index --> '||emp_table.last);
dbms_output.put_line('The index ''0'' prior element is --> '||emp_table.prior(0));
dbms_output.put_line('The index ''0'' next element is --> '||emp_table.next(0));
end;
/

--取一列多行
declare
type emp_table_type is table of varchar2(20) index by binary_integer;
emp_table emp_table_type;
begin
for i in 1..10 loop
select ename into emp_table(i)
from (select rownum a,ename from scott.emp)
where a=i;

dbms_output.put_line(emp_table(i)||chr(10));
end loop;
end;
/

--PL/SQL表 of后定义类型比较死板

3、******************************** PL/SQL表+record类型（取多行多列）************************************************************
将PL/SQL表和record结合起来使用，这样避免了PL/SQL表类型 of后定义类型的死板缺点

declare
TYPE emp_record_type is record (ename varchar2(30),job varchar2(10),sal number(7,2));
TYPE emp_table_type is table of emp_record_type index by binary_integer;
emp_table emp_table_type;
begin
select ename,job,sal into emp_table(0) from scott.emp where empno=7788;
dbms_output.put_line('index 0 : '||emp_table(0).ename);
end;
/

数组用来取多行，record/%rowtype用来取多列

4、***************************************** bulk collect 批量采集数据******************************************
①单列多行
declare
type abc is table of scott.emp.sal%type;
var abc;
begin
select sal bulk collect into var from scott.emp;
for i in 1..14 loop
dbms_output.put_line(var(i));
end loop;
end;
/

②多行多列
declare
type abc is table of scott.emp%rowtype;
var abc;
begin
select * bulk collect into var from scott.emp;
for i in 1..14 loop
dbms_output.put_line(var(i).ename||' '||var(i).sal);
end loop;
end;

**********************************************************************************************************************

练习：Plsql表+record+循环打印结果集(dept表的所有行所有列)
declare
type dept_type is table of scott.dept%rowtype index by binary_integer;
v_dept dept_type;
v_rows number;
begin
--dbms_output.put_line('DEPTNO'||' '||'DNAME'||' '||'LOC');
select count(*) into v_rows from scott.dept;
for i in 1..v_rows loop
select deptno,dname,loc into v_dept(i)
from (select rownum rn ,d.* from scott.dept d)
where rn=i;
dbms_output.put_line(v_dept(i).deptno||' '||v_dept(i).dname||' '||v_dept(i).loc);
end loop;
end;
/

---用bulk collect实现---------
declare
type dept_type is table of scott.dept%rowtype;
var dept_type;
v_rows number;
begin
select * bulk collect into var from scott.dept;
select count(*) into v_rows from scott.dept;
for i in 1..v_rows loop
dbms_output.put_line(var(i).deptno||' '||var(i).dname||' '||var(i).loc);
end loop;
end;
/
**********************************************************************************************************************