Remove ClassFormFunctions, switch to Database Module for getting connection string from connection id
This commit is contained in:
@@ -142,7 +142,7 @@ Public Class frmIndex
|
||||
If DR.Item("SQL_CHECK").ToString <> String.Empty Then
|
||||
Dim connectionString As String
|
||||
Dim sql As String
|
||||
connectionString = ClassFormFunctions.GetConnectionString(DR.Item("CONNECTION_ID"))
|
||||
connectionString = DATABASE_ECM.Get_ConnectionStringforID(DR.Item("CONNECTION_ID"))
|
||||
If connectionString <> "" Then
|
||||
Dim sqlscalar = DR.Item("SQL_CHECK")
|
||||
Select Case DR.Item("DATENTYP")
|
||||
@@ -283,7 +283,7 @@ Public Class frmIndex
|
||||
Function GetAutomaticIndexSQLValue(SQLCommand As String, vconnectionID As Integer, vProvider As String) As String
|
||||
Try
|
||||
Dim oConnectionString As String
|
||||
oConnectionString = ClassFormFunctions.GetConnectionString(vconnectionID)
|
||||
oConnectionString = DATABASE_ECM.Get_ConnectionStringforID(vconnectionID)
|
||||
If oConnectionString <> "" Then
|
||||
'NEU
|
||||
Dim oErgebnis
|
||||
@@ -1992,7 +1992,7 @@ Public Class frmIndex
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oConnectionString = ClassFormFunctions.GetConnectionString(SqlConnectionId)
|
||||
Dim oConnectionString = DATABASE_ECM.Get_ConnectionStringforID(SqlConnectionId)
|
||||
'Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SqlCommand, oConnectionString)
|
||||
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(SqlCommand)
|
||||
Dim oFoundControl As Control = Nothing
|
||||
@@ -2725,7 +2725,7 @@ Public Class frmIndex
|
||||
ClearNotice()
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
ClassHelper.Refresh_RegexTable()
|
||||
CURRENT_DT_REGEX = DATABASE_ECM.GetDatatable("SELECT * FROM TBGI_FUNCTION_REGEX")
|
||||
For Each rowregex As DataRow In CURRENT_DT_REGEX.Rows
|
||||
If rowregex.Item("FUNCTION_NAME") = "CLEAN_FILENAME" Then
|
||||
REGEX_CLEAN_FILENAME = rowregex.Item("REGEX")
|
||||
|
||||
Reference in New Issue
Block a user