This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-18 08:46:30 +02:00
parent 17c8e08fda
commit 64f207fc2a
3 changed files with 1146 additions and 2976 deletions

View File

@@ -8,7 +8,7 @@ Public Class ClassFormFunctions
If DTConnection.Rows.Count = 1 Then
Dim CSType = DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
Select Case CSType
Case "MS-SQL".ToUpper
Case "MS-SQL".ToUpper Or "MS-SQLServer".ToUpper
If DTConnection.Rows(0).Item("USERNAME").ToString.ToLower = "winauth" Then
connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
Else