Pl/SQL 自定义类型

--PL/SQL记录类型

declare

type myRecord is record(name emp.ename%type,salary emp.sal%type,work emp.job%type);

myrec1 myRecord;

begin

select ename,sal,job into myrec1 from emp where empno=&no;

dbms_output.put_line('员工姓名：'||myrec1.name||'  工资：'||myrec1.salary||'  职位：'||myrec1.work);

end;

--PL/SQL表类型示例

declare

type myTable is table of emp.ename%type index by binary_integer;

mytab1 myTable;

begin

select ename into mytab1(0) from emp where empno=&no;

dbms_output.put_line('员工姓名是：'||mytab1(0));

end;

--PL/SQL游标类型变量

declare

type myCursor is ref cursor;

mycur1 myCursor;

v_name emp.ename%type;

v_sal emp.sal%type;

begin

open mycur1 for select ename,sal from emp where deptno=&no;

loop

exit when mycur1%notfound;

fetch mycur1 into v_name,v_sal;

dbms_output.put_line('员工姓名：'||v_name||'  工资：'||v_sal);

end loop;

close mycur1;

end;

--PL/SQL 变长数组类型；

--定义一个变长数组；

declare

-- 定义变长数组类型，设置其最大长度为20 ，类型和emp表中的ename类型一样；

type ename_array is varray(20) of emp.ename%type;

my_ename ename_array;

begin

my_ename:=ename_array('123','1233','12333');

--读取简单的一条记录，存入变长数组；

select ename into my_ename(2) from emp where empno=7788;

dbms_output.put_line(my_ename(2));

end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24465008/viewspace-692333/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24465008/viewspace-692333/