Remove ClassDatabase, Replace with Database.MSSQL Module

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

View File

@@ -28,7 +28,7 @@
Private Sub frmNamenkonvention_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = DATABASE_ECM.GetDatatable(sql)
For Each row As DataRow In DT.Rows
FILE_DELIMITER = row.Item("FILE_DELIMITER")
VERSION_DELIMITER = row.Item("VERSION_DELIMITER")