MS_12.03.2016

app/DD-Record-Organiser/ClassDatabase.vb

@@ -152,6 +152,33 @@ Public Class ClassDatabase
             Return False
         End Try
     End Function
+    Public Shared Function Execute_non_Query_withConn(ExecuteCMD As String, ConnID As Integer)
+        Try
+            Dim connectionString As String
+            connectionString = ClassDatabase.GetConnectionString(ConnID)
+            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 = ExecuteCMD
+                SQLcommand.ExecuteNonQuery()
+                SQLcommand.Dispose()
+                SQLconnect.Close()
+                Return True
+            Else
+                MsgBox("No ConnectionID for Conn-ID: " & ConnID.ToString, MsgBoxStyle.Exclamation)
+                Return Nothing
+            End If
+            
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei Execute_non_Query_withConn: " & ex.Message, True)
+            ClassLogger.Add("SQL: " & ExecuteCMD, False)
+            Return False
+        End Try
+    End Function
 
     'TODO: Asynchrone Abfrage möglich machen
     Public Shared Sub Execute_non_Query_Async(ExecuteCMD As String, Optional Userinput As Boolean = False)