初学Oracle PL/SQL 【笔记五】

最新推荐文章于 2024-11-08 14:07:13 发布

春哥撩编程

最新推荐文章于 2024-11-08 14:07:13 发布

阅读量405

点赞数

分类专栏： Oracle PL/SQL 文章标签： oracle nested integer table null delete

本文链接：https://blog.csdn.net/shaochao14/article/details/5755226

版权

Oracle PL/SQL 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

集合：

PL/SQL 表存在两种类型:联合数组（正式说法是索引表）和嵌套表。它们具有相同的结构，并且都使用下标方式来访问数据行。两种类型之间的主要差别是：嵌套表可以存储在数据库列中，而联合数组不行。

1.联合数组

DECLARE

TYPE last_name_type IS TABLE OF student.last_name%TYPE

INDEX BY BINARY_INTEGER;

last_name_tab last_name_type;

如：

DECLARE

CURSOR name_cur IS SELECT last_name FROM student WHERE rownum <=10;

TYPE last_name_type IS TABLE OF student.last_name%TYPE

INDEX BY BINARY_INTEGER;

last_name_tab last_name_type;

v_counter INTEGER := 0;

BEGIN

FOR name_rec IN name_cur LOOP

v_counter := v_counter + 1;

last_name_tab(v_counter) := name_rec.last_name;

DBMS.OUTPUT.PUT_LINE( ' last_name ( ' || v_counter || ') : '|| last_name_tab(v_counter));

END LOOP;

END;

2.嵌套表 :首先必须初始化嵌套表，然后才能引用其中的元素。当声明嵌套表时，嵌套表被自动设置为NULL。

TYPE type_name IS TABLE OF element_type [NOT NULL];

table_name type_name;

在大多数情况下，无法预知特定嵌套表的值。所以如下语句会产生一个空的，但不是NULL 的嵌套表。

last_name_tab := last_name_type();

如：

DECLARE

CURSOR name_cur IS

SELECT last_name from student where rownum <=10;

TYPE last_name_type IS TABLE OF student.last_name%TYPE;

last_name_tab last_name_type := last_name_type();

v_counter INTEGER :=0;

BEGIN

FOR name_rec IN name_cur LOOP

v_counter := v_counter +1 ;

last_name_tab.EXTEND ;

last_name_tab(v_counter) := name_rec.last_name;

DBMS.OUTPUT.PUT_LINE(' last_name ('|| v_counter || ') : '|| last_name_tab(v_counter));

END LOOP;

END;

集合方法：

如果某特定元素存在于集合中，则EXISTS 会返回TRUE。该方法可以被用于避免SUBSCRIPT_OUTSIDE_LIMIT 异常。

COUNT 返回集合中元素的数量。

EXTEND 会扩展集合的规模。

DELETE 会删除集合中所有元素，指定范围的元素，或者特定元素。注意，PL/SQL会保存所删除元素的占位符。

FIRST 和 LAST 会返回集合中第一个和最后一个元素的下标。注意，如果嵌套表的第一个元素被删除，则FIRST 方法会返回大于1 的值。如果从嵌套表个删除一个中间元素，则LAST 方法的返回值会大于 COUNT 方法的返回值。

PRIOR 和 NEXT 会返回指定集合下标的前序和后续下标。

TRIM 会从集合的末尾删除一个，或者指定数量的元素。注意PL/SQL 不会保存被删除元素的占位符。

如：

DECLARE
TYPE index_by_type IS TABLE OF NUMBER
INDEX BY BINARY_INTEGER;
index_by_table index_by_type;

type nested_type is table of NUMBER;
nested_table nested_type := nested_type(1,2,3,4,5,6,7,8,9,10);

BEGIN
--Populate index by table
for i in 1..10 loop
index_by_table(i) := i;
end loop;

if index_by_table.EXISTS(3) then
dbms_output.put_line('index_by_table (3) = ' || index_by_table(3));
end if;

--delete 10th element form a collection
nested_table.DELETE(10);
--delete elements 1 through 3 from a collection
nested_table.DELETE(1,3);
index_by_table.DELETE(10);
DBMS_OUTPUT.PUT_LINE('nested_table.COUNT = '|| nested_table.COUNT);
DBMS_OUTPUT.PUT_LINE('index_by_table.COUNT = '|| index_by_table.COUNT);
DBMS_OUTPUT.PUT_LINE('nested_table.FIRST = '|| nested_table.FIRST);
DBMS_OUTPUT.PUT_LINE('nested_table.LAST = '|| nested_table.LAST);
DBMS_OUTPUT.PUT_LINE('index_by_table.FIRST = '|| index_by_table.FIRST);
DBMS_OUTPUT.PUT_LINE('index_by_table.LAST = '|| index_by_table.LAST);
DBMS_OUTPUT.PUT_LINE('nested_table.PRIOR(2) = '|| nested_table.PRIOR(2));
DBMS_OUTPUT.PUT_LINE('nested_table.NEXT(2) = '|| nested_table.NEXT(2));
DBMS_OUTPUT.PUT_LINE('index_by_table.PRIOR(2) = '|| index_by_table.PRIOR(2));
DBMS_OUTPUT.PUT_LINE('index_by_table.NEXT(2) = '|| index_by_table.NEXT(2));

--Trim last two elements
nested_table.TRIM(2);
--Trim last element
nested_table.TRIM;
DBMS_OUTPUT.PUT_LINE('nested_table.LAST = '|| nested_table.LAST);
end;

3.变长数组

语法：

TYPE type_name IS {VARRAY | VARYING ARRAY } (size_limit) OF

element_type [NOT NULL] ;

varray_name type_name;

类似于嵌套表，当变长数组被声明时，自动设置为NULL。必须在引用单个元素之前，初始化变长数组。

不能对变长数组使用DELETE 方法来删除其元素。可使用TRIM方法。

DECLARE
CURSOR name_cur IS SELECT last_name from student where rownum<=10;

TYPE last_name_type IS varray(10) of student.last_name%TYPE;
last_name_varray   last_name_type :=last_name_type();
v_counter INTEGER := 0;

BEGIN
FOR name_rec in name_cur loop
    v_counter := v_counter +1;
    last_name_varray.EXTEND;
    last_name_varray(v_counter) := name_rec.last_name ;
    DBMS_OUTPUT.PUT_LINE('last_name ('|| v_counter || ') : '|| last_name_varray(v_counter));
    END LOOP;
END;

declare
cursor city_cur is select city from zipcode where rownum <= 10;
Type city_type is varray(20) of zipcode.city%type;
city_varray city_type := city_type();
v_counter integer :=0;

begin
for city_rec in city_cur loop
    v_counter := v_counter +1 ;
    city_varray.extend;
    city_varray(v_counter) := city_rec.city;
end loop;
for i in 1..v_counter loop
    --extend the size of varray by 1 and copy the current element to the last element
    city_varray.extend(1,i); --表示把第i位置上的元素复制一个放在数组后。
    end loop;
for i in 1..20 loop
    dbms_output.put_line('city_varray ('|| i || ') :'|| city_varray(i));
    end loop;
end;

4. 多层集合

declare
type varray_type1 is varray(4) of integer;
type varray_type2 is varray(3) of varray_type1;
varray1 varray_type1 := varray_type1(2,4,6,8);
varray2 varray_type2 := varray_type2(varray1);

begin
dbms_output.put_line('Varray of integers');
for i in 1..4 loop
    dbms_output.put_line('varray('|| i || '):' || varray1(i));
    end loop;

varray2.extend;
varray2(2) := varray_type1(1,3,5,7);

dbms_output.put_line(chr(10) || ' Varray of varrays of integers');
for i in 1..2 loop
    for j in 1..4 loop
      dbms_output.put_line('varray2('|| i||')(' || j || '): ' || varray2(i)(j));
      end loop;
    end loop;
end;