Imports System.Data
Imports System.Data.OleDb
 
Public Class pc_int
 
    Private con As New OleDb.OleDbConnection
    Private strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
      "Source=C:\Freibage\WatchGuard.mdb;" & "Jet OLEDB:database Password=xy;"
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim x
        Dim ueberwachung_bis
        Dim ueberwachung_von
        Dim Nextp
 
        Try
            ueberwachung_bis = "23:59"
            ueberwachung_von = "00:01"
            Nextp = "12:00"
 
            Try
 
                Dim DSPC As New DataSet
 
                con.ConnectionString = strCon
 
                Dim oledbadapter As OleDb.OleDbDataAdapter
                oledbadapter = New OleDb.OleDbDataAdapter("SELECT * FROM" & _
                  "pcping", con)
 
                con.Open()
 
                oledbadapter.Fill(DSPC, "ID")
 
                ueberwachung_von = DSPC.Tables("ID").Rows(0).Item(2)
                ueberwachung_bis = DSPC.Tables("ID").Rows(0).Item(3)
                Nextp = DSPC.Tables("ID").Rows(0).Item(6)
 
                MsgBox("Von: " + ueberwachung_von.ToString)
                MsgBox("Bis: " + ueberwachung_bis.ToString)
                MsgBox("Nächster: " + Nextp.ToString)
 
            Catch ex As Exception
                MsgBox("Fehler: " + ex.ToString)
            Finally
                con.Close()
            End Try
 
            x = Now.ToString("HH:mm")
            MsgBox("Zeit: " + x.ToString)
 
            If Nextp = x Then
                MsgBox("Richtig: Nextp = x")
                If ueberwachung_von <= x And ueberwachung_bis >= x Then
                    MsgBox("Richtig: Von <= x UND Bis >= x")
                Else
                    MsgBox("Falsch: Von > x ODER Bis < x")
                End If
                MsgBox("Falsch: Nextp <> x")
            Else
            End If
            x = ""
        Catch ex As Exception
            MsgBox("Fehler: " + ex.ToString)
        End Try
    End Sub
End Class