VB2005 OracleのODPエラーメッセージ取得

解決

かお  2008-01-10 14:55:38  No: 144252  IP: 192.*.*.*

VB2005 OracleのODPをを使用しています。
ExecuteNonQuery()実行時の
Oracleのエラーメッセージを取得する方法を教えてください。


Public sub xxx()

  On Error GoTo ERRORX

  conn.Open()
  
  cmd.CommandText = "UPDATE M商品 SET 価格=100 WHERE 商品CD=1"
  
  Dim rows As Decimal = cmd.ExecuteNonQuery()
  
  conn.Close()
  
ERRORX:
  MsgBox("xxx")    ←●SQL文が構文エラーの時Oracleが表示するメッセージを取得して表示したい

End sub

編集 削除
もげ  2008-01-10 15:02:21  No: 144253  IP: 192.*.*.*

OracleExceptionクラス 
について調べてみてください。
http://otndnld.oracle.co.jp/document/products/oracle10g/101/doc_v12/win.101/B15519-01/OracleExceptionClass.htm

>  On Error GoTo ERRORX
.NETなのですから、Try〜Catchを推奨します。

編集 削除
かお  2008-01-10 15:30:44  No: 144254  IP: 192.*.*.*

もげ様

できました。ありがとうございました。

編集 削除