Remove ClassFormFunctions, switch to Database Module for getting connection string from connection id

This commit is contained in:
Jonathan Jenne
2021-09-23 12:08:53 +02:00
parent 66039f22d8
commit d31ba427e2
9 changed files with 11 additions and 252 deletions

View File

@@ -229,7 +229,7 @@ Public Class ClassControls
Dim cmb As ComboBox = ctrl
Dim sql As String = sql_result.ToString.ToUpper.Replace("@" & SearchString.ToUpper, Resultvalue)
connectionString = ClassFormFunctions.GetConnectionString(conid)
connectionString = DATABASE_ECM.Get_ConnectionStringforID(conid)
If connectionString Is Nothing = False Then
'SQL Befehl füllt die Auswahlliste
@@ -436,7 +436,7 @@ Public Class ClassControls
Exit Sub
End If
Dim oConnectionString = ClassFormFunctions.GetConnectionString(SqlConnectionId)
Dim oConnectionString = DATABASE_ECM.Get_ConnectionStringforID(SqlConnectionId)
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(SqlCommand)
Dim oFoundControl As Control = Nothing