Have a oracle stored procedure:

(tcPkBoeTbl in char, tcRetVal out char)
IS
lcVoterId char(15);
BEGIN
SELECT lastvotid
INTO lcVoterId
FROM sys_ctrl
WHERE cpkboetbl = tcPkBoeTbl ;

tcRetVal := lcVoterId;
return;
END;


Have program to get tcRetVal from oracle stored procedure using ADO:


loConn = CREATEOBJECT("ADODB.CONNECTION")
loParm = CREATEOBJECT("ADODB.PARAMETER")
loCmd = CREATEOBJECT("ADODB.COMMAND")
loConn.CursorLocation = 3 && adUseClient
loConn.Open([Provider=OraOLEDB.Oracle;USER ID=teamv;PASSWORD=nts;Data Source=TEAMLOC;])

IF loConn.State = 1 && connected

loCmd.ActiveConnection = loConn
loCmd.CommandType = 4
loCmd.CommandText = "{ call GetNextVoterId(?,?) }"


lcParmName = "INPUT_PARM"
loParm = loCmd.CreateParameter(lcParmName,129,1,38,SPACE(38))
loCmd.Parameters.Append(loParm)
loCmd.Parameters(lcParmName).Value = '{516F893C-ADA0-40D9-98C6-912799670921}'


lcParmName = "OUTPUT_PARM"
loParm = loCmd.CreateParameter(lcParmName,129,2,15,SPACE(15))
locmd.Parameters.Append(loParm)
loCmd.Parameters(lcParmName).Value = SPACE(15)

loRs = loConn.Execute()
lxRetVal = loCmd.Parameters("OUTPUT_PARM").Value
ENDIF

RETURN lxRetVal

On LOCONN.EXECUTE(), GET ERROR, INVALID NUMBER OF PARAMETERS.


TIA
Mark