none
Timer SQL Connection State abfragen RRS feed

  • Frage

  • 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

    Mittwoch, 29. Dezember 2010 13:28

Antworten

Alle Antworten