QTP - Acessando bancos de dados
Como tal, o QTP não fornece nenhum suporte embutido para se conectar ao banco de dados; no entanto, os testadores VBScript serão capazes de se conectar e interagir com os bancos de dados usando objetos ADODB.
ADODB tem 4 propriedades ou métodos com os quais poderemos trabalhar com os bancos de dados. Eles são -
ADODB.Connection - Usado para estabelecer uma conexão com o banco de dados
ADODB.Command - Usado para executar um comando SQL (consultas ou procedimentos armazenados)
ADODB.Fields - Usado para buscar uma coluna particular de um conjunto de registros após executar uma consulta / procedimento armazenado
ADODB.Recordset - Usado para buscar dados de um banco de dados
Como se conectar ao banco de dados?
Os bancos de dados podem ser conectados usando strings de conexão. Cada banco de dados difere na maneira como nos conectamos a eles. No entanto, as cadeias de conexão podem ser construídas com a ajuda de www.connectionstrings.com
Vamos ver como se conectar ao banco de dados com os seguintes parâmetros -
Database Type - SERVIDOR MSSQL
Server Name - SQLEXPRESS
Database Name - Teste
User Id - sa
password - Senha123
A saída da consulta é mostrada no SQL Server Management Studio da seguinte forma -
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
Resultado
Ao executar o script acima, a saída é mostrada na caixa de mensagem conforme mostrado abaixo -