oracle复合数据类型

--type用于定于不确定的数据类型

declare

v_fd_change_left EKP_CHANGE.fd_change_left%type;   --v_id是表name的id的数据类型

v_fd_change_total EKP_CHANGE.fd_change_total%type;

begin

select fd_change_left,fd_change_total

into v_fd_change_left,v_fd_change_total   --只能返回一条数据

from EKP_CHANGE;

dbms_output.put_line(v_fd_change_left);

dbms_output.put_line(v_fd_change_total);

exception

when others then

dbms_output.put_line('错误');

end;

--rowtype

declare

r_name EKP_CHANGE%rowtype;  --定义r_name的数据是name表一行数据对应的数据类型；

begin

select fd_change_left,fd_change_total

into r_name.fd_change_left,r_name.fd_change_total   --只能返回一条数据

from EKP_CHANGE;

dbms_output.put_line(r_name.fd_change_left);

dbms_output.put_line(r_name.fd_change_total);

exception

when others then

dbms_output.put_line('错误');

end;

declare

r_ekp_change EKP_CHANGE%rowtype;  --定义r_name的数据是name表一行数据对应的数据类型；

begin

select *

into r_ekp_change  --这里表示r_name.id,r_name.name,r_name.grade和name表的数据对应的类型是一致的

from EKP_CHANGE;

dbms_output.put_line(r_ekp_change.fd_id);

dbms_output.put_line(r_ekp_change.fd_change_left);

end;

--数据库复合数据类型，数组varray()

declare

type str is varray(5) of varchar(18);  --定义一个长度为5的数组str，每个元素为varchar(18)；

strlist str:=str('I','am','xie','xing','xing');  --定义一个sreList变量来引用str数组的值；

begin

dbms_output.put_line(strlist(1));   --从1开始

dbms_output.put_line(strlist (2));

dbms_output.put_line(strlist (3));

dbms_output.put_line(strlist (4));

dbms_output.put_line(strlist (5));

end;

declare

type str is varray(5) of varchar(18);  --定义一个长度为5的数组str，每个元素为varchar(18)；

strlist str:=str('','');  --定义一个sreList变量来引用str数组的值；

begin

select fd_change_left,fd_change_total

into strlist(1),strlist(2)

from ekp_change;

dbms_output.put_line(strlist(1));   --从1开始

dbms_output.put_line(strlist (2));

end;

--数据库复合数据类型，数组table

declare

type str_table is table of varchar(18) index by binary_integer;

strList str_table;

begin

strList(1):='hello';

strList(2):='world'; --下标无下限

dbms_output.put_line(strList(1)||strList(2));

end;

declare

type str_table is table of EKP_CHANGE%rowtype index by binary_integer;

strList str_table;

begin

select fd_id,fd_change_left,fd_change_total

into strList(1).fd_id,strList(1).fd_change_left,strList(1).fd_change_total

from EKP_CHANGE;

dbms_output.put_line(strList(1).fd_id||strList(1).fd_change_left||strList(1).fd_change_total);

end;

--数据库复合数据类型，数组record()

declare

type v_record is record(

fd_id VARCHAR(32),

fd_change_left EKP_CHANGE.fd_change_left%type,

fd_change_total EKP_CHANGE.fd_change_total%type

);

name_record v_record;

begin

select fd_id,fd_change_left,fd_change_total

into name_record.fd_id,name_record.fd_change_left,name_record.fd_change_total

from EKP_CHANGE;

dbms_output.put_line(name_record.fd_id);

dbms_output.put_line(name_record.fd_change_left);

dbms_output.put_line(name_record.fd_change_total);

end;