AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove ClassDatabase, Replace with Database.MSSQL Module

Browse Source
This commit is contained in:
Jonathan Jenne
2021-09-22 16:33:24 +02:00
parent 01e0a9dcf8
commit 7e28e072df
27 changed files with 214 additions and 314 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Global_Indexer/ClassDatatables.vb
View File

@@ -8,7 +8,7 @@
(DOCTYPE_ID, GROUP_ID, ADDED_WHO)
VALUES ({ProfileId}, {GroupId}, '{Environment.UserName}')
"
Return ClassDatabase.Execute_non_Query(oSQL, True)
Return DATABASE_ECM.ExecuteNonQuery(oSQL)
Catch ex As Exception
LOGGER.Error(ex)
Return False
@@ -18,7 +18,7 @@
Public Shared Function RemoveGroupFromProfile(GroupId As Integer, ProfileId As Integer) As Boolean
Try
Dim oSQL = $"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND GROUP_ID = {GroupId}"
Return ClassDatabase.Execute_non_Query(oSQL, True)
Return DATABASE_ECM.ExecuteNonQuery(oSQL)
Catch ex As Exception
LOGGER.Error(ex)
Return False
@@ -36,7 +36,7 @@
WHERE DOCTYPE_ID = {ProfileId}
)
"
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
Return oDatatable
Catch ex As Exception
@@ -56,7 +56,7 @@
WHERE DOCTYPE_ID = {ProfileId}
)
"
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
Return oDatatable
Catch ex As Exception
@@ -75,7 +75,7 @@
(DOCTYPE_ID, USER_ID, ADDED_WHO)
VALUES ({ProfileId}, {UserId}, '{Environment.UserName}')
"
Return ClassDatabase.Execute_non_Query(oSQL, True)
Return DATABASE_ECM.ExecuteNonQuery(oSQL)
Catch ex As Exception
LOGGER.Error(ex)
Return False
@@ -85,7 +85,7 @@
Public Shared Function RemoveUserFromProfile(UserId As Integer, ProfileId As Integer) As Boolean
Try
Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND USER_ID = {UserId}"
Return ClassDatabase.Execute_non_Query(oSQL, True)
Return DATABASE_ECM.ExecuteNonQuery(oSQL)
Catch ex As Exception
LOGGER.Error(ex)
Return False
@@ -102,7 +102,7 @@
WHERE DOCTYPE_ID = {ProfileId}
)
"
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
Return oDatatable
Catch ex As Exception
@@ -122,7 +122,7 @@
)
AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('GLOBIX', 1))
"
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
Return oDatatable
Catch ex As Exception