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/ClassFilehandle.vb
+++ b/Global_Indexer/ClassFilehandle.vb
@@ -219,7 +219,7 @@ Public Class ClassFilehandle

            Dim filename_only As String = Path.GetFileName(filename)
            Dim ins As String = $"INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH) VALUES ('{filename}','{Environment.UserName}','{handleType}','{filename_only}', '{oHash}')"
-            Return ClassDatabase.Execute_non_Query(ins, True)
+            Return DATABASE_ECM.ExecuteNonQuery(ins)

        Catch ex As Exception
            Return False