| ' *******************************************
' プロシージャの実行
' *******************************************
' 実行タイプ
myCommand.CommandType = CommandType.Text
' プロシージャ名
myCommand.CommandText = "BEGIN 引数テスト_CUR(:PM_01,:PM_02); END;"
' パラメータクリア
myCommand.Parameters.Clear()
' 1つ目のパラメータ( IN なので簡単な記述方法 )
myCommand.Parameters.Add("PM_01", OracleType.VarChar).Value = "0010"
' 2つ目のパラメータ( OUT なので、パラメータオブジェクトを作成 )
Dim SERVER_CUR As New OracleParameter("PM_02", OracleType.Cursor)
SERVER_CUR.Direction = ParameterDirection.Output
' 2つ目のパラメータを追加
myCommand.Parameters.Add(SERVER_CUR)
' カーソルを受け取る Reader
Dim RecordSet As OracleDataReader = Nothing
Try
' 結果を受け取り、後で処理する
RecordSet = myCommand.ExecuteReader()
Catch ex As Exception
myCon.Close()
MessageBox.Show(ex.Message)
Return
End Try
| |