QTP Connection to Access DB

The below code illustrate the connection to Access Data Base.

Here we are using the class concept as it helps us to organize the code.

Class clsAccess

‘ @HELP

‘ @description: This class is defined to handle database operations.

‘ @END

Dim objConnection

Public Sub sub_ConnectToDatabase(strDBName,objConn)

‘ @HELP

‘ @class: clsAccess

‘ @method: sub_ConnectToDatabase()

‘ @returns: Returns state whether connection is established or not.

‘ @notes: This function is used to connect MS Access database.

‘ @END

Dim blnConnection

Set objConnection = CreateObject(“ADODB.Connection”)

objConnection.Open(“DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & strDBName)

blnConnection = objConnection.State

If blnConnection = 1 Then

Reporter.ReportEvent micPass, “Connection to Database”, “Connection to < “&strDBName& ” > is established. “

Set objConn = objConnection

Else

Reporter.ReportEvent micFail, “Connection to Database”, “Connection to < “&strDBName& ” > is not established. “

Exit Sub

End If

End Sub

‘————————————————————————————————————————————

Public Sub sub_DisconnectToDatabase()

‘ @HELP

‘ @class: clsAccess

‘ @method: sub_DisconnectToDatabase()

‘ @returns: None

‘ @notes: This function is used to disconnect the connection to the MS Access database.

‘ @END

objConnection.Close

End Sub

‘————————————————————————————————————————————

End Class

‘Set cls = New clsAccess