MS_07.03.2016

app/DD-Record-Organiser/ClassDatabase.vb

@@ -77,6 +77,35 @@ Public Class ClassDatabase
             Return Nothing
         End Try
     End Function
+    Public Shared Function MSSQL_ReturnDTWithConnection(connectionId As Integer, sql As String)
+        Try
+            Dim connectionString As String
+            connectionString = ClassDatabase.GetConnectionString(connectionId)
+            If connectionString <> "" Then
+
+                Dim SQLconnect As New SqlClient.SqlConnection
+                Dim SQLcommand As SqlClient.SqlCommand
+                SQLconnect.ConnectionString = connectionString
+                SQLconnect.Open()
+                SQLcommand = SQLconnect.CreateCommand
+                SQLcommand.CommandText = sql
+
+                Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+                Dim dt As DataTable = New DataTable()
+                adapter1.Fill(dt)
+                SQLconnect.Close()
+                Return dt
+            Else
+                MsgBox("No ConnectionID!", MsgBoxStyle.Exclamation)
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            ClassLogger.Add(" - Unvorhergesehener Fehler bei MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei MSSQL_ReturnDTWithConnection:")
+            Return Nothing
+        End Try
+    End Function
     Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False)
         Try
             Dim SQLconnect As New SqlClient.SqlConnection
@@ -180,6 +209,36 @@ Public Class ClassDatabase
             Return Nothing
         End Try
     End Function
+
+    Public Shared Function Execute_ScalarWithConnection(connectionId As Integer, cmdscalar As String)
+        Dim result
+        Try
+            Dim connectionString As String
+            connectionString = ClassDatabase.GetConnectionString(connectionId)
+            If connectionString <> "" Then
+                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
+            Else
+                MsgBox("No ConnectionID!", MsgBoxStyle.Exclamation)
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei Execute_ScalarWithConnection: " & ex.Message, True)
+            ClassLogger.Add("SQL: " & cmdscalar, False)
+            Return Nothing
+        End Try
+    End Function
+
     Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
         Dim result
         Try