MS_10.11.2015

This commit is contained in:
SchreiberM
2015-11-10 09:41:29 +01:00
parent 317a223c68
commit 2aa4e4ba58
15 changed files with 141 additions and 125 deletions

View File

@@ -4,7 +4,7 @@
Try
Dim con As String
If chkbxUserAut.Checked Then
con = "Data Source=" & Me.txtServer.Text & ";Initial Catalog=" & Me.cmbDatenbank.Text & ";Trusted_Connection=True;"
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";Trusted_Connection=True;"
Else
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
End If