-- 它使得定义多值属性成为一种可能:由此克服了关系模型的基本特征(也可以说是约束),一个属性(如一个列)的每行只可以存储一个值。-- 声明Create Or Replace varray_type_name Is Varray(size_limit) Of Element_type [Not Null];-- 使用varray_obj varray_type_name;-- 注:下标从1开始,元素个数有限制 使用变长数组对象元素前,必须使用构造函数初始化-- 容量为100个的varchar2的数组,每个长度为20Create Or Replace Type varray_type Is Varray(100) Of Varchar2(20) Not Null;DECLARE VARRAY_OBJ VARRAY_TYPE; N NUMBER;BEGIN VARRAY_OBJ := VARRAY_TYPE('xxxxxxxxxxxxxxxxxxxX', 'b', 'c'); IF VARRAY_OBJ.EXISTS(1) THEN DBMS_OUTPUT.PUT_LINE('--从第1个元素开始输出'); N := VARRAY_OBJ.FIRST; LOOP DBMS_OUTPUT.PUT_LINE('下标:' || N || ' 值:' || VARRAY_OBJ(N)); EXIT WHEN N = VARRAY_OBJ.LAST; N := VARRAY_OBJ.NEXT(N); END LOOP; DBMS_OUTPUT.PUT_LINE('--从最后1个元素开始输出'); N := VARRAY_OBJ.LAST; LOOP DBMS_OUTPUT.PUT_LINE('下标:' || N || ' 值:' || VARRAY_OBJ(N)); EXIT WHEN N = VARRAY_OBJ.FIRST; N := VARRAY_OBJ.PRIOR(N); END LOOP; END IF;END;