MS_Initial

Global_Indexer/frmSQL_Admin.vb

@@ -0,0 +1,87 @@
+Imports System
+Imports System.IO
+Imports System.Collections
+
+Public Class frmSQL_Admin
+
+    Private Sub btnrunSQL_Click(sender As Object, e As EventArgs) Handles btnrunSQL.Click
+
+        If txtSQL.Text <> "" Then
+            If txtSQL.Text.ToLower.StartsWith("select") Then
+                Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text, True)
+                If Not dt Is Nothing Then
+                    If dt.Rows.Count > 0 Then
+                        XtraTabControl1.SelectedTabPageIndex = 1
+                        BindingSource1.DataSource = dt
+                    End If
+                End If
+            Else
+                Dim result As MsgBoxResult = MsgBox("Bitte bestätigen Sie das Ausführen des SQL-Befehls?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
+                ' wenn Speichern ja
+                If result = MsgBoxResult.Yes Then
+                    Try
+                        Me.Cursor = Cursors.WaitCursor
+
+                        Dim connection As New SqlClient.SqlConnection(MyConnectionString) 'csb.ConnectionString)
+                        connection.Open()
+                        Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection)
+                        cmd.ExecuteNonQuery()
+                        MsgBox("Der SQL-Befehl wurde erfolgreich ausgeführt!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                        connection.Close()
+                    Catch ex As Exception
+                        MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:")
+                    End Try
+                    Cursor = Cursors.Default
+                End If
+            End If
+        End If
+
+        
+    End Sub
+    Sub Load_ConString(constr As String)
+        Dim csb As New SqlClient.SqlConnectionStringBuilder
+        csb.ConnectionString = MyConnectionString
+        constr = constr.Replace(csb.Password, "XXXXX")
+        Me.TextBox1.Text = constr
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Try
+            With OpenFileDialog1
+                ' Do
+              
+                .Title = "Wählen Sie bitte die SQL-File:"
+                If .ShowDialog() = DialogResult.OK Then
+                    Dim FILE_NAME As String = .FileName
+                    Dim objReader As New System.IO.StreamReader(FILE_NAME)
+                    txtSQL.Text = objReader.ReadToEnd
+                    objReader.Close()
+                End If
+            End With
+          
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei open-File:")
+        End Try
+      
+    End Sub
+
+    Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Load_ConString(MyConnectionString)
+    End Sub
+
+    Private Sub txtSQL_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtSQL.KeyPress
+        If e.KeyChar = Convert.ToChar(1) Then
+            DirectCast(sender, TextBox).SelectAll()
+            e.Handled = True
+        End If
+    End Sub
+
+    Private Sub GridView1_KeyDown(sender As Object, e As KeyEventArgs) Handles GridView1.KeyDown
+        If e.Control AndAlso e.KeyCode = Keys.C Then
+            If GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn) IsNot Nothing AndAlso GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn).ToString() <> String.Empty Then
+                Clipboard.SetText(GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn).ToString())
+            Else
+                MsgBox("The value in the selected cell is null or empty!", MsgBoxStyle.Information)
+            End If
+        End If
+    End Sub
+End Class