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/ClassIndexFunctions.vb
+++ b/Global_Indexer/ClassIndexFunctions.vb
@@ -33,7 +33,8 @@ Public Class ClassIndexFunctions

            'If oResult.Rows.Count = 0 Then
            oSQL = "SELECT * FROM TBGI_HISTORY WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') ORDER BY ADDED_WHEN"
-            Dim oResult = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+            'Dim oResult = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+            Dim oResult = DATABASE_ECM.GetDatatable(oSQL)

            If oResult Is Nothing Then
                Return Nothing