• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Database Connection

Database Connection

Database Connection

Rate Database Connection

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

                                ByVal Driver As String, _
                                ByVal DB_name As String, _
                                ByVal Host As String, _
                                ByVal Server_Name As String, _
                                ByVal User As String, _
                                ByVal Pass As String, _
                                ByVal Serv As String, _
                                ByVal Pro As String) As adodb.Connection
                                
                                
    Dim DataConn As adodb.Connection
    Set DataConn = New adodb.Connection
    
    Dim strConnectString As String
    
    On Error GoTo errHandler
    
    ' Create and establish data connection
    Set DataConn = New adodb.Connection
    DataConn.ConnectionTimeout = 15
    DataConn.CommandTimeout = 30
     
    'Access connection code
    strConnectString = "Provider=" & Provider & ";" & _
                        "DRIVER={" & Driver & "};" & _
                        "DB=" & DB_name & ";" & _
                        "HOST=" & Server_Name & ";" & _
                        "SRVR=" & Server_Name & ";" & _
                        "UID=" & User & ";" & _
                        "PWD=" & Pass & ";" & _
                        "SERV=" & Serv & ";" & _
                        "PRO=" & Pro & ";" & _
                        "OLE DB Services = -4;"
    
    'Open Connection
    DataConn.Open strConnectString
    
    'Return connection object to calling procedure.
    Set GetConnection = DataConn
    Set DataConn = Nothing
    
    Exit Function
    
errHandler:
    MsgBox Err.Description
    Set DataConn = Nothing

End Function