サーバー側のカーソルを取得して使用する


  コロン( : ) を使った場合の引数の処理



コロンを使った方法でも結果は同じなので、こちらのほうが何を実行しようとしているが解り易いですし、
汎用性があります。

  
' *******************************************
' プロシージャの実行
' *******************************************
' 実行タイプ
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
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ