OracleÖеÄÊý×é

2010-04-21 14:04
oracleÖй¹ÔìÊý×éµÄÀý×Ó£º
declare
type t_varray is varray(4) of number;
arr t_varray;
begin
arr := t_varray(1,2,3,4);
for i in 1..arr.count loop
    dbms_output.put_line(arr(i));
end loop;
end;
    ¹¹Ôì¶þάÊý×éµÄÀý×Ó£º
declare
type t_varray is varray(4) of number;
type t_varray_varray is varray(3) of t_varray;
arr t_varray;
v_arr t_varray_varray;
begin
arr := t_varray(1,2,3,4);
v_arr := t_varray_varray(arr,arr,arr);
for i in 1..v_arr.count loop
    for j in 1..v_arr(i).count loop
        dbms_output.put(v_arr(i)(j));
        if (j = v_arr(i).count) then
          dbms_output.put_line('');
        end if;
    end loop;
end loop;
end;
    ³ýÁËʹÓÃvarray£¬»¹¿ÉÒÔʹÓÃË÷Òý±í¹¹ÔìÊý×顣ʹÓÃË÷Òý±í¶¨ÒåÊý×飬²»ÐèÒªÖ¸¶¨Êý×éµÄÉÏÏÞ£¬Êý×éµÄ´óСֻÓëÄÚ´æÏÞÖÆÓйء£¶øÇÒË÷Òý×éÖ¯±í¶¨ÒåÊÇÖ¸¶¨µÄË÷ÒýÏî²¢²»Ò»¶¨ÒªÊÇÊýÖµ¡£(ÏÂÒ»¸öÀý×ÓÊÇsysÓû§ÖеÄÀý×Ó)
DECLARE
TYPE T_TAB IS TABLE OF NUMBER INDEX BY VARCHAR2(30);
V_VAR T_TAB;
V_STR VARCHAR2(30);
BEGIN
FOR I IN (SELECT OWNER, COUNT(*) CN from DBA_TABLES GROUP BY OWNER) LOOP
    V_VAR(I.OWNER) := I.CN;
END LOOP;
V_STR := V_VAR.FIRST;
WHILE (V_VAR.EXISTS(V_STR)) LOOP
    DBMS_OUTPUT.PUT_LINE(RPAD(V_STR, 20, ' ') || ':' || V_VAR(V_STR));
    V_STR := V_VAR.NEXT(V_STR);
END LOOP;
END;
    Èç¹û¹¹Ôì¶þάÒÔÉϵÄÊý×飬ÇÒά¶È²»È«ÊÇÊýÖµ£¬ÄÇô¾ÍÐèҪעÒâÁË£º
DECLARE
TYPE T_NUM_TAB IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
TYPE T_VAR_TAB IS TABLE OF NUMBER INDEX BY VARCHAR2(10);
TYPE T_NUM_VAR IS TABLE OF T_NUM_TAB INDEX BY VARCHAR2(10);
TYPE T_VAR_NUM IS TABLE OF T_VAR_TAB INDEX BY BINARY_INTEGER;
V_NUM_VAR T_NUM_VAR;
V_VAR_NUM T_VAR_NUM;
BEGIN
V_NUM_VAR(5)('A') := 1;
V_VAR_NUM('A')(5) := 1;
END;
 &nbs