AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Release

Browse Source
This commit is contained in:
SchreiberM
2021-09-07 16:35:17 +02:00
parent d5aeb55704
commit 1f392ca41b
51 changed files with 6881 additions and 1404 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@@ -9,7 +9,7 @@ Public Class ClassDatabase
Dim connectionString As String = ""
Try
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id, "Get_ConnectionString")
Dim DTConnection As DataTable = Database_ECM.GetDatatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
If DTConnection.Rows.Count = 1 Then
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
Case "MS-SQL"
@@ -47,7 +47,7 @@ Public Class ClassDatabase
Public Shared Function Init(Optional ConString As String = "")
Try
If ConString = String.Empty Then
SQLSERVERConnectionString = CONNECTION_STRING
SQLSERVERConnectionString = CONNECTION_STRING_ECM
End If
Dim SQLconnect As New SqlClient.SqlConnection
@@ -65,7 +65,7 @@ Public Class ClassDatabase
If ConString <> String.Empty Then
LOGGER.Info($"Error initializing Database [{ConString}] " & ex.Message, True)
Else
LOGGER.Info($"Error initializing Database [{CONNECTION_STRING}] " & ex.Message, True)
LOGGER.Info($"Error initializing Database [{CONNECTION_STRING_ECM}] " & ex.Message, True)
End If
Return False