おやじプログラマー日記 : VB.NET:Oracleプロシージャを呼出す時の方法について・覚え書き

Oracleプロシージャを呼出す時の方法ですが、最近使ったので覚え書きとして一般的な例を記します。

プロシージャの引数は、入力がNumber型、Varchar2型、日付型の3個で、出力は入力の値を更新して結果を返す、Number型、Varchar2型、日付型の3個で定義します。
プロシージャのソースは以下の通りです。ソースをご覧になれば分かりますが、このプロシージャは特に複雑な処理は行わず、入力値に１を加算したり、文字列を付加する簡単なものです。

このプロシージャをVB.NETから操作する関数の例は以下の通りです。

Private Function CallOracleProcedure() As Boolean
    fcCallOracleProcedure = False

Dim OraCmd As OracleCommand = Nothing
    Try
        'PROCEDURE TEST_PRC(InNumber in number, InVarchar in varchar2, InDate in date,
        '                   OutNumber out number, OutVarchar out varchar2, OutDate out date);

'接続文字列(仮に"test"というユーザで入る)
        Dim strConnect As String = "Data Source=//localhost/xe; User ID=test;Password=test;"
        'オラクル接続オブジェクト
        Dim Conn As New OracleConnection(strConnect)
        'オラクル接続オープン
        Conn.Open()
        'プロシージャ指定でOracleCommand生成
        OraCmd = New OracleCommand("TEST_PRC", Conn)
        OraCmd.CommandType = CommandType.StoredProcedure

'引数:InNumber
        Dim prmInNumber As OracleParameter
        prmInNumber = OraCmd.Parameters.Add("InNumber", OracleDbType.Decimal, ParameterDirection.Input)
        prmInNumber.Value = 1

'引数:InVarchar
        Dim prmInVarchar As OracleParameter
        prmInVarchar = OraCmd.Parameters.Add("InVarchar", OracleDbType.Varchar2, ParameterDirection.Input)
        prmInVarchar.Value = "1"

'引数:InDate
        Dim prmInDate As OracleParameter
        prmInDate = OraCmd.Parameters.Add("InDate", OracleDbType.Date, ParameterDirection.Input)
        prmInDate.Value = CDate("2017/11/01")

'引数:OutNumber
        Dim prmOutNumber As OracleParameter
        prmOutNumber = OraCmd.Parameters.Add("OutNumber", OracleDbType.Decimal, ParameterDirection.Output)
        prmOutNumber.Value = 0

'引数:OutVarchar
        Dim prmOutVarchar As OracleParameter
        prmOutVarchar = OraCmd.Parameters.Add("OutVarchar", OracleDbType.Varchar2, 1024, Nothing, ParameterDirection.Output)

'引数:OutDate
        Dim prmOutDate As OracleParameter
        prmOutDate = OraCmd.Parameters.Add("OutDate", OracleDbType.Date, ParameterDirection.Output)
        prmOutDate.Value = Nothing

'プロシージャ実行
        OraCmd.ExecuteNonQuery()

'各出力値を関数引数に設定
        'ステータス
        Dim strMsg As String = ""
        strMsg &= "OutNumber = " & DirectCast(prmOutNumber.Value, OracleDecimal).Value & vbCrLf
        strMsg &= "OutVarchar = " & DirectCast(prmOutVarchar.Value, OracleString).Value & vbCrLf
        strMsg &= "OutDate = " & DirectCast(prmOutDate.Value, OracleDate).Value.ToString & vbCrLf
        MsgBox(strMsg)

'正常終了
        Return True

Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        'OracleCommand廃棄
        If OraCmd IsNot Nothing Then
            OraCmd.Dispose()
            OraCmd = Nothing
        End If
    End Try
End Function

先ず、オラクルに接続後、プロシージャ名を指定してでOracleCommand生成します。その後、OracleCommand の Parameters オブジェクトに入力及び、出力の引数を追加してやります。各 OracleParameter の生成で注意する点は、データがVarchar2型で、データ長を設定する必要があります。データ型のサイズが分かっているNumber、Date等は必要無いようです。

■関連ページ
⇒OracleSQLのその他・Tips等について
⇒ODP.NET について

ひと目でわかる VisualBasic 2013/2012データベース開発入門 (MSDNプログラミングシリーズ)