Как я могу сделать пересылку объявлений в Oracle? - PullRequest
Новая
       45

Как я могу сделать пересылку объявлений в Oracle?

3 голосов
/ 23 апреля 2011

Вот моя ситуация: тип A хочет иметь метод, который возвращает тип, представляющий собой таблицу записей типа A. Я могу это сделать?

1 Ответ

6 голосов
/ 23 апреля 2011

Вот пара объявлений типа SQL: 

SQL> create or replace type a as object
  2      ( attr1 number
  3        , attr2 date )
  4  /

Type created.

SQL> create or replace type a_nt as table of a
  2  /

Type created.

SQL>

Теперь нам нужен метод, который возвращает A_NT().Хм, посмотрим: 

SQL> alter type a
  2      add member function getme (p1 number) return a_nt
  3  /
alter type a
*
ERROR at line 1:
ORA-04055: Aborted: "A" formed a non-REF mutually-dependent cycle with "A_NT".


SQL>

Э-э-э.Нам нужен другой подход.Это тот случай, когда мы должны использовать наследование. 

SQL> create or replace type abstract_a as object
  2      ( attr1 number
  3        , attr2 date )
  4  not final not instantiable
  5  /

Type created.

SQL> create or replace type a_nt as table of abstract_a
  2  /

Type created.

SQL> create or replace type a under abstract_a
  2      ( member function getme (p1 number) return a_nt )
  3  instantiable
  4  /

Type created.

SQL>

Хорошо выглядит.Итак, мы добавим реализацию, а затем попробуем ее: 

SQL> create or replace type body a as
  2      member function getme (p1 number) return a_nt
  3      is
  4          l_nt a_nt;
  5      begin
  6          select a(empno, hiredate)
  7          bulk collect into l_nt
  8          from emp
  9          where deptno = p1;
 10          return l_nt;
 11      end;
 12  end;
 13  /

Type body created.

SQL>

Давайте накатим! 

SQL> set serveroutput on
SQL> declare
  2      v a := a(null, null);
  3      n a_nt;
  4  begin
  5      n := v.getme(50);
  6
  7      for i in n.first()..n.last() loop
  8          dbms_output.put_line(n(i).attr1 ||'::'||to_char(n(i).attr2, 'DD-MON-YYYY'));
  9      end loop;
 10  end;
 11  /
8085::08-APR-2010
8060::08-APR-2008
8061::27-FEB-2010
8100::

PL/SQL procedure successfully completed.

SQL>

Самозагрузка сложна, но работает.Это может быть еще одна область, где реализация ООП Oracle является неполной.Но, возможно, это просто отражение того факта, что это не очень хорошая идея.Мне потребовалось некоторое время, чтобы понять это, потому что базовая модель на самом деле не имеет смысла.Хотя, возможно, с именами реального мира это стало бы очевидным :)

...