Forum: Visual Basic |
Thema:
Gruppieren von Fehlerbehandlungen |
Von:
G. Guest (
12.02.2005 13:13) |
Gibt es die Möglichkeit, dass ich die Error Handling von verschiedenen Funktionen in einem Ausgabe auflisten kann! Zum Beispiel:
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Function GetID() As String
On Error GoTo ErrorHandler
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "provider=SQLOLEDB;server=test;initial Catalog=test;uid=sa;password=test"
cn.Open
query = "SELECT id from table1"
rs.Open query, cn
Do While Not rs.EOF
GetID = rs(0)
rs.MoveNext
Loop
rs.Close
Exit Function
ErrorHandler:
If cn.Errors.Count <> 0 Then
GetID = cn.Errors.Item(0).Number & _
cn.Errors.Item(0).Description & _
cn.Errors.Item(0).Source
End If
Set rs = Nothing
End Function
Public Function GetName() As String
On Error GoTo ErrorHandler
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "provider=SQLOLEDB;server=test;initial Catalog=test;uid=sa;password=test"
cn.Open
query = "SELECT name from table2"
rs.Open query, cn
Do While Not rs.EOF
GetName = rs(0)
rs.MoveNext
Loop
rs.Close
Exit Function
ErrorHandler:
If cn.Errors.Count <> 0 Then
GetName = cn.Errors.Item(0).Number & _
cn.Errors.Item(0).Description & _
cn.Errors.Item(0).Source
End If
Set rs = Nothing
End Function
Ich möchte gern das folgende Ergebniss so haben (die Fehlermeldungen müssen gruppiert werden), wenn
table1 und table2 z.b nicht im Datenbank sind:
1)
-2147217865
Ungültiger Objektname 'table1'.
Microsoft OLE DB Provider for SQL Server
2)
-2147217865
Ungültiger Objektname 'table2'.
Microsoft OLE DB Provider for SQL Server
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!