Verbindung zu Sql Datanbank
14.04.2022 09:09:27
Alex
Wieder einmal stehe ich mit einer Verbindungszeichenfolge vor der Türe!
Alle im "Sub" benutzten Elemente des ConnectionString entsprechen den Tatsachen und können 1:1 getestet werden.
Sub dataAccess()
Dim con As ADODB.Connection
Set con = New ADODB.Connection
On Error GoTo ErrConnection
' con.ConnectionString = "Provider = MSOLEDBSQL; " & _
' "Server = server05.hostfactory.ch,1435; " & _
' "Inital Catalog = CL30210_TKT; " & _
' "User Id = TschanzKT; " & _
' "Password = st22_KtAf%"
' con.ConnectionString = "Provider = MSOLEDBSQL; " & _
' "Server = server05.hostfactory.ch,1435; " & _
' "Data Source = CL30210_TKT; " & _
' "User Id = TschanzKT; " & _
' "Password = st22_KtAf%"
' con.ConnectionString = "Provider = MSOLEDBSQL; " & _
' "Server = server05.hostfactory.ch,1435; " & _
' "Data Source = CL30210_TKT; " & _
' "UID = TschanzKT; " & _
' "PWD = st22_KtAf%"
con.ConnectionString = "Provider = MSOLEDBSQL; " & _
"Server = server05.hostfactory.ch,1435; " & _
"Inital Catalog = CL30210_TKT; " & _
"UID = TschanzKT; " & _
"PWD = st22_KtAf%"
con.Open
Debug.Print "Erfolg"
con.Close
ErrConnection:
If (Err) Then Debug.Print Err.Description & vbNewLine & con.ConnectionString
Set con = Nothing
End Sub
Mir fällt im mometn nichts mehr auf, wo ein Attribut des ConnectionStrings fehlerhaft sein könnte!
Wie muss der ConnectionsString aussehen, damit ich die Verbindung zur Datenbank aufbauen kann?
Gruss Alex