Multiindex Fenster modernisieren #20

Global_Indexer/frmAdministration.vb

@@ -703,7 +703,39 @@ Public Class frmAdministration
         CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
         CURRENT_INDEXAUTO = GUIDAUTO_INDEXTextbox.Text
         CURRENT_SQL_CONFIG = "AUTO"
-        SQLConfigAutoIndex.ShowDialog()
+        'SQLConfigAutoIndex.ShowDialog()
+
+        Dim oIndexGuid As Integer = GUIDAUTO_INDEXTextbox.Text
+        Dim oDocTypeGuid As Integer = DOKART_GUIDTextBox.Text
+        Dim oSQLCommand = ""
+
+        Try
+            Dim oSQL = $"SELECT SQL_RESULT, CONNECTION_ID FROM TBDD_INDEX_AUTOM WHERE GUID = {oIndexGuid}"
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+            Dim oRow = oDatatable.Rows.Item(0)
+            Dim oConnection As Integer = 1
+
+            If Not IsDBNull(oRow.Item("CONNECTION_ID")) Then
+                oConnection = oRow.Item("CONNECTION_ID")
+            End If
+
+            Dim oForm As New frmSQL_DESIGNER(oIndexGuid, oDocTypeGuid) With {
+                .SQLCommand = oRow.Item("SQL_RESULT"),
+                .ConnectionID = oConnection
+            }
+
+            If oForm.ShowDialog() = DialogResult.OK Then
+
+                oSQLCommand = oForm.SQLCommand.Replace("'", "''")
+                Dim oConnectionId = oForm.SQLConnectionId
+
+                oSQL = $"UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = {oConnectionId},SQL_RESULT = '{oSQLCommand}',CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {oIndexGuid}"
+                ClassDatabase.Execute_non_Query(oSQL, True)
+
+            End If
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
     End Sub
 
     Private Sub ToolStripButton23_Click(sender As Object, e As EventArgs) Handles ToolStripButton23.Click