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 = NothingRé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 -
