AppStd/RecordOrganizer
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-13 10:30:32 +02:00
parent 8103f5d055
commit 2d11c3a677
14 changed files with 1303 additions and 1621 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organizer/frmConnections.vb
View File

@@ -47,7 +47,7 @@ Public Class frmConnections
CheckBoxwin_aut.Visible = False
chkOR_ohne_TNS.Visible = False
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
cmbDatabase.Items.Clear()
' DATABASETextBox.Visible = False
Me.lblServer.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
@@ -148,7 +148,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 = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbDatabase.Text & ";Trusted_Connection=True;"
@@ -235,7 +235,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 = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbDatabase.Text & ";Trusted_Connection=True;"
@@ -292,7 +292,7 @@ Public Class frmConnections
Private Sub TBDD_CONNECTIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.CurrentChanged
Me.lblSave.Visible = False
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
cmbDatabase.Items.Clear()
cmbDatabase.Items.Add(DATABASETextBox.Text)
cmbDatabase.SelectedIndex = 0
@@ -302,7 +302,7 @@ Public Class frmConnections
Private Sub frmConnections_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
cmbDatabase.Items.Clear()
cmbDatabase.Items.Add(DATABASETextBox.Text)
cmbDatabase.SelectedIndex = 0