QTP - Mengakses Database
Dengan demikian, QTP tidak menyediakan dukungan bawaan untuk terhubung ke database, namun menggunakan penguji VBScript akan dapat menghubungkan dan berinteraksi dengan database menggunakan objek ADODB.
ADODB memiliki 4 properti atau metode yang dapat digunakan untuk bekerja dengan database. Mereka adalah -
ADODB.Connection - Digunakan untuk membuat koneksi ke Database
ADODB.Command - Digunakan untuk menjalankan perintah SQL (Queries atau Stored Procedures)
ADODB.Fields - Digunakan untuk mengambil kolom tertentu dari kumpulan record setelah menjalankan query / proc yang disimpan
ADODB.Recordset - Digunakan untuk mengambil data dari database
Bagaimana cara terhubung ke Database?
Database dapat dihubungkan menggunakan string Koneksi. Setiap database berbeda dalam cara kita terhubung dengannya. Namun, string koneksi dapat dibuat dengan bantuan www.connectionstrings.com
Mari kita lihat bagaimana menghubungkan ke database dengan parameter berikut -
Database Type - MSSQL SERVER
Server Name - SQLEXPRESS
Database Name - Percobaan
User Id - sa
password - Kata sandi123
Output dari Kueri ditampilkan di SQL Server Management Studio sebagai berikut -
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 = NothingHasil
Saat menjalankan skrip di atas, hasilnya ditampilkan di kotak pesan seperti yang ditunjukkan di bawah ini -
