[Orace] 第17章 集合-索引表

索引表类似于程序语言中的数组，可以保存多个数据，并且通过下标来访问每一个数据，但是在 Oracle 中可用来定义索引表下标的数据类型可以是整数也可以是字符串。

但是在Oracle中定义的索引表与程序中的数组还有以下的区别：

索引表不需要进行初始化，而已直接为指定索引赋值，开辟的索引表的索引不一定必须连续。

索引表不仅可以使用数字作为索引下标，也可以利用字符串表示索引下标，使用数字作为索引下标时也可以设置为负数。

定义索引表

TYPE TYPE_NAME IS TABLE OF DATA_TYPE [NOT NULL]

INDEX BY [PLS_INTEGER | BINARY_INTEGER | VARCHAR2(LENGTH)];

DECLARE
TYPE INFO_INDEX IS TABLE OF VARCHAR2(20)
INDEX BY PLS_INTEGER;

V_INFO INFO_INDEX;
BEGIN
V_INFO(1)  := 'JAVA';
V_INFO(10) := 'PL/SQL';

IF V_INFO.EXISTS(1) THEN
DBMS_OUTPUT.PUT_LINE(V_INFO(1));
ELSE
DBMS_OUTPUT.PUT_LINE('NOT EXISTS');
END IF;

IF V_INFO.EXISTS(30) THEN
DBMS_OUTPUT.PUT_LINE(V_INFO(30));
ELSE
DBMS_OUTPUT.PUT_LINE('NOT EXISTS');
END IF;

EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT('WRONG:'|| SQLCODE || SQLERM);
END;

DECLARE
TYPE DEPT_INDEX IS TABLE OF DEPT%ROWTYPE
INDEX BY PLS_INTEGER;

V_DEPT DEPT_INDEX;
BEGIN
V_DEPT(0).DEPT   := 80;
V_DEPT(0).DNAME  := 'MLDN';
V_DEPT(0).LOC    := 'PEKING';

IF V_DEPT.EXISTS(0) THEN
DBMS_OUTPUT.PUT_LINE();
END IF;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT('WRONG:'|| SQLCODE || SQLERM);
END;

DECLARE
TYPE DEPT_TYPE IS RECORD(
DEPTNO    DEPT.DEPTNO%TYPE,
DNAME     DEPT.DNAME%TYPE,
LOC       DEPT.LOC%TYPE
);

TYPE DEPT_INDEX IS TABLE OF DEPT_TYPE
INDEX BY PLS_INTEGER;

V_DEPT DEPT_INDEX;
BEGIN
V_DEPT(0).DEPT   := 80;
V_DEPT(0).DNAME  := 'MLDN';
V_DEPT(0).LOC    := 'PEKING';

IF V_DEPT.EXISTS(0) THEN
DBMS_OUTPUT.PUT_LINE();
END IF;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT('WRONG:'|| SQLCODE || SQLERM);
END;