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

2
Global_Indexer/ClassFormFunctions.vb
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

4114
Global_Indexer/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

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;"