Remove ClassDatabase, Replace with Database.MSSQL Module
This commit is contained in:
@@ -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")
|
||||
|
||||
Reference in New Issue
Block a user