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: