QTP - डेटाबेस तक पहुँच

जैसे, QTP डेटाबेस से कनेक्ट करने के लिए कोई अंतर्निहित समर्थन प्रदान नहीं करता है, हालांकि VBScript परीक्षक का उपयोग करके ADODB ऑब्जेक्ट का उपयोग करके डेटाबेस से कनेक्ट और इंटरैक्ट कर पाएंगे।

ADODB में 4 गुण या विधियां हैं जिनके साथ हम डेटाबेस के साथ काम कर पाएंगे। वे हैं -

• ADODB.Connection - डेटाबेस से संबंध स्थापित करने के लिए उपयोग किया जाता है

• ADODB.Command - SQL कमांड निष्पादित करने के लिए उपयोग किया जाता है (प्रश्न या संग्रहीत कार्यविधियाँ)

• ADODB.Fields - किसी क्वेरी / संग्रहित खरीद को निष्पादित करने के बाद रिकॉर्ड सेट से एक विशेष कॉलम लाने के लिए उपयोग किया जाता है

• ADODB.Recordset - डेटाबेस से डेटा लाने के लिए उपयोग किया जाता है

डेटाबेस से कैसे जुड़ें?

डेटाबेस कनेक्शन स्ट्रिंग्स का उपयोग करके जोड़ा जा सकता है। प्रत्येक डेटाबेस हमारे संपर्क करने के तरीके में भिन्न होता है। हालाँकि, कनेक्शन स्ट्रिंग्स का निर्माण www.connectionstrings.com की मदद से किया जा सकता है

आइए देखते हैं कि डेटाबेस को निम्नलिखित मापदंडों से कैसे जोड़ा जाए -

• Database Type - MSSQL सर्वर

• Server Name - SQLEXPRESS

• Database Name - परीक्षण

• User Id - सा

• password - पासवर्ड123

क्वेरी का आउटपुट SQL सर्वर प्रबंधन स्टूडियो में निम्नानुसार दिखाया गया है -

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

परिणाम

उपरोक्त स्क्रिप्ट को निष्पादित करने पर, संदेश बॉक्स में आउटपुट दिखाया गया है जैसा कि नीचे दिखाया गया है -