31 lines
987 B
VB.net
31 lines
987 B
VB.net
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
|