Remove ClassDatabase, Replace with Database.MSSQL Module

2021-09-22 16:33:24 +02:00
parent 01e0a9dcf8
commit 7e28e072df
27 changed files with 214 additions and 314 deletions
--- a/Global_Indexer/frmSQL_Admin.vb
+++ b/Global_Indexer/frmSQL_Admin.vb
@@ -8,7 +8,7 @@ Public Class frmSQL_Admin

        If txtSQL.Text <> "" Then
            If txtSQL.Text.ToLower.StartsWith("select") Then
-                Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text, True)
+                Dim dt As DataTable = DATABASE_ECM.GetDatatable(txtSQL.Text)
                If Not dt Is Nothing Then
                    XtraTabControl1.SelectedTabPageIndex = 1
                    BindingSource1.DataSource = dt