MS_SQLDesigner Und Referenzen

DD_PM_WINDREAM/frmSQL_DESIGNER.vb

@@ -3,24 +3,13 @@ Imports Oracle.ManagedDataAccess.Client
 
 Public Class frmSQL_DESIGNER
     Private _windreamPM As ClassPMWindream
+
     Private Sub TBPM_PROFILE_FINAL_INDEXINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
         Me.Validate()
         Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit()
         Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)
 
     End Sub
-
-    Private Sub FillToolStripButton_Click(sender As Object, e As EventArgs)
-        Try
-            If CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then
-                Dim sql = "SELECT"
-            End If
-        Catch ex As System.Exception
-            System.Windows.Forms.MessageBox.Show(ex.Message)
-        End Try
-
-    End Sub
-
     Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             lblSaveFinalIndex.Visible = False
@@ -50,7 +39,7 @@ Public Class frmSQL_DESIGNER
         Catch ex As Exception
             MsgBox("Unexpected Error while loading form: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-      
+
     End Sub
     Dim CurrentPosition As Integer = 0
     Dim CurrentPlaceholders As New Placeholders()
@@ -198,7 +187,18 @@ Public Class frmSQL_DESIGNER
         If CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then
             TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, Environment.UserName, CURRENT_INDEX_ID)
             lblSaveFinalIndex.Visible = True
-            lblSaveFinalIndex.Text = "SQL für finalen Index wurd erfolgreich gespeichert! " & Now.ToString
+            lblSaveFinalIndex.Text = "SQL für finalen Index wurde erfolgreich gespeichert! " & Now.ToString
+        ElseIf CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
+            Dim command = SQL_COMMANDTextBox.Text
+            command = command.Replace("'", "''")
+            Dim upd As String = String.Format("UPDATE TBPM_PROFILE_CONTROLS SET CONNECTION_ID = {0} , SQL_UEBERPRUEFUNG = '{1}' WHERE GUID = {2}", cmbConnection.SelectedValue, command, CURRENT_CONTROL_ID)
+            If ClassDatabase.Execute_non_Query(upd, True) Then
+                lblSaveFinalIndex.Visible = True
+                lblSaveFinalIndex.Text = "SQL für Indexdisplay wurde erfolgreich gespeichert! " & Now.ToString
+            Else
+                lblSaveFinalIndex.Visible = False
+            End If
+
         End If
     End Sub
 End Class