-, 3 QTP, -. ( , - )
:
'=============================================================================
' Define WebService
qtpP1 = "wsdl:=http://172.16.69.84:8080/testframeworkwebapp/services/STFSQLExecutionService?WSDL"
' Define service & port
qtpP2 = "service:=GenericSQLExecutorService"
qtpP3= "port:=STFSQLExecutionService"
' Define Webservice calling parameters
wsP1 = "Select Count(*) From PERSON_TABLE"
'====================================================================
' Call to the WebService
executeSQLByDBName = WebService(qtpP1, qtpP2, qtpP3).executeSQLByDBName(wsP1)
If WebService(qtpP1, qtpP2, qtpP3).GetLastError > "" Then
MsgBox "WebService Issue"
Else
MsgBox "WebServices Call Worked OK"
End If
'====================================================================