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
                    XtraTabControl1.SelectedTabPageIndex = 1
                    BindingSource1.DataSource = dt
                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, "Unexpected error in 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, "Unexpected error in 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