ORACLE集合简单应用实例关于ORACLE中的数组：记录同集合集合可以有三种实现方式：www.2cto.com1自定义一个TYPE使用VARRAY来得到一个数组但只能对基本类型定义如：CREATETYPE类型名ASVARRAYOFVAR...SyntaxHighlighter.
ORACLE集合简单应用实例
关于ORACLE中的数组：记录同集合
集合可以有三种实现方式：www.2cto.com
1 自定义一个TYPE使用VARRAY来得到一个数组但只能对基本类型定义如：
CREATE TYPE 类型名 AS VARRAY OF VARCHAR2（20）；
1 自定义一个TYPE使用VARRAY来得到一个数组但只能对基本类型定义如：
CREATE TYPE 类型名 AS VARRAY（52） OF VARCHAR2（20）；
不能使用如下：
CREATE TYPE 类型名 AS VARRAY（52） OF 表名%ROWTYPE；
注意：使用VARRAY时一定要先指定数组大小
不然搞创建数组类型
2 内嵌表如：
TYPE 类型名 IS TABLE OF 具体类型如：（表名%ROWTYPE）；
内嵌表数组分二种：Index_by表同嵌套表如上的就是嵌套表而Index_by表只要在其尾回上 INDEX BY BINARY_INTEGER就可以了
例子：
declare
cursor cur_test is select id,mc from test;
type t_test1 is table of varchar2(60) index by binary_integer;
type t_test2 is table of test%rowtype index by binary_integer;
var_test1 t_test1;
var_test2 t_test2;
var_new t_test2;
begin
SELECT id,mc INTO var_test2(0) FROM test WHERE id=&＃39;111&＃39;;
dbms_output.put_line(&＃39;var_test2(0):&＃39;||var_test2(0).id||&＃39;---&＃39;||var_test2(0).mc);
SELECT id,mc INTO var_test2(8) FROM test WHERE id=&＃39;333&＃39;;
dbms_output.put_line(&＃39;var_test2(8):&＃39;||var_test2(8).id||&＃39;---&＃39;||var_test2(8).mc);
var_new := var_test2;
dbms_output.put_line(&＃39;===== copy var_test2 to var_new =====&＃39;);
dbms_output.put_line(&＃39;var_new(0):&＃39;||var_new(0).id||&＃39;---&＃39;||var_new(0).mc);
dbms_output.put_line(&＃39;var_new(8):&＃39;||var_new(8).id||&＃39;---&＃39;||var_new(8).mc);
end;
===================================================================================
DECLARE
TYPE t_test1 IS TABLE OF test.id%TYPE;
TYPE t_test2 IS VARRAY (10) OF test.id%TYPE;
var_test1 t_test1;
var_test2 t_test2;
begin
--var_test1(1) := (&＃39;test1.1&＃39;); --没有初始化不能赋值
var_test1 := t_test1(&＃39;test1.1&＃39;,&＃39;test1.2&＃39;,&＃39;test1.3&＃39;);
dbms_output.put_line(&＃39;var_test1: &＃39;||var_test1(1)||&＃39;,&＃39;||var_test1(2)||&＃39;,&＃39;||var_test1(3));
var_test2 := t_test2(&＃39;test2.1&＃39;,&＃39;test2.2&＃39;,&＃39;test2.3&＃39;);
dbms_output.put_line(&＃39;var_test2: &＃39;||var_test2(1)||&＃39;,&＃39;||var_test2(2)||&＃39;,&＃39;||var_test2(3));
var_test1(2) := &＃39;test1.2_update&＃39;;
dbms_output.put_line(&＃39;==== 修改了var_test1(2) ====&＃39;);
dbms_output.put_line(&＃39;var_test1: &＃39;||var_test1(1)||&＃39;,&＃39;||var_test1(2)||&＃39;,&＃39;||var_test1(3));
dbms_output.put_line(var_test1.next(3));
dbms_output.put_line(&＃39;var_test2元素个数: &＃39;||var_test2.limit());
end;
嵌套表的元素可以是集合,注意赋值的时候是varray_element.record_column := 的形式.
除了构造函数外,集合还有很多内建函数，按照面向对象编成的叫法称之为方法。
方法==========描述====================================================================使用限制
COUNT=========返回集合中元素的个数
DELETE========删除集合中所有元素
DELETE(x)=====删除元素下标为x的元素===================================================对VARRAY非法
DELETE(x,y)===删除元素下标从X到Y的元素================================================对VARRAY非法
EXIST(x)======如果集合元素x已经初始化，则返回TRUE, 否则返回FALSE
EXTEND========在集合末尾添加一个元素==================================================对Index_by非法
EXTEND(x)=====在集合末尾添加x个元素===================================================对Index_by非法
EXTEND(x,n)===在集合末尾添加元素n的x个副本============================================对Index_by非法
FIRST=========返回集合中的第一个元素的下标号，对于VARRAY集合始终返回1。
LAST==========返回集合中最后一个元素的下标号, 对于VARRAY返回值始终等于COUNT.
LIMIT=========返回VARRY集合的最大的元素个数===========================================Index_by集合和嵌套表无用
NEXT(x)=======返回在第x个元素之后及紧挨着它的元素的值，如果x是最后一个元素，返回null.
PRIOR(x)======返回在第x个元素之前紧挨着它的元素的值，如果x是第一个元素，则返回null。
TRIM==========从集合末端开始删除一个元素==============================================对于index_by不合法
TRIM(x)=======从集合末端开始删除x个元素===============================================对index_by不合法
********************************************************************************************
记录可以定义为：
TYPE 类型名 IS RECORDER （具休类型）
也可用：变量名 表名%ROWTYPE
例子：
隐式定义记录中，我们不用描述记录的每一个域，在声明记录变量时使用%ROWTYPE命令定义与
数据库表，视图，游标有相同结构的记录。
有一些PL/SQL指令在使用隐式定义记录时没有使用%ROWTYPE属性，比如游标FOR循环或触发器中的:old和:new记录
declare
t_record1 test%rowtype;
cursor cur_test(v_id in varchar2) is
select id,mc from test
where id <= v_id;
t_record2 cur_test%rowtype;
begin
for row_test in cur_test(&＃39;333&＃39;) loop
t_record1.id := row_test.id;
t_record1.mc := row_test.mc;
t_record2.id := row_test.id;
t_record2.mc := row_test.id;
dbms_output.put_line(&＃39;t_record1:&＃39;||t_record1.id||&＃39;---&＃39;||t_record1.mc);
dbms_output.put_line(&＃39;t_record2:&＃39;||t_record2.id||&＃39;---&＃39;||t_record2.mc);
dbms_output.put_line(&＃39;row_test:&＃39;||row_test.id||&＃39;---&＃39;||row_test.mc);
dbms_output.put_line(&＃39;================loop &＃39;||cur_test%rowcount||&＃39; times.&＃39;);
end loop;
exception when others then
dbms_output.put_line(sqlcode||sqlerrm);
end;
======================================================================================
declare
type t_record is record
(
id test.id%type,
mc test.mc%type
);
var_record t_record;
counter number default 0;
begin
for row_test in (select id,mc from test) loop
counter := counter + 1;
var_record.id := row_test.id;
var_record.mc := row_test.mc;
dbms_output.put_line(&＃39;var_record:&＃39;||var_record.id||&＃39;---&＃39;||var_record.mc);
dbms_output.put_line(&＃39;row_test:&＃39;||row_test.id||&＃39;---&＃39;||row_test.mc);
dbms_output.put_line(&＃39;================loop &＃39;||counter||&＃39; times.&＃39;);
end loop;
exception when others then
dbms_output.put_line(sqlcode||sqlerrm);
end;
三、综合实例BULK COLLECT的用法
*/
set serverout on
DECLARE
TYPE t_record IS RECORD (
id number(18,0),
mc varchar2(50)
);
var_record t_record;
type t_test is table of t_record;
var_test t_test := t_test();
cursor cur_test is select id,mc from test;
begin
open cur_test;
fetch cur_test BULK COLLECT INTO var_test;
for i in 1..var_test.count() loop
dbms_output.put_line(var_test(i).id||&＃39;---&＃39;||var_test(i).mc);
end loop;
end;
京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有