QTP - Veritabanlarına Erişim
Bu nedenle, QTP, veritabanına bağlanmak için herhangi bir yerleşik destek sağlamaz, ancak VBScript test edicilerinin kullanılması, ADODB nesnelerini kullanarak veritabanlarına bağlanabilir ve bunlarla etkileşim kurabilir.
ADODB, veritabanları ile çalışabileceğimiz 4 özelliğe veya yönteme sahiptir. Onlar -
ADODB.Connection - Veritabanına bağlantı kurmak için kullanılır
ADODB.Command - Bir SQL komutunu yürütmek için kullanılır (Sorgular veya Saklanan Prosedürler)
ADODB.Fields - Bir sorgu / depolanan işlem gerçekleştirdikten sonra bir kayıt kümesinden belirli bir sütunu getirmek için kullanılır
ADODB.Recordset - Bir veritabanından veri almak için kullanılır
Veritabanına nasıl bağlanılır?
Veritabanları Bağlantı dizeleri kullanılarak bağlanabilir. Her veritabanı, onlara bağlanma şeklimizde farklılık gösterir. Bununla birlikte, bağlantı dizeleri www.connectionstrings.com yardımıyla oluşturulabilir .
Aşağıdaki parametrelerle veritabanına nasıl bağlanacağımızı görelim -
Database Type - MSSQL SUNUCUSU
Server Name - SQLEXPRESS
Database Name - Deneme
User Id - sa
password - Şifre123
Sorgunun çıktısı SQL Server Management Studio'da aşağıdaki gibi gösterilir -
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 = NothingSonuç
Yukarıdaki komut dosyası çalıştırıldığında, çıktı aşağıda gösterildiği gibi mesaj kutusunda gösterilir -
