DOAによるプロシージャ実行

右のようなプロシージャを考えます(引数を１０回くりかえしてDBMS_Output出力します)

create or replace procedure TestProc1(N IN NUMBER) is
  i number;
begin
  for i in 1 .. 10 loop
    dbms_output.put_line(N);
  end loop;
end TestProc1;

begin
  TestProc1( 3 );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Status: integer;
  Line: string;
begin
  Session.DBMS_Output.Enable(100000);
  Query1.Execute;            
   
 
  Memo.Clear;
  while True do begin
    Session.DBMS_Output.Get_Line(Line, Status);
      if Status <> glSuccess then Break;
    Memo.Lines.Add(Line);
  end;
end;

１－２（引数ありのとき）

TestProc1の引数を変数から与えるには

Query1.SQLをこのように設定して

begin
  TestProc1( :N );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Status: integer;
  Line: string;
begin
  Session.DBMS_Output.Enable(100000);
  with Query1 do begin
    Close;
    SetVariable(★N, StrToInt(Edit1.Text)); //←ポイント
    Execute;
  end;           
   
  
  Memo.Clear;
  while True do begin
    Session.DBMS_Output.Get_Line(Line, Status);
           if Status <> glSuccess then Break;
                 Memo.Lines.Add(Line);
  end;
end;

例としてインプットを二乗して返す手続きを用意した

create or replace procedure TestProc2(
  N IN NUMBER, R OUT NUMBER) is
begin
  R := N * N;
end TestProc2;

declare 
  R number;
begin
  TestProc2(6, R);
  select R into :R From Dual;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Execute;
  Memo.Clear;
  Memo.Lines.Add(★R =  + 
    IntToStr(Query1.GetVariable(★R)));
end;

上記の例においては、Query1.SQLを以下のようにした方がもっと直接的です。

begin
  TestProc2( 6, :R);
end;

または

begin
  TestProc2( N => 6, R => :R);
end;

なお、プロシージャをパッケージ内で宣言した場合は、TOraclePackageコンポーネントが簡便です。

右のようなパッケージを用意します

Sybase/SQL-Server風にいえば

create procedure
  SelectRecords as
begin
  select empno,
  ename from emp;
end;

のような感じにしたい場合の話です。

create or replace package TestPkg is
  cursor empcursor is select empno, ename from emp;
  type t_empcursor is ref cursor return empcursor%rowtype;
　            
  procedure SelectRecords(p_empcursor in out t_empcursor);
end TestPkg;

create or replace package body TestPkg is
  procedure SelectRecords(p_empcursor in out t_empcursor) is
  begin
     open p_empcursor for select empno, ename from emp;
  end;
end TestPkg;

では、このプロシージャSelectRecordsの結果セットをグリッド表示してみましょう。

先程までのテストプログラムのTQueryの代わりにTOracleDataSetを使い、MemoのかわりにDBGridを配置して右のような画面を作ります。

begin
   TestPkg.SelectRecords( :CURSOR );
end;

※重要！トリッキーですが…※

OracleDataSet1.Variablesのプロパティエディタで Cursor型のVariableとしてCURSORを定義します

こうすると、この変数が、当データセットのためのカーソルになるのです。

procedure TForm1.Button1Click(Sender: TObject);
begin
  OracleDataSet1.Open;
end;

これを実行すると、プロシージャが実行され、出力用のカーソルの指すデータセットがグリッド表示されます。

そうです。Oracleのストアドプロシージャでselect文を実行させた、その結果をデータベース対応コンポーネントで参照・編集が可能です。