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

Oracleファンクションを呼出す時の方法ですが、最近使ったので覚え書きとして一般的な例を記します。

ファンクションの例として入力及び戻り値が同じで、各データ型（Number型、Varchar2型、日付型）の3個のファンクションを定義します。
ファンクションのソースは以下の通りです。ソースをご覧になれば分かりますが、これらのファンクションは特に複雑な処理は行わず、入力値に１を加算したり、文字列を付加して値を返す簡単なものです。

これらのファンクションのみを使う場合は DUAL 表を使えば通常のSELECT文でテストできます。例えば、以下の様なSQL文を実行してみます。ここでは、TEST_FNC3の出力のカラム幅が80桁になって表示が乱れるのであえてカラム幅を20桁に設定する COLUMN 命令を使っています。

SELECT文の出力を見れば、入力値に対して処理された値が返ってきているのが分かると思います。

この処理をVB.NETから操作する例は以下の通りです。（フォーム上のボタンクリックイベントの中に処理を記述してあります）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    '接続文字列
    Dim strConnect As String = "Data Source=//localhost/xe; User ID=test;Password=test;"
    'オラクル接続オブジェクト
    Dim Conn As New OracleConnection(strConnect)
    Try
        'オラクル接続オープン
        Conn.Open()
        'SQL文
        Dim SQL As String = ""
        SQL &= "SELECT TEST_FNC1(1.05) AS FNC1"
        SQL &= "      ,TEST_FNC2(TO_DATE('2017/11/01')) AS FNC2"
        SQL &= "      ,TEST_FNC3('TEST') AS FNC3 FROM DUAL"
        'コマンドオブジェクト(SQL文と接続オブジェクト)
        Dim Cmd As New OracleCommand(SQL, Conn)
        Cmd.CommandType = CommandType.Text
        'コマンドオブジェクトの実行で読込オブジェクト取得
        Dim dr As OracleDataReader = Cmd.ExecuteReader()
        'データ行の読込処理
        If dr.Read() = True Then
            '読込が正常の場合、各データの取得
            Dim strMsg As String = ""
            strMsg &= "TEST_FNC1(1.05) = " & dr.Item("FNC1") & vbCrLf
            strMsg &= "TEST_FNC2(TO_DATE('2017/11/01')) = " & dr.Item("FNC2") & vbCrLf
            strMsg &= "TEST_FNC3('TEST') = " & dr.Item("FNC3")
            MsgBox(strMsg)
        End If
        '読込オブジェクトのクローズ
        dr.Close()
        dr = Nothing
        'オラクル接続クローズ
        Conn.Close()
    Catch exora As OracleException
        'オラクルエラー
        MsgBox(exora.Number & ":" & exora.Message)
    Catch ex As Exception
        'PGエラー
        MsgBox(ex.Message)
    Finally
        Conn.Dispose()
    End Try
End Sub