Abfangen von Fehlermeldungen von SQL Server in VBA in Excel

Das ADO-Verbindungsobjekt hat eine Errors-Sammlung, die Sie überprüfen können, nachdem Sie Ihr SQL ausgeführt haben:

conn.Errors.Clear
Set rs = conn.Execute(Myquery) 

If conn.Errors.Count &GT; 0 Then
    For i = 0 To conn.Errors.Count
        Debug.Print conn.Error(i).Number 
        Debug.Print conn.Error(i).Source 
        Debug.Print conn.Error(i).Description
    next i
End If

Das sollte Ihnen den Einstieg erleichtern. Sie werden möglicherweise feststellen, dass Sie einen „Fehler Null“ sehen, der eigentlich eine Statusmeldung ist; In diesem Fall müssen Sie noch etwas codieren.