QTP - Accessing Databases



As such, QTP does not provide any built-in support to connect to database, however using VBScript testers will be able to connect and interact with databases using ADODB objects.

ADODB has 4 properties or methods with which we will be able to work with the databases. They are −

  • ADODB.Connection − Used to establish a connection to the Database

  • ADODB.Command − Used to execute a SQL command(Queries or Stored Procedures)

  • ADODB.Fields − Used to fetch a particular column from a record set after executing a query/stored proc

  • ADODB.Recordset − Used to fetch data from a database

How to connect to Database?

Databases can be connected using Connection strings. Each database differs in the way we connect to them. However, the connection strings can be built with the help of www.connectionstrings.com

Let us see how to connect to the database with the following parameters −

  • Database Type − MSSQL SERVER

  • Server Name − SQLEXPRESS

  • Database Name − Trial

  • User Id − sa

  • password − Password123

The output of the Query is shown in the SQL Server Management Studio as follows −

Accessing Database

Dim objConnection 
'Set Adodb Connection Object
Set objConnection = CreateObject("ADODB.Connection")     
Dim objRecordSet 
 
'Create RecordSet Object
Set objRecordSet = CreateObject("ADODB.Recordset")     
 
Dim DBQuery 'Query to be Executed
DBQuery = "Select NAME from dbo.EMPLOYEE where AGE = 29"
 
'Connecting using SQL OLEDB Driver
objConnection.Open "Provider = sqloledb.1;Server =.\SQLEXPRESS;
User Id = sa;Password=Password123;Database = Trial"
 
'Execute the Query
objRecordSet.Open DBQuery,objConnection
 
'Return the Result Set
Value = objRecordSet.fields.item(0)				
msgbox Value
 
' Release the Resources
objRecordSet.Close        
objConnection.Close		
 
Set objConnection = Nothing
Set objRecordSet = Nothing

Result

On executing the above script, the output is shown in the message box as shown below −

Accessing Database 2
Advertisements