MS2909
This commit is contained in:
SchreiberM
@@ -1,66 +1,115 @@
|
||||
Imports Oracle.ManagedDataAccess.Client
|
||||
Public Class SQLConfigAutoIndex
|
||||
Imports System.Text.RegularExpressions
|
||||
|
||||
Public Class SQLConfigAutoIndex
|
||||
Dim CurrentPosition As Integer = 0
|
||||
|
||||
Dim CurrentTableType As String
|
||||
|
||||
Private Sub btnVorschlag_Click(sender As Object, e As EventArgs) Handles btnVorschlag.Click
|
||||
TestSQL(cmbConnection.SelectedValue, SQL_ERGEBNISTextBox.Text)
|
||||
End Sub
|
||||
Private Sub TestSQL(conid As Integer, sql_Vorschlag As String)
|
||||
Private Sub TestSQL(conid As Integer, sql_command As String)
|
||||
Try
|
||||
Dim connectionString As String
|
||||
Dim query As String = sql_command
|
||||
|
||||
Dim i As Integer
|
||||
For Each row As DataGridViewRow In dgvPlaceholders.Rows
|
||||
Dim placeholder As String = row.Cells(0).Value
|
||||
Dim replacement As String = row.Cells(1).Value
|
||||
|
||||
connectionString = ClassFormFunctions.GetConnectionString(conid)
|
||||
If connectionString <> "" Then
|
||||
If connectionString.Contains("Initial Catalog=") Then
|
||||
Dim sqlCnn As SqlClient.SqlConnection
|
||||
Dim sqlCmd As SqlClient.SqlCommand
|
||||
Dim adapter As New SqlClient.SqlDataAdapter
|
||||
Dim NewDataset As New DataSet
|
||||
sqlCnn = New SqlClient.SqlConnection(connectionString)
|
||||
sqlCnn.Open()
|
||||
sqlCmd = New SqlClient.SqlCommand(sql_Vorschlag, sqlCnn)
|
||||
adapter.SelectCommand = sqlCmd
|
||||
adapter.Fill(NewDataset)
|
||||
Dim msg As String
|
||||
For i = 0 To NewDataset.Tables(0).Rows.Count - 1
|
||||
msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine
|
||||
If i = 30 Then
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
adapter.Dispose()
|
||||
sqlCmd.Dispose()
|
||||
sqlCnn.Close()
|
||||
MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
|
||||
|
||||
ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains(";Persist Security Info=True;User Id=") Then
|
||||
Dim sqlCnn As OracleConnection
|
||||
Dim sqlCmd As OracleCommand
|
||||
Dim adapter As OracleDataAdapter
|
||||
Dim NewDataset As DataSet
|
||||
sqlCnn = New OracleConnection(connectionString)
|
||||
' Try
|
||||
sqlCnn.Open()
|
||||
sqlCmd = New OracleCommand(sql_Vorschlag, sqlCnn)
|
||||
adapter.SelectCommand = sqlCmd
|
||||
adapter.Fill(NewDataset)
|
||||
Dim msg As String
|
||||
For i = 0 To NewDataset.Tables(0).Rows.Count - 1
|
||||
msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine
|
||||
If i = 30 Then
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
adapter.Dispose()
|
||||
sqlCmd.Dispose()
|
||||
sqlCnn.Close()
|
||||
MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
|
||||
' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen
|
||||
If Not String.IsNullOrEmpty(replacement) Then
|
||||
query = query.Replace(placeholder, replacement)
|
||||
Else
|
||||
MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung")
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, MyConnectionString, True)
|
||||
Dim dt As DataTable
|
||||
If typeCS.Length > 0 Then
|
||||
Dim CS As String
|
||||
CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
|
||||
If typeCS.ToUpper = "Oracle".ToUpper Then
|
||||
dt = ClassDatabase.Oracle_Return_Datatable(query, CS, True)
|
||||
Else
|
||||
dt = ClassDatabase.Return_Datatable_CS(query, CS, True)
|
||||
End If
|
||||
Else
|
||||
MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
|
||||
If Not IsNothing(dt) Then
|
||||
If dt.Rows.Count = 1 Then
|
||||
MsgBox("Es wurde genau 1 Datensatz zurückgegeben!", MsgBoxStyle.Information)
|
||||
End If
|
||||
CURRENT_SQLRESULT = sql_command
|
||||
DTSQL_RESULT = dt
|
||||
frmSQL_Result.ShowDialog()
|
||||
End If
|
||||
|
||||
'If ds IsNot Nothing Then
|
||||
' dgvResult.DataSource = ds.Tables(0)
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
'Try
|
||||
' Dim connectionString As String
|
||||
|
||||
' Dim i As Integer
|
||||
|
||||
' connectionString = ClassFormFunctions.GetConnectionString(conid)
|
||||
' If connectionString <> "" Then
|
||||
' If connectionString.Contains("Initial Catalog=") Then
|
||||
' Dim sqlCnn As SqlClient.SqlConnection
|
||||
' Dim sqlCmd As SqlClient.SqlCommand
|
||||
' Dim adapter As New SqlClient.SqlDataAdapter
|
||||
' Dim NewDataset As New DataSet
|
||||
' sqlCnn = New SqlClient.SqlConnection(connectionString)
|
||||
' sqlCnn.Open()
|
||||
' sqlCmd = New SqlClient.SqlCommand(sql_Vorschlag, sqlCnn)
|
||||
' adapter.SelectCommand = sqlCmd
|
||||
' adapter.Fill(NewDataset)
|
||||
' Dim msg As String
|
||||
' For i = 0 To NewDataset.Tables(0).Rows.Count - 1
|
||||
' msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine
|
||||
' If i = 30 Then
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
' adapter.Dispose()
|
||||
' sqlCmd.Dispose()
|
||||
' sqlCnn.Close()
|
||||
' MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
|
||||
|
||||
' ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains(";Persist Security Info=True;User Id=") Then
|
||||
' Dim sqlCnn As OracleConnection
|
||||
' Dim sqlCmd As OracleCommand
|
||||
' Dim adapter As OracleDataAdapter
|
||||
' Dim NewDataset As DataSet
|
||||
' sqlCnn = New OracleConnection(connectionString)
|
||||
' ' Try
|
||||
' sqlCnn.Open()
|
||||
' sqlCmd = New OracleCommand(sql_Vorschlag, sqlCnn)
|
||||
' adapter.SelectCommand = sqlCmd
|
||||
' adapter.Fill(NewDataset)
|
||||
' Dim msg As String
|
||||
' For i = 0 To NewDataset.Tables(0).Rows.Count - 1
|
||||
' msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine
|
||||
' If i = 30 Then
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
' adapter.Dispose()
|
||||
' sqlCmd.Dispose()
|
||||
' sqlCnn.Close()
|
||||
' MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
|
||||
' End If
|
||||
' Else
|
||||
' MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation)
|
||||
' End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:")
|
||||
@@ -68,14 +117,25 @@ Public Class SQLConfigAutoIndex
|
||||
End Sub
|
||||
|
||||
Private Sub frmSQLSuggestion_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
|
||||
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_AUTOM WHERE GUID = " & CURRENT_INDEXAUTO)
|
||||
If DT.Rows.Count = 1 Then
|
||||
Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID")
|
||||
SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT")
|
||||
End If
|
||||
Try
|
||||
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
|
||||
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_AUTOM WHERE GUID = " & CURRENT_INDEXAUTO)
|
||||
If DT.Rows.Count = 1 Then
|
||||
Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID")
|
||||
SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT")
|
||||
End If
|
||||
Try
|
||||
Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, CURRENT_DOKART_ID)
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Manual Indices:")
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in LoadFormData:")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
@@ -93,10 +153,10 @@ Public Class SQLConfigAutoIndex
|
||||
Dim insresultstring = SQL_ERGEBNISTextBox.Text.Replace("'", "''")
|
||||
If insresultstring <> origresultstring Then
|
||||
Dim cmd As String
|
||||
cmd = "UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',CHANGED_WHO = '" & _
|
||||
cmd = "UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = " & cmbConnection.SelectedValue & ", SQL_RESULT = '" & insresultstring & "', CHANGED_WHO = '" & _
|
||||
Environment.UserName & "' WHERE GUID = " & CURRENT_INDEXAUTO
|
||||
If ClassDatabase.Execute_non_Query(cmd, True) = True Then
|
||||
lblSave.Text = "SQL-Daten erfolgreich gespeichert - " & Now
|
||||
lblSave.Text = "SQL-Daten gespeichert - " & Now
|
||||
Me.lblSave.Visible = True
|
||||
Else
|
||||
Me.lblSave.Visible = False
|
||||
@@ -117,4 +177,194 @@ Public Class SQLConfigAutoIndex
|
||||
e.Handled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnaddManualIdx_Click(sender As Object, e As EventArgs) Handles btnaddManualIdx.Click
|
||||
If cmbManualIDX.SelectedIndex <> -1 Then
|
||||
If Not cmbManualIDX.Text = String.Empty Then
|
||||
Dim placeholder As String = "[%" & cmbManualIDX.Text & "]"
|
||||
SQL_ERGEBNISTextBox.Text = SQL_ERGEBNISTextBox.Text.Insert(CurrentPosition, placeholder)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Dim AtPlaceholderPattern As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
|
||||
|
||||
Private Sub SQL_ERGEBNISTextBox_KeyUp(sender As Object, e As KeyEventArgs) Handles SQL_ERGEBNISTextBox.KeyUp
|
||||
CurrentPosition = SQL_ERGEBNISTextBox.SelectionStart
|
||||
End Sub
|
||||
|
||||
Private Sub SQL_ERGEBNISTextBox_MouseUp(sender As Object, e As MouseEventArgs) Handles SQL_ERGEBNISTextBox.MouseUp
|
||||
CurrentPosition = SQL_ERGEBNISTextBox.SelectionStart
|
||||
End Sub
|
||||
Private Sub SQL_ERGEBNISTextBox_TextChanged(sender As Object, e As EventArgs) Handles SQL_ERGEBNISTextBox.TextChanged
|
||||
CurrentPosition = SQL_ERGEBNISTextBox.SelectionStart
|
||||
If SQL_ERGEBNISTextBox.Text.Trim().Count = 0 Then
|
||||
dgvPlaceholders.Enabled = False
|
||||
Else
|
||||
dgvPlaceholders.Enabled = True
|
||||
End If
|
||||
CheckForPlaceholders()
|
||||
End Sub
|
||||
Public Property Value() As String
|
||||
Get
|
||||
Return SQL_ERGEBNISTextBox.Text
|
||||
End Get
|
||||
Set(value As String)
|
||||
SQL_ERGEBNISTextBox.Text = value
|
||||
End Set
|
||||
End Property
|
||||
Private Sub CheckForPlaceholders()
|
||||
Dim count As Integer = 0
|
||||
Dim text As String = Me.Value
|
||||
Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase)
|
||||
Dim matches As MatchCollection = atPlaceholderRegex.Matches(text)
|
||||
|
||||
dgvPlaceholders.Rows.Clear()
|
||||
|
||||
For Each match As Match In matches
|
||||
dgvPlaceholders.Rows.Add({match.Value, ""})
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub cmbSelectConditions_Changed(sender As Object, e As EventArgs) Handles cmbSelectColumns.SelectedIndexChanged, cmbFromTables.SelectedIndexChanged, cmbWhereColumns.SelectedIndexChanged, cmbWhereOperator.SelectedIndexChanged, txtCondition.TextChanged
|
||||
Try
|
||||
Dim sql = ""
|
||||
Dim column, table, column2, op, condition As String
|
||||
Dim isNumberRegex = New Regex("^\d+$")
|
||||
|
||||
column = cmbSelectColumns.Text
|
||||
table = cmbFromTables.Text
|
||||
column2 = cmbWhereColumns.Text
|
||||
op = cmbWhereOperator.Text
|
||||
condition = txtCondition.Text
|
||||
|
||||
If column <> "" And table <> "" Then
|
||||
sql = String.Format("SELECT [{0}] FROM [{1}]", column, table)
|
||||
|
||||
If column2 <> "" And op <> "" And condition <> "" Then
|
||||
|
||||
If isNumberRegex.Match(condition).Success = False Then
|
||||
condition = String.Format("'{0}'", condition)
|
||||
End If
|
||||
|
||||
sql &= String.Format(" WHERE [{0}] {1} {2}", column2, op, condition)
|
||||
ElseIf column2 <> "" And op <> "" And condition = "" Then
|
||||
sql &= String.Format(" WHERE [{0}] {1}", column2, op)
|
||||
ElseIf column2 <> "" And op = "" And condition = "" Then
|
||||
sql &= String.Format(" WHERE '{0}'", column2)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
SQL_ERGEBNISTextBox.Text = sql
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in cmbSelectConditions_Changed:")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub radioTable_CheckedChanged(sender As Object, e As EventArgs) Handles radioTable.CheckedChanged
|
||||
If radioTable.Checked Then
|
||||
CurrentTableType = "TABLE"
|
||||
End If
|
||||
EnableTables()
|
||||
End Sub
|
||||
|
||||
Private Sub radioView_CheckedChanged(sender As Object, e As EventArgs) Handles radioView.CheckedChanged
|
||||
If radioView.Checked Then
|
||||
CurrentTableType = "VIEW"
|
||||
End If
|
||||
EnableTables()
|
||||
End Sub
|
||||
Private Sub cmbFromTables_SelectedIndexChanged() Handles cmbFromTables.SelectedIndexChanged
|
||||
If cmbFromTables.Text <> "" Then
|
||||
EnableColumns()
|
||||
Else
|
||||
EnableColumns(False)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub EnableTables()
|
||||
cmbFromTables.Enabled = True
|
||||
End Sub
|
||||
Private Sub EnableColumns(Optional enabled = True)
|
||||
cmbSelectColumns.Enabled = enabled
|
||||
cmbWhereColumns.Enabled = enabled
|
||||
End Sub
|
||||
Private Sub cmbTables_DropDown(sender As Object, e As EventArgs) Handles cmbFromTables.DropDown
|
||||
Try
|
||||
Dim type As String
|
||||
|
||||
If CurrentTableType = "TABLE" Then
|
||||
type = "'BASE TABLE'"
|
||||
ElseIf CurrentTableType = "VIEW" Then
|
||||
type = "'VIEW'"
|
||||
End If
|
||||
|
||||
Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, MyConnectionString, True)
|
||||
Dim dt As DataTable
|
||||
If typeCS.Length > 0 Then
|
||||
Dim SQL As String = "SELECT TABLE_NAME from information_schema.tables where TABLE_TYPE = " & type & " ORDER BY TABLE_NAME"
|
||||
Dim CS As String
|
||||
CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
|
||||
If typeCS.ToUpper = "Oracle".ToUpper Then
|
||||
|
||||
|
||||
If type = "'VIEW'" Then
|
||||
'DB-Abfrage für alle Views definieren
|
||||
SQL = "select VIEW_NAME from USER_VIEWS"
|
||||
Else
|
||||
'DB-Abfrage für alle Tables definieren
|
||||
SQL = "select TABLE_NAME from USER_TABLES"
|
||||
End If
|
||||
dt = ClassDatabase.Oracle_Return_Datatable(SQL, CS, True)
|
||||
Else
|
||||
SQL = "SELECT TABLE_NAME from information_schema.tables where TABLE_TYPE = " & type & " ORDER BY TABLE_NAME"
|
||||
dt = ClassDatabase.Return_Datatable_CS(SQL, CS, True)
|
||||
End If
|
||||
If dt IsNot Nothing Then
|
||||
cmbFromTables.Items.Clear()
|
||||
For Each row As DataRow In dt.Rows
|
||||
cmbFromTables.Items.Add(row.Item(0))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in cmbTables_DropDown:")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub cmbColumns_DropDown(sender As Object, e As EventArgs) Handles cmbSelectColumns.DropDown
|
||||
Dim table = cmbFromTables.Text
|
||||
GetColumns(table, cmbSelectColumns)
|
||||
End Sub
|
||||
Private Sub GetColumns(tableName As String, ByRef combobox As ComboBox)
|
||||
Try
|
||||
Dim CS As String
|
||||
CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
|
||||
Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, MyConnectionString, True)
|
||||
Dim SQL As String
|
||||
Dim DT As DataTable
|
||||
If typeCS.ToUpper = "Oracle".ToUpper Then
|
||||
SQL = "select COLUMN_NAME from USER_TAB_COLS where TABLE_NAME='" & tableName & "' order by COLUMN_NAME"
|
||||
DT = ClassDatabase.Oracle_Return_Datatable(SQL, CS, True)
|
||||
Else
|
||||
SQL = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY name"
|
||||
DT = ClassDatabase.Return_Datatable_CS(SQL, CS, True)
|
||||
End If
|
||||
|
||||
If DT IsNot Nothing Then
|
||||
combobox.Items.Clear()
|
||||
For Each row As DataRow In DT.Rows
|
||||
combobox.Items.Add(row.Item(0))
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetColumns:")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cmbWhereColumns_DropDown(sender As Object, e As EventArgs) Handles cmbWhereColumns.DropDown
|
||||
Dim table = cmbFromTables.Text
|
||||
GetColumns(table, cmbWhereColumns)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user