ODBCConnection、ODBCQuery、および ODBCResultSet の各クラスはすべて次のメソッドを含んでいます。

• GetError は、上記のクラスのオブジェクトが最後に実行した操作に対し、整数値のエラー番号を返します。
• GetErrorMessage は、上記のクラスのオブジェクトが最後に実行した操作に対し、エラーテキストを返します。
• GetExtendedErrorMessage は、上記のクラスのオブジェクトが最後に実行した操作に対し、拡張エラーテキストを返します。エラーが元々データソースによって報告された場合、拡張エラーテキストにはデータソースのエラーメッセージが含まれます。

操作が成功した場合の戻り番号は DBstsSUCCESS です。他の番号はエラーを示します。

各操作の後で上記のメソッドを呼び出すことにより、操作を個別にテストできます。次のコードは最後に行われた操作を検査してエラーが発生した場合は終了する方法を示します。

-con.ConnectTo("ATDB")
If con.GetError <> DBstsSUCCESS Then
 Messagebox con.GetExtendedErrorMessage,, _
 con.GetError & " " & con.GetErrorMessage
 Exit Sub
End If
qry.SQL = "SELECT * FROM STUDENTS"
If qry.GetError <> DBstsSUCCESS Then
 Messagebox qry.GetExtendedErrorMessage,, _
 qry.GetError & " " & qry.GetErrorMessage
 Exit Sub
End If
result.Execute
If result.GetError <> DBstsSUCCESS Then
 Messagebox result.GetExtendedErrorMessage,, _
 result.GetError & " " & result.GetErrorMessage
 Exit Sub
End If

On Error Goto errorHandler
 con.ConnectTo("ATDB")
 qry.SQL = "SELECT * FROM STUDENTS"
 result.Execute
 ...
errorHandler:
 If con.GetError <> DBstsSUCCESS Then
   Messagebox con.GetExtendedErrorMessage,, _
   con.GetError & " " & con.GetErrorMessage
 End If
 If qry.GetError <> DBstsSUCCESS Then
   Messagebox qry.GetExtendedErrorMessage,, _
   qry.GetError & " " & qry.GetErrorMessage
 End If
 If result.GetError <> DBstsSUCCESS Then
   Messagebox result.GetExtendedErrorMessage,, _
   result.GetError & " " & result.GetErrorMessage
 End If
 Exit Sub

例

用語集