Information générale
Catégorie:
Contrôles ActiveX en VFP
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
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement