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 -
![](https://assets.edu.lat/qtp/images/qtp_accessing_db1.jpg)
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 -
![](https://assets.edu.lat/qtp/images/qtp_accessing_db2.jpg)