• Home
 · 
• Miscellaneous
 · 
• DSN-less logon to a SQL Server database

DSN-less logon to a SQL Server database

DSN-less logon to a SQL Server database

Rate DSN-less logon to a SQL Server database

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Purpose: Logon to SQL Server....
        Dim CN1 As New ADODB.Connection
        Dim sAdoConStr As String
        
        On Error GoTo LogonError
        
        sAdoConStr = "UID=SA" & _
                 ";PWD=" & _
                 ";Server=Server123" & _
                 ";Database=MyDataBase" & _
                 ";App=My Application Name"
        
        With CN1      ' Establish DSN-less connection
             .ConnectionString = sAdoConStr
             .ConnectionTimeout = 60
             .CommandTimeout = 60
             .CursorLocation = adUseClient
             .Provider = "SQLOLEDB"
             .Open
        End With
        
        GoTo LogonExit

LogonError:
        MsgBox "Please contact your Network or Database Administrator." & _
               "Inform them that you are unable to connect to the Server." & _
               vbCrLf & "The following Error number was generated: " & Err.Number & _
               vbCrLf & Err.Description, vbOKOnly + vbInformation, "LOGON ERROR"
        End
LogonExit:
End Sub