MS Changes Firebird due to wisag

2018-12-18 23:48:31 +01:00
parent 4e7502e1b6
commit 1198b1004e
314 changed files with 1017502 additions and 0 deletions
--- a/App/DigitalData.EMLProfiler/clsDatabase.vb
+++ b/App/DigitalData.EMLProfiler/clsDatabase.vb
@@ -0,0 +1,147 @@
+Imports DigitalData.EMLProfiler.ClassCurrent
+Imports DigitalData.Modules.Logging
+Public Class clsDatabase
+    Public connectionString As String
+    Private Logger As Logger
+    Sub New(LogConf As LogConfig, ConStr As String)
+        Logger = LogConf.GetLogger
+        Init(ConStr)
+    End Sub
+    Public Function Init(ConString As String)
+        Try
+
+            Dim SQLconnect As New SqlClient.SqlConnection
+            SQLconnect.ConnectionString = ConString
+            SQLconnect.Open()
+            SQLconnect.Close()
+            connectionString = ConString
+            DTCONFIG = Return_Datatable("select * from TBEMLP_CONFIG")
+            If Not IsNothing(DTCONFIG) Then
+                If DTCONFIG.Rows.Count = 1 Then
+                    LOG_ERRORS_ONLY = DTCONFIG.Rows(0).Item("LOG_ERRORS_ONLY")
+                    PATH_TEMP = DTCONFIG.Rows(0).Item("PATH_EMAIL_TEMP")
+                    PATH_ERROR = DTCONFIG.Rows(0).Item("PATH_EMAIL_ERRORS")
+                    MAIL_BODY_FONT = DTCONFIG.Rows(0).Item("FONT_BODY")
+                    WM_CON_STRING = DTCONFIG.Rows(0).Item("WM_CON_STRING")
+                    TIMER_INTERVALL = DTCONFIG.Rows(0).Item("CHECK_INTERVALL_MINUTES")
+                End If
+            End If
+            DT_ECM_BASE_CONFIG = Return_Datatable("select * from TBDD_BASECONFIG")
+            Try
+                WM_DRIVE = DT_ECM_BASE_CONFIG.Rows(0).Item("WM_DRIVE")
+            Catch ex As Exception
+                Logger.Warn("WM_DRIVE not part of DT_ECM_BASE_CONFIG: " & ex.Message)
+                WM_DRIVE = "W"
+            End Try
+            Logger.Debug("Database initialized")
+            Return True
+        Catch ex As Exception
+            Logger.Warn("Unexpected Error  in DatabaseInit: " & ex.Message)
+            Return False
+        End Try
+    End Function
+
+    Public Function Return_Datatable(Select_anweisung As String)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+            SQLcommand.CommandTimeout = 240
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            Logger.Warn("Unexpected Error in Return_Datatable: " & ex.Message)
+            Logger.Warn("SQL: " & Select_anweisung)
+            Return Nothing
+        End Try
+    End Function
+    Public Function Return_DatatableCS(Select_anweisung As String, CS As String)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = CS
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+            SQLcommand.CommandTimeout = 240
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            Logger.Warn("Unexpected Error in Return_DatatableCS: " & ex.Message)
+            Logger.Warn("SQL: " & Select_anweisung)
+            Return Nothing
+        End Try
+    End Function
+    Public Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            Logger.Warn("Unexpected Error in Execute_non_Query: " & ex.Message)
+            Logger.Warn("SQL: " & ExecuteCMD)
+            Return False
+        End Try
+    End Function
+    Public Function Execute_Scalar(cmdscalar As String)
+        Dim result
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            Logger.Warn("Unexpected Error Execute_Scalar: " & ex.Message)
+            Logger.Warn("SQL: " & cmdscalar)
+            Return Nothing
+        End Try
+    End Function
+    Public Function Execute_Scalar_CS(cmdscalar As String, constring As String)
+        Dim result
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = constring
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            Logger.Warn("Unexpected Error Execute_Scalar_CS: " & ex.Message)
+            Logger.Warn("SQL: " & cmdscalar)
+            Return Nothing
+        End Try
+    End Function
+End Class