Oracle存储过程中如何使用数组(附范例)

--单维数组
DECLARE
  TYPE emp_ssn_array IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
  best_employees  emp_ssn_array;
  worst_employees emp_ssn_array;
BEGIN
  best_employees(1) := '123456';
  best_employees(2) := '888888';
  worst_employees(1) := '222222';
  worst_employees(2) := '666666';
  FOR i IN 1 .. best_employees.count LOOP
    DBMS_OUTPUT.PUT_LINE('i=' || i || ', best_employees= ' ||
                         best_employees(i) || ', worst_employees= ' ||
                         worst_employees(i));
  END LOOP;
END;

--多维数组
DECLARE
  TYPE emp_type IS RECORD(
    emp_id     employee_table.emp_id%TYPE,
    emp_name   employee_table.emp_name%TYPE,
    emp_gender employee_table.emp_gender%TYPE);
  TYPE emp_type_array IS TABLE OF emp_type INDEX BY BINARY_INTEGER;
  emp_rec_array emp_type_array;
  emp_rec       emp_type;
BEGIN
  emp_rec.emp_id     := 300000000;
  emp_rec.emp_name   := 'Barbara';
  emp_rec.emp_gender := 'Female';
  emp_rec_array(1) := emp_rec;
  emp_rec.emp_id     := 300000008;
  emp_rec.emp_name   := 'Rick';
  emp_rec.emp_gender := 'Male';
  emp_rec_array(2) := emp_rec;
  FOR i IN 1 .. emp_rec_array.count LOOP
    DBMS_OUTPUT.PUT_LINE('i=' || i || ', emp_id =' || emp_rec_array(i)
                         .emp_id || ', emp_name =' || emp_rec_array(i)
                         .emp_name || ', emp_gender = ' || emp_rec_array(i)
                         .emp_gender);
  END LOOP;
END;

DECLARE
  -- 声明数组类型
  TYPE ts_varray IS VARRAY(20) OF NUMBER(10); --20是最大的下标
  -- 声明数组变量
  vs_varray ts_varray := ts_varray();
BEGIN
  FOR i IN 1 .. 20 LOOP
    -- 自增数组大小
    vs_varray.extend; --注释该行的话,会报下标越界的错误
    -- 数组赋值
    vs_varray(i) := trunc(dbms_random.value(100, 200));
  END LOOP;
  -- 循环数组
  FOR i IN 1 .. vs_varray.count LOOP
    dbms_output.put_line('i = ' || i || ',value = ' || vs_varray(i));
  END LOOP;
END;