This commit is contained in:
SchreiberM
2015-09-29 12:16:23 +02:00
parent 379a63d9a8
commit 80247e18dd
31 changed files with 1808 additions and 524 deletions

View File

@@ -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