0040

ストアドプロシージャの実行

 

create or replace procedure getempname
       (inempno in number, outempname out varchar2) is
begin
       select ename into outempname from emp where empno = inempno;
end;

 

事前に上記のストアドプロシージャが登録されている前提。

 

    ‘パラメータ定義をする
    With OraDaynaset.Parameters
        ‘ストアドプロシージャへ値を渡すパラメータ
        .Add "H_in", "", ORAPARM_INPUT
        ‘ストアドプロシージャから値を受け取るパラメータ
        .Add "H_out", "", ORAPARM_OUTPUT
    End With

    ‘パラメータのデータ型を指定する
    With OraDaynaset
        .Parameters("H_in").serverType = ORATYPE_NUMBER
        .Parameters("H_out").serverType = ORATYPE_VARCHAR2
        ‘ストアドプロシージャへ検索データセットする
        .Parameters("H_in").Value = 5555
    End With





    ‘SQL(ストアドプロシージャ)を編集する
    strSql = "BEGIN getempname(:H_in,:H_out); END;"
    ‘ストアドプロシージャ実行する
    OraDaynaset.ExecuteSQL (strSql)     
     ‘※該当データが存在しないと上記でエラーコード=1403で
             ‘ ランタイムエラーが発生する

    ‘ストアドプロシージャの戻り値を取得する
    strOut = OraDaynaset.Parameters("H_out").Value

    ‘パラメータ定義を開放する
    With OraDaynaset.Parameters
        .Remove "H_in"
        .Remove "H_out"
    End With

 

OO4Oコーディング標準(VB)

初期登録日: 2003年11月12日

最終更新日: 2008年01月26日

< Home ヘ戻る >

キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく
  2. [ CTRL ] + [ – ]  :  文字を小さく

Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size
  2. [ CTRL ] + [ – ]  :  Down the font size