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

ms

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

6
Global_Indexer/frmConnections.vb
View File

@@ -39,7 +39,7 @@ Public Class frmConnections
chkOR_ohne_TNS.Visible = False
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQL"
Case ("MS-SQL".ToUpper Or "MS-SQLServer".ToUpper)
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-SQL"
Case ("MS-SQL".ToUpper Or "MS-SQLServer".ToUpper)
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-SQL"
Case ("MS-SQL".ToUpper Or "MS-SQLServer".ToUpper)
Dim con As String
If CheckBoxwin_aut.Checked Then
con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"