QTP - Accès aux bases de données

En tant que tel, QTP ne fournit aucune prise en charge intégrée pour se connecter à la base de données, mais en utilisant VBScript, les testeurs pourront se connecter et interagir avec des bases de données à l'aide d'objets ADODB.

ADODB a 4 propriétés ou méthodes avec lesquelles nous pourrons travailler avec les bases de données. Ils sont -

  • ADODB.Connection - Utilisé pour établir une connexion à la base de données

  • ADODB.Command - Utilisé pour exécuter une commande SQL (requêtes ou procédures stockées)

  • ADODB.Fields - Utilisé pour récupérer une colonne particulière d'un jeu d'enregistrements après l'exécution d'une requête / procédure stockée

  • ADODB.Recordset - Utilisé pour récupérer les données d'une base de données

Comment se connecter à la base de données?

Les bases de données peuvent être connectées à l'aide de chaînes de connexion. Chaque base de données diffère dans la façon dont nous nous y connectons. Cependant, les chaînes de connexion peuvent être construites à l'aide de www.connectionstrings.com

Voyons comment se connecter à la base de données avec les paramètres suivants -

  • Database Type - SERVEUR MSSQL

  • Server Name - SQLEXPRESS

  • Database Name - Essai

  • User Id - sa

  • password - Mot de passe123

La sortie de la requête est affichée dans SQL Server Management Studio comme suit -

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

Résultat

Lors de l'exécution du script ci-dessus, la sortie est affichée dans la boîte de message comme indiqué ci-dessous -