MS 2.3.0.4

This commit is contained in:
2022-03-16 15:48:18 +01:00
parent 6c4fac05e8
commit 3ea6171c4f
28 changed files with 445 additions and 366 deletions

View File

@@ -7,7 +7,7 @@ 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 = Database_ECM.GetDatatable(txtSQL.Text) ', "btnrunSQL_Click")
Dim dt As DataTable = DatabaseFallback.GetDatatableECM(txtSQL.Text) ', "btnrunSQL_Click")
If Not dt Is Nothing Then
XtraTabControl1.SelectedTabPageIndex = 1
BindingSource1.DataSource = dt