MS DDGroups

This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-12 16:02:38 +02:00
parent 7b445c8d36
commit 4e478db15f
29 changed files with 4442 additions and 2640 deletions

View File

@@ -39,7 +39,7 @@ Public Class frmConnections
chkOR_ohne_TNS.Visible = False
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
If USER_LANGUAGE = "de-DE" Then
Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
Me.lblInitialCatalog.Text = "Datenbank-Name:"
@@ -128,7 +128,7 @@ Public Class frmConnections
Cursor = Cursors.WaitCursor
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
Dim con As String
If CheckBoxwin_aut.Checked Then
con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
@@ -209,7 +209,7 @@ Public Class frmConnections
If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
Dim con As String
If CheckBoxwin_aut.Checked Then
con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"