Hi Marion,
du kannst das ganze über On Error abfangen…
Public Sub Connection_aufbauen()
On error goto FehlerAbfangen
With con
.connectionString = „Provider=MSDAORA.1;Data
Source=test:stuck_out_tongue_winking_eye:ersist Security Info=false;“
.CursorLocation = adUseClient
.ConnectionTimeout = 30
.Mode = alConnectMode
.Open connectionString, UserID, Password
If .State = adStateOpen Then
Haupt_frm.Show
End If
End With
Exit Sub
FehlerAbfangen:
err.raise err.number
End Sub
Mit err.raise err.number zeigt er dir die aktuelle Fehlermeldung an…
Du kannst dir jetzt die Nummer merken und dann folgendes schreiben
if err.number=… then
msgbox „Fehler beim Verbinden zur Datenbank“
end if
Hoffe, es hilft dir weiter
Mario