QTP - Доступ к базам данных

Таким образом, QTP не предоставляет встроенной поддержки для подключения к базе данных, однако, используя VBScript, тестеры смогут подключаться и взаимодействовать с базами данных с помощью объектов ADODB.

ADODB имеет 4 свойства или метода, с помощью которых мы сможем работать с базами данных. Они -

ADODB.Connection - Используется для установления соединения с базой данных
ADODB.Command - Используется для выполнения команды SQL (запросы или хранимые процедуры)
ADODB.Fields - Используется для выборки определенного столбца из набора записей после выполнения запроса / сохраненной процедуры
ADODB.Recordset - Используется для получения данных из базы данных

Как подключиться к базе данных?

Базы данных могут быть подключены с помощью строк подключения. Каждая база данных отличается способом подключения к ней. Однако строки подключения могут быть созданы с помощью www.connectionstrings.com.

Давайте посмотрим, как подключиться к базе данных со следующими параметрами -

Database Type - СЕРВЕР MSSQL
Server Name - SQLEXPRESS
Database Name - Пробная
User Id - са
password - Пароль123

Выходные данные запроса показаны в SQL Server Management Studio следующим образом:

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

Результат

При выполнении приведенного выше сценария результат отображается в окне сообщения, как показано ниже -