QTP/UFT调用SP

有两种方法，其一是直接使用SQL语句的方法：
Set dbCountryConn = CreateObject("ADODB.Connection")
dbCountryConn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=prv;Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=HZ27P4993473.corp.statestr.com)(PORT=1521))));Password=prvUser;"  'open connection
Set dbCountryRs = Createobject("ADODB.recordset")
connectionCountryString = "call sp_qa_test('8BA3',to_date('2013-06-28', 'yyyy-MM-dd'),to_date('2013-07-04', 'yyyy-MM-dd'),'CLOSE','999528AJ1','ivt_can_eq_eq','itl_eq','CA','itl_eq',null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null)"
Set dbCountryRs = dbCountryConn.Execute(connectionCountryString)
dbCountryConn.Close

第二种是使用ADODB.Command对象：
Function CallReplaySP()  
On Error Resume Next
Err.Clear
    Dim objCmd, guid, errorCode
    Set objCmd = CreateObject("ADODB.Command")

guid = testparameters.item("GUID")
    objCmd.ActiveConnection = objConnection
    objCmd.CommandType = 4    'Stored Procedures
    objCmd.CommandText = "OPGCEP2.GCTH_PKG_UTL.SP_REPLAY_TRANSACTIONS"    'sp name
    objCmd.CommandTimeout = 30

    Set objParm = objCmd.CreateParameter("GUID", 200, 1, 32, guid)
    objCmd.Parameters.Append objParm

    Set objParm2 = objCmd.CreateParameter("P_USERID", 200, 1, 30, "e521915")
    objCmd.Parameters.Append objParm2

    Set objParm3 = objCmd.CreateParameter("P_ERROR_CODE", 139, 2, 4)
    objCmd.Parameters.Append objParm3

    objCmd.Execute
   
    errorCode = objCmd.Parameters("P_ERROR_CODE").Value
    If errorCode <> 0 Then
           ''stepErrDescription = "Error Code is " & errorCode & "."
           StepResult = "Failed"
           Exit Function
    End If

    Set objCmd = Nothing

If Err.Number <> 0 Then
''stepErrDescription = Err.Description
StepResult = "Failed"
Err.Clear
Exit Function
Else
stepResult="Passed"
stepActual="Replay SP is executed successfully"
End if
End Function

Set objParm2 = objCmd.CreateParameter("P_USERID", 200, 1, 30, "e521915")的200表示类型，1表示入参，30表示长度。