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;
/
**********************************************************************************************************************