77 lines
2.9 KiB
VB.net
77 lines
2.9 KiB
VB.net
Imports System.Data.SqlClient
|
|
|
|
Public Class ClassDatabase
|
|
Public Shared Function Execute_MSSQL(Sql As String)
|
|
Try
|
|
Dim Connection As SqlConnection
|
|
Connection = New SqlConnection(My.Settings.SQLConnection)
|
|
Dim Command As SqlCommand
|
|
Command = New SqlCommand(Sql, Connection)
|
|
' Verbindung zur Datenbank aufbauen
|
|
Try
|
|
Connection.Open()
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Fehler in Execute_MSSQL DB aufbauen - Fehler: " & ex.Message, False)
|
|
Connection.Close()
|
|
Return False
|
|
End Try
|
|
|
|
' SQL ausführen
|
|
Command.ExecuteNonQuery()
|
|
Connection.Close()
|
|
Return True
|
|
Catch ex As Exception
|
|
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
|
|
ClassLogger.Add("Unbekannter Fehler in Execute_MSSQL - Fehler: " & ex.Message, False)
|
|
ClassLogger.Add("## SQL " & Sql, False)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Public Shared Function Execute_Scalar(Sql As String)
|
|
Try
|
|
Dim Connection As SqlConnection
|
|
Connection = New SqlConnection(My.Settings.SQLConnection)
|
|
Dim Command As SqlCommand
|
|
Command = New SqlCommand(Sql, Connection)
|
|
Dim result
|
|
' Verbindung zur Datenbank aufbauen
|
|
Try
|
|
Connection.Open()
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Fehler in Execute_MSSQL DB aufbauen - Fehler: " & ex.Message, False)
|
|
Connection.Close()
|
|
Return False
|
|
End Try
|
|
|
|
'SQL ausführen
|
|
result = Command.ExecuteScalar()
|
|
Connection.Close()
|
|
Return result
|
|
Catch ex As Exception
|
|
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
|
|
ClassLogger.Add("Unbekannter Fehler in Execute_MSSQL - Fehler: " & ex.Message, False)
|
|
ClassLogger.Add("## SQL " & Sql, False)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Public Shared Function Return_Datatable(Sql As String)
|
|
Try
|
|
Dim Connection As SqlConnection
|
|
Connection = New SqlConnection(My.Settings.SQLConnection)
|
|
Dim Command As SqlCommand
|
|
Command = New SqlCommand(Sql, Connection)
|
|
|
|
|
|
Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(Command)
|
|
Dim dt As DataTable = New DataTable()
|
|
adapter1.Fill(dt)
|
|
Connection.Close()
|
|
Return dt
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Unbekannter Fehler in Return_Datatable - Fehler: " & ex.Message, False)
|
|
ClassLogger.Add("## SQL " & Sql, False)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
End Class
|