QTP: acceso a bases de datos

Como tal, QTP no proporciona ningún soporte integrado para conectarse a la base de datos, sin embargo, los probadores de VBScript podrán conectarse e interactuar con bases de datos utilizando objetos ADODB.

ADODB dispone de 4 propiedades o métodos con los que podremos trabajar con las bases de datos. Ellos son -

  • ADODB.Connection - Se utiliza para establecer una conexión a la base de datos.

  • ADODB.Command - Se utiliza para ejecutar un comando SQL (consultas o procedimientos almacenados)

  • ADODB.Fields - Se utiliza para recuperar una columna en particular de un conjunto de registros después de ejecutar una consulta / proceso almacenado

  • ADODB.Recordset - Se utiliza para obtener datos de una base de datos.

¿Cómo conectarse a la base de datos?

Las bases de datos se pueden conectar mediante cadenas de conexión. Cada base de datos difiere en la forma en que nos conectamos a ellas. Sin embargo, las cadenas de conexión se pueden construir con la ayuda de www.connectionstrings.com

Veamos cómo conectarnos a la base de datos con los siguientes parámetros:

  • Database Type - SERVIDOR MSSQL

  • Server Name - SQLEXPRESS

  • Database Name - Prueba

  • User Id - sa

  • password - Contraseña123

El resultado de la consulta se muestra en SQL Server Management Studio de la siguiente manera:

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

Resultado

Al ejecutar el script anterior, la salida se muestra en el cuadro de mensaje como se muestra a continuación: