MS IDB und WINDREAM

Global_Indexer/ClassDatabase.vb

@@ -187,6 +187,32 @@ Public Class ClassDatabase
             Return False
         End Try
     End Function
+    Public Shared Function Execute_non_Query_ConStr(ExecuteCMD As String, ConnString As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConnString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            LOGGER.Debug("Execute_non_Query_ConStr Created: " & ExecuteCMD)
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            If userInput = True Then
+                MsgBox("Error in Execute_non_Query_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            End If
+            Clipboard.SetText("Error Execute_non_Query_ConStr: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD)
+            LOGGER.Info("Fehler bei Execute_non_Query_ConStr: " & ex.Message, True)
+            LOGGER.Info("#SQL: " & ExecuteCMD, False)
+
+            Return False
+        End Try
+    End Function
     Public Shared Function Execute_Scalar(sql_command As String, ConString As String, Optional userInput As Boolean = False)
         Dim result
         Try