Учебники

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

Июль 3, 2018

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

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

  • ADODB.Connection — используется для установления соединения с базой данных

  • ADODB.Command — используется для выполнения команды SQL (запросы или хранимые процедуры)

  • ADODB.Fields — используется для извлечения определенного столбца из набора записей после выполнения запроса / сохраненного процесса

  • ADODB.Recordset — используется для извлечения данных из базы данных

ADODB.Connection — используется для установления соединения с базой данных

ADODB.Command — используется для выполнения команды SQL (запросы или хранимые процедуры)

ADODB.Fields — используется для извлечения определенного столбца из набора записей после выполнения запроса / сохраненного процесса

ADODB.Recordset — используется для извлечения данных из базы данных

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

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

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

  • Тип базы данных — MSSQL SERVER

  • Имя сервера — SQLEXPRESS

  • Имя базы данных — пробная версия

  • Идентификатор пользователя — sa

  • пароль — Password123

Тип базы данных — MSSQL SERVER

Имя сервера — SQLEXPRESS

Имя базы данных — пробная версия

Идентификатор пользователя — sa

пароль — Password123

Вывод запроса отображается в 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

Результат

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

36
Share: