1、一维数组的使用
DECLARE --创建数组 TYPE T_USER_VARRAY IS VARRAY(200) OF VARCHAR(50); MY_USER_VAR T_USER_VARRAY := T_USER_VARRAY('张三','李四','王五'); BEGIN --遍历数组 FOR I IN 1..MY_USER_VAR.COUNT LOOP DBMS_OUTPUT.PUT_LINE(MY_USER_VAR(I)); END LOOP; END;
2、二维数组的使用
DECLARE --创建数组 TYPE T_USER_VARRAY IS VARRAY(200) OF VARCHAR2(50); TYPE T_USER_INFO_VARRAY IS VARRAY(200) OF T_USER_VARRAY; MY_USER_INFO_VAR T_USER_INFO_VARRAY := T_USER_INFO_VARRAY(T_USER_VARRAY('张三','男','研发部'),T_USER_VARRAY('李四','女','人事部'),T_USER_VARRAY('王五','财务部')); BEGIN --遍历数组 FOR I IN 1..MY_USER_INFO_VAR.COUNT LOOP DBMS_OUTPUT.PUT('姓名:'||MY_USER_INFO_VAR(I)(1)); DBMS_OUTPUT.PUT(' 性别:'||MY_USER_INFO_VAR(I)(2)); DBMS_OUTPUT.PUT_LINE(' 部门:'||MY_USER_INFO_VAR(I)(3)); END LOOP; END;