Oracle PL / SQL - как создать простую переменную массива?

129

Я хотел бы создать переменную массива в памяти, которую можно было бы использовать в моем коде PL / SQL. Я не могу найти в Oracle PL / SQL коллекций, которые используют чистую память, все они, похоже, связаны с таблицами. Я хочу сделать что-то подобное в моем PL / SQL (синтаксис C #):

string[] arrayvalues = new string[3] {"Matt", "Joanne", "Robert"};

Изменить: Oracle: 9i

contactmatt
источник
1
Ссылка на "таблицу", как правило, является пережитком старого наименования таблиц PL / SQL. VARRAY, ассоциативные массивы и объявленные вложенные таблицы - все это типы массивов в памяти.
Олли,
прочтите эту ссылку orafaq.com/wiki/VARRAY и dba-oracle.com/tips_oracle_varray.htm
zloctb

Ответы:

245

Вы можете использовать VARRAY для массива фиксированного размера:

declare
   type array_t is varray(3) of varchar2(10);
   array array_t := array_t('Matt', 'Joanne', 'Robert');
begin
   for i in 1..array.count loop
       dbms_output.put_line(array(i));
   end loop;
end;

Или ТАБЛИЦА для неограниченного массива:

...
   type array_t is table of varchar2(10);
...

Слово «таблица» здесь не имеет ничего общего с таблицами базы данных, что сбивает с толку. Оба метода создают массивы в памяти.

С помощью любого из них вам необходимо как инициализировать, так и расширить коллекцию перед добавлением элементов:

declare
   type array_t is varray(3) of varchar2(10);
   array array_t := array_t(); -- Initialise it
begin
   for i in 1..3 loop
      array.extend(); -- Extend it
      array(i) := 'x';
   end loop;
end;

Первый индекс равен 1, а не 0.

Тони Эндрюс
источник
75
«запутанно» резюмирует Oracle
m.edmondson
Могу ли я вставлять в таблицы так же, как массивы? iemy_array(0) := 'some string';
Abdul
@TonyAndrews добавляет array.extend();ли EXTEND слот к обычному ограниченному массиву? В этом случае он уже имеет динамический размер, поэтому таблица (неограниченный массив) не понадобится.
Абдул
2
@ Абдул, нет. Обычно я никогда не использую VARRAY, но при тестировании приведенного выше кода я проверил, что произойдет, если вы попытаетесь расширить его в varray(3)4 раза - вы получите ошибку «нижний индекс вне предела».
Тони Эндрюс
2
Хотел бы я проголосовать за этот ответ несколько раз @TonyAndrews, так как вы рассказали о array.extend(). Везде, куда я смотрел, этого не было видно, и это была самая важная часть возможности добавить более одного элемента (насколько я понимаю, это все еще новинка для массивов в SQL).
Джонатан Ван Дам
61

Вы можете просто объявить DBMS_SQL.VARCHAR2_TABLE для хранения массива переменной длины в памяти, индексированного BINARY_INTEGER:

DECLARE
   name_array dbms_sql.varchar2_table;
BEGIN
   name_array(1) := 'Tim';
   name_array(2) := 'Daisy';
   name_array(3) := 'Mike';
   name_array(4) := 'Marsha';
   --
   FOR i IN name_array.FIRST .. name_array.LAST
   LOOP
      -- Do something
   END LOOP;
END;

Вы можете использовать ассоциативный массив (который раньше назывался таблицами PL / SQL), поскольку они представляют собой массив в памяти.

DECLARE
   TYPE employee_arraytype IS TABLE OF employee%ROWTYPE
        INDEX BY PLS_INTEGER;
   employee_array employee_arraytype;
BEGIN
   SELECT *
     BULK COLLECT INTO employee_array
     FROM employee
    WHERE department = 10;
   --
   FOR i IN employee_array.FIRST .. employee_array.LAST
   LOOP
      -- Do something
   END LOOP;
END;

Ассоциативный массив может содержать любые типы записей.

Надеюсь, это поможет, Олли.

Олли
источник
17
Условие итерации возникает, VALUE_ERRORкогда коллекция пуста. Я бы посоветовал скорее использовать FOR i IN 1 .. employee_array.COUNTв этом случае
unziberla
Версия j-chomel ( stackoverflow.com/a/40579334/1915920 ) на основе sys.odcivarchar2listниже имеет то преимущество, что у вас также есть конструктор под рукой, например, для инициализации параметра функции по умолчанию:sys.odcivarchar2list('val1','val2')
Андреас Дитрих
11

Другое решение - использовать Oracle Collection как Hashmap:

declare 
-- create a type for your "Array" - it can be of any kind, record might be useful
  type hash_map is table of varchar2(1000) index by varchar2(30);
  my_hmap hash_map ;
-- i will be your iterator: it must be of the index's type
  i varchar2(30);
begin
  my_hmap('a') := 'apple';
  my_hmap('b') := 'box';
  my_hmap('c') := 'crow';
-- then how you use it:

  dbms_output.put_line (my_hmap('c')) ;

-- or to loop on every element - it's a "collection"
  i := my_hmap.FIRST;

  while (i is not null)  loop     
    dbms_output.put_line(my_hmap(i));      
    i := my_hmap.NEXT(i);
  end loop;

end;
Дж. Чомель
источник
11

Вы также можете использовать oracle defined collection

DECLARE 
  arrayvalues sys.odcivarchar2list;
BEGIN
  arrayvalues := sys.odcivarchar2list('Matt','Joanne','Robert');
  FOR x IN ( SELECT m.column_value m_value
               FROM table(arrayvalues) m )
  LOOP
    dbms_output.put_line (x.m_value||' is a good pal');
  END LOOP;
END;

Я бы использовал массив в памяти. Но с .COUNTулучшением, предложенным uziberia:

DECLARE
  TYPE t_people IS TABLE OF varchar2(10) INDEX BY PLS_INTEGER;
  arrayvalues t_people;
BEGIN
  SELECT *
   BULK COLLECT INTO arrayvalues
   FROM (select 'Matt' m_value from dual union all
         select 'Joanne'       from dual union all
         select 'Robert'       from dual
    )
  ;
  --
  FOR i IN 1 .. arrayvalues.COUNT
  LOOP
    dbms_output.put_line(arrayvalues(i)||' is my friend');
  END LOOP;
END;

Другое решение - использовать Hashmap, как здесь @Jchomel .

NB:

С Oracle 12c вы даже можете напрямую запрашивать массивы !

Jika
источник
1

Примеры программ, указанные ниже и также предоставленные по ссылке https://oracle-concepts-learning.blogspot.com/

таблица plsql или связанный массив.

        DECLARE 
            TYPE salary IS TABLE OF NUMBER INDEX BY VARCHAR2(20); 
            salary_list salary; 
            name VARCHAR2(20); 
        BEGIN 
           -- adding elements to the table 
           salary_list('Rajnish') := 62000; salary_list('Minakshi') := 75000; 
           salary_list('Martin') := 100000; salary_list('James') := 78000; 
           -- printing the table name := salary_list.FIRST; WHILE name IS NOT null 
            LOOP 
               dbms_output.put_line ('Salary of ' || name || ' is ' || 
               TO_CHAR(salary_list(name))); 
               name := salary_list.NEXT(name); 
            END LOOP; 
        END; 
        /
sudhirkondle
источник