Oracle定义数据类型Type

Oracle提供自定义类型功能，用户可以根据自己的情况定义记录数据类型(Record)和记录表类型(Table)，其中记录数据类型Record存储是

Oracle提供自定义类型功能，用户可以根据自己的情况定义记录数据类型(Record)和记录表类型(Table)，其中记录数据类型Record存储是一条记录，记录表类型Table用来存储多条记录。如果记录数据类型Record是一维数组的话，记录表类型Table就是二维数组。

自定义类型有两种写法：TYPE...IS和CREATE TYPE，两种定义方式的区别是：前者一般在存储过程和函数中定义，使用范围也限于所在过程或函数，而后者方式声明对象类型，对象类型则是作为一个方案对象（像表、索引、视图、触发器一样，是一个方案对象），可以过程或函数中使用，还可以在定义表时，作为字段的类型。

下面分别介绍：

TYPE IS定义类型

1. 定义数据记录类型

语法：

TYPE type_name IS RECORD ( 字段1 类型1, 字段2 类型2, ... 字段n 类型n );

说明：

1) type_name：类型名称。

举例：

declare
  TYPE type_student IS RECORD(
          name VARCHAR2(100),
          age  NUMBER(3),
          sex  VARCHAR2(1)
  );
 
  r_student type_student;
  v_name VARCHAR2(100);
  i_age  NUMBER(3);
  v_sex  VARCHAR(1);
  i integer;
begin
  select name, age, sex into r_student from t_student where gid = 1;
  v_name := r_student.name;
  i_age := r_student.age;
  v_sex := r_student.sex;
  dbms_output.put_line(v_name);
  dbms_output.put_line(v_sex);
  dbms_output.put_line(i_age);
end;

输出结果：

zhansan

1

12

2.定义表记录

语法：

TYPE type_name IS TABLE OF element_type INDEX BY [BINARY_INTEGER | PLS_INTEGER | VARRAY2];

说明：

1) type_name：类型名称。

2) element_type:可以是基本类型(如varchar2, Ingeger, number等)、记录数据类型(即TYPEtype_nameIS RECORD定义的类型)、%ROWTYPE。

3) INDEX BY:该语句的作用是使Number类型的下标自增长，自动初始化，并分配空间，有了该语句，，向表记录插入元素

时，不需要显示初始化，也不需要通过extend分配空间。Binary_Integer 与 Pls_Integer 都是整型类型.

Binary_Integer类型变量值计算是由Oracle来执行，不会出现溢出，但是执行速度较慢，因为它是由Oracle

模拟执行。而Pls_Integer的执行是由硬件即直接由CPU来运算，因而会出现溢出，但其执行速度较前者快许多。

如果没有使用这个语句，又没有使用extend就会报错：ORA-06531:Reference to uninitialized

collection，具体请参考《ORA-06531:Reference to uninitialized collection 问题解决》

举例：

declare
  TYPE type_student IS RECORD(
          name VARCHAR2(100),
          age  NUMBER(3),
          sex  VARCHAR2(1)
  );
 
  TYPE t_student_var IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER;
 
  TYPE t_student_rec IS TABLE OF type_student INDEX BY BINARY_INTEGER;
 
  TYPE t_student_rowtype IS TABLE OF t_student%ROWTYPE INDEX BY BINARY_INTEGER;
 
  v_tbl_name t_student_var;
  v_tbl_record t_student_rec;
  v_tbl_rowtype t_student_rowtype;
begin
  dbms_output.put_line('------------基本类型VARCHAR2表记录------------');
  select name into v_tbl_name(1) from t_student where gid = 1;
  select name into v_tbl_name(2) from t_student where gid = 2;
  select name into v_tbl_name(3) from t_student where gid = 3;
  dbms_output.put_line(v_tbl_name(1));
  dbms_output.put_line(v_tbl_name(2));
  dbms_output.put_line(v_tbl_name(3));
 
  dbms_output.put_line('------------自定义RECORD类型表记录------------');
  select name, age, sex into v_tbl_record(1) from t_student where gid = 1;
  select name, age, sex into v_tbl_record(2) from t_student where gid = 2;
  select name, age, sex into v_tbl_record(3) from t_student where gid = 3;
  dbms_output.put_line('name:'||v_tbl_record(1).name||', '||'age:'||v_tbl_record(1).age||', '||'sex:'||v_tbl_record(1).sex);
  dbms_output.put_line('name:'||v_tbl_record(2).name||', '||'age:'||v_tbl_record(2).age||', '||'sex:'||v_tbl_record(2).sex);
  dbms_output.put_line('name:'||v_tbl_record(3).name||', '||'age:'||v_tbl_record(3).age||', '||'sex:'||v_tbl_record(3).sex);
 
  dbms_output.put_line('------------表记录类型表记录------------');
  select * into v_tbl_rowtype(1) from t_student where gid = 1;
  select * into v_tbl_rowtype(2) from t_student where gid = 2;
  select * into v_tbl_rowtype(3) from t_student where gid = 3;
  dbms_output.put_line('name:'||v_tbl_rowtype(1).name||', '||'age:'||v_tbl_rowtype(1).age||', '||'sex:'||v_tbl_rowtype(1).sex||', '||'grade:'||v_tbl_rowtype(1).grade);
  dbms_output.put_line('name:'||v_tbl_rowtype(2).name||', '||'age:'||v_tbl_rowtype(2).age||', '||'sex:'||v_tbl_rowtype(2).sex||', '||'grade:'||v_tbl_rowtype(2).grade);
  dbms_output.put_line('name:'||v_tbl_rowtype(3).name||', '||'age:'||v_tbl_rowtype(3).age||', '||'sex:'||v_tbl_rowtype(3).sex||', '||'grade:'||v_tbl_rowtype(3).grade);
 
end;

输出结果：