Hallo Leute,
ich habe mal wieder ein Problem. Ihr könnt mir da besimmt wieder helfen.
Ich möchte mich gern auf meinen Server einlogen, die verbindung steht auch soweit.
Wie kann ich jetzt bestimmte Fehler abfangen:
Ich wollte es mit einem Try...catch-Abfrage machen. Aber ich weiß nicht wie ich diese Errors abfrage.
ich habe mal wieder ein Problem. Ihr könnt mir da besimmt wieder helfen.
Ich möchte mich gern auf meinen Server einlogen, die verbindung steht auch soweit.
Code:
'SQLconnection öffnen
Me.SqlConnection1.ConnectionString = "data source= " & S & ";" & _
"initial catalog= master;" & _
"persist security info=False;" & _
"user id=" & B & ";" & _
"Password=" & PW & ";" & _
"workstation id=" & S & ";" & _
"packet size=4096"
Wie kann ich jetzt bestimmte Fehler abfangen:
- Ist der Server vorhanden?
- Ist derBenutzer vorhanden?
- Hat Benutzer Adminrechte auf dem Server?
Ich wollte es mit einem Try...catch-Abfrage machen. Aber ich weiß nicht wie ich diese Errors abfrage.
Code:
'Überprüfung des Servers und des Benutzers
Dim S, B, PW As String
S = Me.txtServer.Text
B = Me.txtBenutzer.Text
PW = Me.txtPW.Text
'Alle Felder ausgefüllt? False: Fehlermeldung 1
If S = "" Or B = "" Then
MsgBox("Es würden nicht alle Felder ausgefüllt! Bitte überprüfen Sie die Eingaben", MsgBoxStyle.Critical, "Fehlermeldung 1")
Else
'Fehlermeldung-abfrage
Try
'verbindung herstellen
Me.SqlConnection1.ConnectionString = "data source= " & S & ";" & _
"initial catalog= master;" & _
"persist security info=False;" & _
"user id=" & B & ";" & _
"Password=" & PW & ";" & _
"workstation id=" & S & ";" & _
"packet size=4096"
Catch 'Server vorhanden? False: Fehlermeldung 2
'MsgBox("Verbindung fehlgeschlagen! Grund:" & Err.string)
End Try
'Benutzer vorhanden? False: Fehlermeldung 3
'Hat Benutzer Admin. Rechte? False: Fehlermeldung 4
'Form frmAnmeldung wird geschlossen
Me.Hide()
'Form willkommen wird geladen, wenn verbindung steht
Dim Will As New frmWillkommen()
Will.ShowDialog()
End If