QTP - Truy cập cơ sở dữ liệu
Do đó, QTP không cung cấp bất kỳ hỗ trợ tích hợp nào để kết nối với cơ sở dữ liệu, tuy nhiên khi sử dụng VBScript, người kiểm tra sẽ có thể kết nối và tương tác với cơ sở dữ liệu bằng các đối tượng ADODB.
ADODB có 4 thuộc tính hoặc phương thức mà chúng ta có thể làm việc với cơ sở dữ liệu. Họ là -
ADODB.Connection - Được sử dụng để thiết lập kết nối với Cơ sở dữ liệu
ADODB.Command - Được sử dụng để thực thi một lệnh SQL (Truy vấn hoặc Thủ tục được lưu trữ)
ADODB.Fields - Được sử dụng để tìm nạp một cột cụ thể từ một tập hợp bản ghi sau khi thực hiện một truy vấn / proc được lưu trữ
ADODB.Recordset - Được sử dụng để tìm nạp dữ liệu từ cơ sở dữ liệu
Làm thế nào để kết nối với Cơ sở dữ liệu?
Cơ sở dữ liệu có thể được kết nối bằng cách sử dụng Chuỗi kết nối. Mỗi cơ sở dữ liệu khác nhau về cách chúng tôi kết nối với chúng. Tuy nhiên, các chuỗi kết nối có thể được xây dựng với sự trợ giúp của www.connectionstrings.com
Hãy để chúng tôi xem cách kết nối với cơ sở dữ liệu với các tham số sau:
Database Type - MÁY CHỦ MSSQL
Server Name - SQLEXPRESS
Database Name - Thử nghiệm
User Id - sa
password - Mật khẩu123
Đầu ra của Truy vấn được hiển thị trong SQL Server Management Studio như sau:
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 = NothingKết quả
Khi thực hiện tập lệnh trên, đầu ra được hiển thị trong hộp thông báo như hình dưới đây:
