oracle怎么使用数组

除了构造函数外,集合还有很多内建函数，这些函数称为方法。

调用方法的语法如下：

collection.method

下表中列出oracle中集合的方法

方法 描述 使用限制

COUNT 返回集合中元素的个数

DELETE 删除集合中所有元素

DELETE() 删除元素下标为x的元素，如果x为null,则集合保持不变

对VARRAY非法

DELETE(,) 删除元素下标从X到Y的元素，如果X>Y集合保持不变

对VARRAY非法

EXIST() 如果集合元素x已经初始化，则返回TRUE, 否则返回FALSE

EXTEND 在集合末尾添加一个元素

对Index_by非法

EXTEND() 在集合末尾添加x个元素

对Index_by非法

EXTEND(,) 在集合末尾添加元素n的x个副本

对Index_by非法

FIRST 返回集合中的第一个元素的下标号，对于VARRAY集合始终返回1。

LAST 返回集合中最后一个元素的下标号, 对于VARRAY返回值始终等于COUNT.

LIMIT 返回VARRY集合的最大的元素个数，对于嵌套表和对于嵌套表和Index_by为null Index_by集合无用

NEXT() 返回在元素x之后及紧挨着它的元素的值，如果该元素是最后一个元素，则返回null.

PRIOR() 返回集合中在元素x之前紧挨着它的元素的值，如果该元素是第一个元素，则返回null。

TRI M 从集合末端开始删除一个元素

对于index_by不合法

TRIM() 从集合末端开始删除x个元素

对index_by不合法

使用实例：

Set serveroutput on

Declare

type my_text_table_type is table of

varchar2(200)

index by binary_integer

l_text_table

my_text_table_type

l_index number

begin

for emp_rec in (select *

from emp) loop

l_text_table(emp_rec.empno):=emp_rec.ename

end

loop

l_index:= l_text_table.first--使用first方法

loop

exit

when l_index is null

dbms_output.put_line(l_index ||’:’||

l_text_table(l_index))

l_index :=l_text_table.next(l_index)

end loop

end

实例：

CREATE OR REPLACE PROCEDURE sample

is

TYPE

R_REC IS RECORD(INT NUMBER(6,2), CHR VARCHAR2(100))

TYPE T_REC IS

TABLE OF R_REC INDEX BY BINARY_INTEGER

A_ZEI T_REC

IX

NUMBER(10)

BEGIN

FOR IX IN 1..1000 LOOP

A_ZEI(IX).INT :=

IX

A_ZEI(IX).CHR := TO_CHAR(A_ZEI(IX).INT,'9,999,999.99')

END

LOOP

END

或

CREATE OR REPLACE PROCEDURE P_EMP

IS

TYPE T_EMP

IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER

A_EMP T_EMP

I

BINARY_INTEGER := 0

BEGIN

FOR REC IN (SELECT EMPNO,ENAME FROM EMP)

LOOP

I := I + 1

A_EMP(I).EMPNO := REC.EMPNO

A_EMP(I).ENAME := REC.ENAME

END LOOP

FOR K IN 1..I LOOP

DBMS_OUTPUT.PUT_LINE( A_EMP(K).EMPNO || ' ' || A_EMP(K).ENAME)

END

LOOP

END

集合：是具有相同定义的元素的聚合。Oracle有两种类型的集合：

可变长数组（VARRAY）：可以有任意数量的元素，但必须预先定义限制值。

嵌套表：视为表中之表，可以有任意数量的元素，不需要预先定义限制值。

在PL/SQL中是没有数组(Array)概念的。但是如果程序员想用Array的话，就得变通一下，用TYPE 和Table of

Record来代替多维数组，一样挺好用的。

emp_type 就好象一个table 中的一条record 一样，里面有id, name,gender等。emp_type_array 象个table,

里面含有一条条这样的record (emp_type)，就象多维数组一样。

--单维数组

DECLARE

TYPE emp_ssn_array IS TABLE OF NUMBER

INDEX BY

BINARY_INTEGER

best_employees emp_ssn_array

worst_employees

emp_ssn_array

BEGIN

best_employees(1) := '123456'

best_employees(2)

:= '888888'

worst_employees(1) := '222222'

worst_employees(2) :=

'666666'

FOR i IN 1..best_employees.count

LOOP

DBMS_OUTPUT.PUT_LINE('i='|| i || ', best_employees= '

||best_employees(i)

|| ', worst_employees= ' ||worst_employees(i))

END

LOOP

END

--多维数组

DECLARE

TYPE emp_type IS RECORD

( emp_id

employee_table.emp_id%TYPE,

emp_name

employee_table.emp_name%TYPE,

emp_gender employee_table.emp_gender%TYPE

)

TYPE emp_type_array IS TABLE OF emp_type INDEX BY

BINARY_INTEGER

emp_rec_array emp_type_array

emp_rec

emp_type

BEGIN

emp_rec.emp_id := 300000000

emp_rec.emp_name :=

'Barbara'

emp_rec.emp_gender := 'Female'

emp_rec_array(1) :=

emp_rec

emp_rec.emp_id := 300000008

emp_rec.emp_name :=

'Rick'

emp_rec.emp_gender := 'Male'

emp_rec_array(2) := emp_rec

FOR

i IN 1..emp_rec_array.count LOOP

DBMS_OUTPUT.PUT_LINE('i='||i

||', emp_id

='||emp_rec_array(i).emp_id

||', emp_name

='||emp_rec_array(i).emp_name

||', emp_gender =

'||emp_rec_array(i).emp_gender)

END LOOP

END

-------------- Result

--------------

i=1, emp_id =300000000, emp_name =Barbara, emp_gender =

Female

i=2, emp_id =300000008, emp_name =Rick, emp_gender = Male

用下面语句声明数组类型

type intarray is varry(30) of integer

用下面语句声明一个数组变量

declare

A intarray用下面语句声明数组类型

type intarray is varry(30) of integer

用下面语句声明一个数组变量

declare

A intarray用下面语句声明数组类型

type intarray is varry(30) of integer

用下面语句声明一个数组变量

declare

A intarray

返回字符数组。

CREATE OR REPLACE TYPE role_name_tb_type is table of varchar2(128)

/*============================================*

  * Author  : SANFU

  * Created  : 2020-08-25 17:34:59

  * ALERTER  :

  * ALERTER_TIME  :

  * Purpose  :  获取字符数组

  * Obj_Name    : GET_STRARRAY

  * Arg_Number  : 2

  * AV_STR : 要分割的字符串

  * AV_SPLIT : 分隔符号

  *============================================*/

  FUNCTION get_strarray(av_str  VARCHAR2, --要分割的字符串

                        av_split VARCHAR2 --分隔符号

                        ) RETURN role_name_tb_type IS

    v_av_str  VARCHAR2(100) := av_str--要切割的字符串

    v_av_split VARCHAR2(100) := av_split--分割符

    v_length  NUMBER

    --TYPE role_name_tb_type is table of varchar2(128)

    role_name_tb role_name_tb_type := role_name_tb_type()

  BEGIN

    v_length := scmdata.sf_import_company_users_pkg.get_strarraylength(v_av_str,

                                                                      v_av_split)

    FOR i IN 0 .. (v_length - 1) LOOP

      --扩展数组

      role_name_tb.extend

      SELECT scmdata.sf_import_company_users_pkg.get_strarraystrofindex(v_av_str,

                                                                        v_av_split,

                                                                        i)

        INTO role_name_tb(role_name_tb.count)

        FROM dual

    END LOOP

    /*    for i in 0 .. (v_length - 1) loop

      dbms_output.put_line(role_name_tb(i))

    end loop*/

    RETURN role_name_tb

  END get_strarray

---