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

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

6
Global_Indexer/frmSQLConfigAutoIndex.vb
View File

@@ -30,7 +30,7 @@ Public Class SQLConfigAutoIndex
Dim dt As DataTable
If typeCS.Length > 0 Then
Dim CS As String
CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
CS = DATABASE_ECM.Get_ConnectionStringforID(cmbConnection.SelectedValue)
If typeCS.ToUpper = "Oracle".ToUpper Then
dt = ClassDatabase.Oracle_Return_Datatable(query, CS, True)
Else
@@ -326,7 +326,7 @@ Public Class SQLConfigAutoIndex
If typeCS.Length > 0 Then
Dim oSQL As String = "SELECT TABLE_NAME from information_schema.tables where TABLE_TYPE = " & type & " ORDER BY TABLE_NAME"
Dim CS As String
CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
CS = DATABASE_ECM.Get_ConnectionStringforID(cmbConnection.SelectedValue)
If typeCS.ToUpper = "Oracle".ToUpper Then
@@ -362,7 +362,7 @@ Public Class SQLConfigAutoIndex
Private Sub GetColumns(tableName As String, ByRef combobox As ComboBox)
Try
Dim CS As String
CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
CS = DATABASE_ECM.Get_ConnectionStringforID(cmbConnection.SelectedValue)
Dim typeCS As String = DATABASE_ECM.GetScalarValue("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue)
Dim SQL As String
Dim DT As DataTable