SAK 図書館

SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |

Oracle PL/SQL 編3 - コレクション、table、varray、宣言、コレクションメソッド

■PL/SQL コレクション

  ・コレクションとして、
      table   ネストした表
      varray  可変サイズ配列
    がある。
    varray は添字の上限が決まるが、table には上限がない。
    また、table は、中抜の状態にできる。

  ・table は、SQL でも扱えるが、索引付き table は扱えない。
    (index by binary_integer 指定のもの。)

■SQL でのコレクション宣言

【単純型】

create type ttel as table of varchar2(12)
/
create type tadre as object (
  name varchar2(40),
  adre varchar2(200),
  tel  ttel
)
/

【単純例 varray 型 + oo4o フィールド参照】

create type ttadre as varray(3) of varchar2(20)
/
create table test (
  item1 char(10),
  item2 char(10),
  adre  ttadre
)
/
insert into test values ('a001', 'b002',
  ttadre('氏名1', '氏名2', '氏名3')
)
/

'** oo4o varray 型参照(添字)
  Dim item As OraCollection

  Do Until rs.EOF
    Print rs(0)
    Print rs(1)
    Set item = rs.Fields("adre").Value
    For i = 1 To item.Size
      Print i & " - " & item(i)
    Next
    rs.MoveNext
  Loop

【単純例 object 型 + oo4o フィールド参照】

create type tadre as object (
  name varchar2(40),
  adre varchar2(200),
  tel  varchar2(12)
)
/
create table test (
  item1 char(10),
  item2 char(10),
  adre  tadre
)
/
insert into test values ('a001', 'b002',
    tadre('氏名1', '住所1', '電話1')
)
/

'** oo4o object 型参照(名前)
  Dim item As OraObject

  Do Until rs.EOF
    Print rs(0)
    Print rs(1)
    Set item = rs.Fields("adre").Value
    Print "name - " & item.Name
    Print "adre - " & item.adre
    Print "tel  - " & item.tel
    rs.MoveNext
  Loop

'** oo4o object 型参照(添字)
  Do Until rs.EOF
    Print rs(0)
    Print rs(1)
    Set item = rs.Fields(2).Value
    For i = 1 To item.Count
      Print i & " - " & item(i)
    Next
    rs.MoveNext
  Loop

【複雑例 object 型、 varray 型 + oo4o フィールド参照】

create type tadre as object (
  name varchar2(40),
  adre varchar2(200),
  tel  varchar2(12)
)
/
create type ttadre as varray(3) of tadre
/
create table test (
  item1 char(10),
  item2 char(10),
  adre  ttadre
)
/
insert into test values ('a001', 'b002',
  ttadre(
    tadre('氏名1', '住所1', '電話1'),
    tadre('氏名2', '住所2', '電話2'),
    tadre('氏名3', '住所3', '電話3')
  )
)
/

'** oo4o varray 型、object 型参照(名前)
  Do Until rs.EOF
    Print rs(0)
    Print rs(1)
    Set item = rs.Fields("adre").Value
    For i = 1 To item.Size
      Set item2 = item(i)
      For j = 1 To item2.Count
        Print i & " - name - " & item2.Name
        Print i & " - adre - " & item2.adre
        Print i & " - tel  - " & item2.tel
      Next
    Next
    rs.MoveNext
  Loop

'** oo4o varray 型、object 型参照(添字)
  Do Until rs.EOF
    Print rs(0)
    Print rs(1)
    Set item = rs.Fields(2).Value
    For i = 1 To item.Size
      Set item2 = item(i)
      For j = 1 To item2.Count
        Print i & ", " & j & " - " & item2(j)
      Next
    Next
    rs.MoveNext
  Loop

■コレクション宣言

declare
  type ttel is table of varchar2(12);
  a ttel;
begin
  a := ttel('123-456-7890', '123-456-7890', '123-456-7890');
  a(1) := '100';
end;
/

declare
  type ttel is varray(3) of varchar2(12);
  a ttel;
begin
  a := ttel('123-456-7890', '123-456-7890', '123-456-7890');
  a(1) := '100';
end;
/

declare
  type tjcno is table of 受注m.受注番号%type;
  jcno tjcno;
  cursor cu is select * from 得意先m;
  type tkrec is table of cu%rowtype;
begin
  jcno := tjcno('123456-001', '123456-001', '123456-001');
  jcno(1) := '100';
end;
/

declare
  type ttest is record (
    item1 varchar2(20),
    item2 varchar2(20),
    item3 varchar2(20)
  );
  type tttest is varray(2) of ttest;
  a tttest;
begin
  a := tttest();
end;
/

declare
  type ta is varray(10) of varchar2(10);
  type ttest is record (
    item1 varchar2(20),
    item2 varchar2(20),
    item3 ta
  );
  a ttest;
begin
  a.item3 := ta();
end;
/

■不可能な宣言

  ・table、または、varray を更に table、または、varray に含めることは出
    来ない。(SQL の create type ... as object は含められる。)

declare
  type ttest is table of varchar2(10);
  type tttest is varray(2) of ttest;
  a tttest;
begin
  a := tttest();
end;
/

declare
  type ta is varray(10) of varchar2(10);
  type ttest is record (
    item1 varchar2(20),
    item2 varchar2(20),
    item3 ta
  );
  type tttest is varray(2) of ttest;
  a tttest;
begin
  a := tttest();
end;
/

■コレクションメソッド

  コレクション名.exists(添字)          添字が存在すれば TRUE
  コレクション名.count                 要素数
  コレクション名.limit                 最大要素数 (table は、NULL が返る)
  コレクション名.first                 最小添字
  コレクション名.last                  最大添字
  コレクション名.prior(n 要素)         n 要素前の添字
  コレクション名.next(n 要素)          n 要素次の添字
  コレクション名.extend(n 要素)        n 要素追加 (table のみ)
  コレクション名.extend(n 要素, 添字)  添字の要素を n 要素コピー (table のみ)
  コレクション名.trim(n 要素)          最後から n 要素削除 (table のみ)
  コレクション名.delete(添字)          添字の要素を削除 (table のみ)

■Oracle PL/SQL 編資料

■SQL 基礎実地編資料

■SQL 基礎編資料

■SQL チューニング編資料

■PostgreSQL 編、JAVA Servlet、JSP 編資料

■MySQL 編資料
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |
SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索



Copyright (C) 1999-2024 Y.SAK