Imports System.Data.SqlClient
Imports System.Data.SqlDbType
Public Class clsdb

    Dim connstring As String
    Dim Connection As SqlConnection
    Public data As New DataTable
    Sub New()
        Me.connstring = My.Settings.ConnectionString
        Connection = New SqlConnection(connstring)
    End Sub

    Public Function Get_Data()
        Dim dad As New SqlDataAdapter
        Dim sql As String = "Select * from edkb19_Servicecontroller where start=1 or stop=1 or restart=1"
        dad = New SqlDataAdapter(sql, Me.connstring)
        dad.Fill(data)
    End Function

    Public Function UpdateEntry(ByVal nreintrag As Integer)
        Dim sqlcmd As New SqlCommand
        sqlcmd.Connection = Connection
        Dim sql As String
        sqlcmd.CommandText = "update edkb19_Servicecontroller set stop=0,start=0,restart=0 where nreintrag=" + nreintrag.ToString
        Connection.Open()
        sqlcmd.ExecuteNonQuery()
        Connection.Close()
    End Function

End Class