[ホーム] ＞ [VBScript FAQ 一覧] ＞ [Oracle のSQL を実行し、エラーを取得する]

Oracle のSQL を実行し、エラーを取得する | VBScript / VBA FAQ

以下 Oracle のADODB.Connection で ORACLE 固有のエラーコードを取得するサンプルです。

On Error Resume Next



sql = "INSERT ・・・・・・・・・・

objADO.Execute sql



If Err.Number = 0 Then

　rem SQL実行成功

Else

　Set objADOErrItem = objADO.Errors.Item(0)



　rem 以下のOracle 固有の ORA-xxxx エラーが出力される。

　WScript.echo "NativeError(ORA):" & objADOErrItem.NativeError



　WScript.echo "Description:" & objADOErrItem.Description

　WScript.echo "Number:" & objADOErrItem.Number

　WScript.echo "Source:" & objADOErrItem.Source

　WScript.echo "SQLState:" & objADOErrItem.SQLState

　Set objADOErrItem = Nothing

　Set objADOErrItem = Nothing			           

End If

[ホーム] ＞ [VBScript FAQ 一覧]