To specify the connection string to a database, we use getDbsConString function. There are, at least, two variables to be set to specify the connection string. They are strProvider and strPassword. The strProvider variable specifies database provider to be employed, for example: the provider for MS Access database is MS Access. If the connection string has a password, then the strPassword variable must also be set. The result of getDbsConString function is a string value.
Following is the complete getDbsConString function:
Setting the strProvider and strPassword as follows:
Following is the complete getDbsConString function:
Function getDbsConString() As String Dim strProvider As String Dim strPassword, strPWD As String On Error GoTo Err_Msg strProvider = "MS ACCESS" strPassword = "" If strPassword <> "" Then strPWD = ";PWD=" & strPassword Else strPWD = "" getDbsConString = strProvider & strPWD Exit_Function: Exit Function Err_Msg: MsgBox "Function getDbsConString, Error # " & str(Err.Number) & ", source: " & Err.Source & _ Chr(13) & Err.description Resume Exit_Function End Function
Implementation:
Setting the strProvider and strPassword as follows:
strProvider = "MS ACCESS" strPassword = "abcd"we get the connection string as follows:
getDbsConString = strProvider & strPWD getDbsConString = "MS ACCESS;PWD=abcd"
Comments
Post a Comment