QTP - Zugriff auf Datenbanken

Aus diesem Grund bietet QTP keine integrierte Unterstützung für die Verbindung zur Datenbank. Mithilfe von VBScript-Testern können jedoch Datenbanken mithilfe von ADODB-Objekten verbunden und mit diesen interagiert werden.

ADODB verfügt über 4 Eigenschaften oder Methoden, mit denen wir mit den Datenbanken arbeiten können. Sie sind -

ADODB.Connection - Wird verwendet, um eine Verbindung zur Datenbank herzustellen
ADODB.Command - Wird verwendet, um einen SQL-Befehl auszuführen (Abfragen oder gespeicherte Prozeduren).
ADODB.Fields - Dient zum Abrufen einer bestimmten Spalte aus einem Datensatz nach dem Ausführen einer Abfrage / eines gespeicherten Prozesses
ADODB.Recordset - Wird zum Abrufen von Daten aus einer Datenbank verwendet

Wie verbinde ich mich mit der Datenbank?

Datenbanken können mithilfe von Verbindungszeichenfolgen verbunden werden. Jede Datenbank unterscheidet sich in der Art und Weise, wie wir uns mit ihnen verbinden. Die Verbindungszeichenfolgen können jedoch mithilfe von www.connectionstrings.com erstellt werden

Lassen Sie uns sehen, wie Sie mit den folgenden Parametern eine Verbindung zur Datenbank herstellen:

Database Type - MSSQL-Server
Server Name - SQLEXPRESS
Database Name - Prozess
User Id - sa
password - Passwort123

Die Ausgabe der Abfrage wird im SQL Server Management Studio wie folgt angezeigt:

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

Ergebnis

Bei Ausführung des obigen Skripts wird die Ausgabe im Meldungsfeld wie folgt angezeigt: