Ich habe einen Timer und will mit ihm den Verbindungsstatus zur Datenbank abfrgagen
Aber das funktioniert nicht, wenn ich auf meinem rechner ne ip release mache bleibt das label auf grün.
Ich habe auch ein modul gebaut mit dem ich den Verbindungsstatus prüfe, ich weiß allerdings ob und wie ich diese mit dem timer sagen wir jede sekunde ausführen kann.
Imports
System.Data.Sql
Imports
System.Data.SqlClient
Module
Module1
Public conn
As
New SqlConnection
Public strsql, dtag
As
String
Public
Function Isopen(ByVal
conn As SqlConnection)
As
Boolean
Dim Ret
As
Boolean =
False
If conn
IsNot
Nothing
Then
Ret = (conn.State
And ConnectionState.Open) = ConnectionState.Open
End
If
Return Ret
End
Function
End
Module
Private
Sub Timer1_Tick(ByVal
sender As System.Object,
ByVal e
As System.EventArgs)
Handles Timer1.Tick
If conn.State =
False
Then
Label29.Text =
"Verbindung unterbrochen"
Label29.ForeColor = Color.Red
End
If
End
Sub
