bolshi
Mitglied
Hallo,
im aktuellen Projekt soll ein Timer mind. so lange laufen, bis die Verbindung zur Datenbank mittels NTAuthentifizierung stattfand. Max. jedoch 10s. Die Verbindung zur DB findet wie folgt statt:
Der Timer-Code:
Wie muss ich die Abbruchbedingung gsetzen, dass bei erfolgreicher autom. DB-Verbindung mein Popup kommt:
Nachdem "ProgressBar1.Maximum erreicht ist und die autom. Verbindung nicht erfolgte, soll die Verbindung manuell stattfinden:
Mit einer if-Anweisung bekomme ich einen Syntaxfehler. Mit elseif läuft die Anwendung durch. Allerdings kommt das Popup nicht.
im aktuellen Projekt soll ein Timer mind. so lange laufen, bis die Verbindung zur Datenbank mittels NTAuthentifizierung stattfand. Max. jedoch 10s. Die Verbindung zur DB findet wie folgt statt:
Code:
Try
Dim con As SqlConnection = _
New SqlConnection("Data Source=localhost;" & _
"Initial Catalog=pubs;Trusted_Connection=yes")
con.Open()
Catch e As Exception
' Anweisungen
End Try
Der Timer-Code:
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ProgressBar1.Maximum = 10
ProgressBar1.Minimum = 0
ProgressBar1.Value = 0
ProgressBar1.Step = 1
Timer1.Interval = 1000
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Timer1.Enabled = False Then
ProgressBar1.Value = 0
Timer1.Start()
Else
'Beginn der manuellen Verbindung
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.PerformStep()
If Timer1.Enabled = False Then ProgressBar1.PerformStep()
If ProgressBar1.Value = 12 Then Timer1.Stop()
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
End Sub
End Class
Wie muss ich die Abbruchbedingung gsetzen, dass bei erfolgreicher autom. DB-Verbindung mein Popup kommt:
Code:
message.show("Erfolgreich verbunden")
Nachdem "ProgressBar1.Maximum erreicht ist und die autom. Verbindung nicht erfolgte, soll die Verbindung manuell stattfinden:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Timer1.Enabled = False Then
ProgressBar1.Value = 0
Timer1.Start()
ElseIf (ProgressBar1.Maximum = True) Then
'Beginn der manuellen Verbindung
MessageBox.Show("Beginn der manuellen Verbindung")
End If
End Sub
Mit einer if-Anweisung bekomme ich einen Syntaxfehler. Mit elseif läuft die Anwendung durch. Allerdings kommt das Popup nicht.