Query Forum

How to capture tool tip in QTP? 

E.g.: On Amazon.com, when you bring the mouse over the ‘A9′ search image (on the top-left side of the page), it shows ‘A9 search’ as tool-tip. This can be captured using following code: strToolTip= Browser(“title:=Amazon.*”).Page(“title:=Amazon.*”).Image(“src:=.*a9search.*”).getROProperty(“alt”)
msgbox strToolTip

How to Maximising a Browser?

Sub MaxBrowser( ByRef Browser )
hwnd= Browser.GetROProperty(“hWnd”)
Window(“hWnd:=”&hwnd).Maximize
End SubCall MaxBrowser(Browser(“micClass:=Browser”))

How to extract column from webpage ?

Dim colA(),colB()
totalRows = Browser(“<yourBrowser>”).Page(“<yourPage>”).WebTable(“<yourtable>”).RowCount
ReDim colA(totalRows), colB(totalRows)
For x = 1 to totalRows
colA(x) = Browser(“<yourBrowser>”).Page(“<yourPage>”).WebTable(“<yourtable>”).GetCellData(x,<firstcolumn>)
colB(x) = Browser(“<yourBrowser>”).Page(“<yourPage>”).WebTable(“<yourtable>”).GetCellData(x,<secondcolumn>)
Next 

How to Capture Screen shot ?

Sub captureScreenShot ()
          strStoreSnapshotMode = Setting(“SnapshotReportMode”)
      Setting(“SnapshotReportMode”) = 0
          Browser(“name:=.*”).Page(“title:=.*”).Sync
      Setting(“SnapshotReportMode”) = strStoreSnapshotMode
End Sub

How to Call SQL stored procedure from QTP?

Function RunStoredProcedure(StoredProcedureName)
sDatabaseName=”ABC”
sUID=”xyz”
sPWD=”ABC_xyz” ‘ Create the database object
Set cm = CreateObject(“ADODB.Command”)

‘ Activate the connection.
cm.ActiveConnection = “DRIVER={Microsoft ODBC for Oracle}; ” &_
“SERVER=” & sDatabaseName & “;User ID=” & sUID & “;Password=” & sPWD & ” ;”

‘ Set the command type to Stored Procedures
cm.CommandType = 4

‘ Stored Procedures
cm.CommandText = StoredProcedureName

‘ Define Parameters for the stored procedure
cm.Parameters.Refresh

‘ Pass input value. Assuming Stored Procedure requires 2 parameters
cm.Parameters(0).Value = “Kuldeep”
cm.Parameters(1).Value = “Kumar”

‘ Execute the stored procedure
cm.Execute()
Set cm = Nothing
End Function

How to write the test Result (Output) on Excel sheet?   

Dim objexcel
Set objexcel= CreateObject(“Excel.sheet”)
objexcel.Visible = True
objexcel.Workbooks.add
With Window(“Calculator”)
.WinButton(“5″).Click
.WinButton(“*”).Click
.WinButton(“3″).Click
.WinButton(“=”).Click
End With  
result= Window(“Calculator”).WinEdit(“Edit”).GetROProperty(“text”)
 
If result=15 Then
         objexcel.ActiveSheet.Cells(1,1).Value = “test is pass”
         Reporter.ReportEvent micPass,”Calculation”, result
Else
         objexcel.ActiveSheet.Cells(1,1).Value = “test is Fail”
         Reporter.ReportEvent micFail,”Calculation”, “Expected Result is 15” +”Acutal is “+result
End If

what is the use of function GetROProperty()? 

GetROProperty is used to retrieve properties listed in Object Spy.

Example: hWnd=Browser(“browser_name”).GetROProperty(“hwnd”)
Window(“hwnd:=” & hWnd).Minimize

For Queries/comments click here