Klasse ODBCError - einen ODBC-Fehler (Excel VBA)

Die Klasse ODBCError stellt einen ODBC-Fehler dar, der durch die zuletzt ausgeführte ODBC-Abfrage generiert wurde. Um eine ODBCError -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim odber as ODBCError
Set odber = Application.ODBCErrors(Index:=1)

For Each

Hier ist ein Beispiel für die Verarbeitung der ODBCError -Elemente in einer Sammlung

Dim odber As ODBCError
For Each odber In Application.ODBCErrors
	
Next odber

ErrorString

Gibt einen String-Wert zurück, der die ODBC-Fehlerzeichenfolge darstellt.

Dim strErrorString As String
strErrorString = Application.ODBCErrors(1).ErrorString

SqlState

Gibt den SQL-Statusfehler zurück.

Eine Erläuterung des spezifischen Fehlers finden Sie in der SQL-Dokumentation.

With Worksheets(1).QueryTables(1) 
 .Refresh 
 Set errs = Application.ODBCErrors 
 If errs.Count > 0 Then 
 Set r = .Destination.Cells(1) 
 r.Value = "The following errors occurred:" 
 c = 0 
 For Each er In errs 
 c = c + 1 
 r.offset(c, 0).value = er.ErrorString 
 r.offset(c, 1).value = er.SqlState 
 Next 
 Else 
 MsgBox "Query complete: all records returned." 
 End If 
End With