MS2909
This commit is contained in:
@@ -10,10 +10,8 @@ Public Class frmSQL_Admin
|
||||
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
|
||||
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:")
|
||||
@@ -36,7 +34,7 @@ Public Class frmSQL_Admin
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Sub Load_ConString(constr As String)
|
||||
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
|
||||
Reference in New Issue
Block a user