* Contants used by ADO #DEFINE adInteger 3 #DEFINE adCurrency 6 #DEFINE adDate 7 #DEFINE adBoolean 11 #DEFINE adChar 129 #DEFINE adNumeric 131 #DEFINE adVarChar 200 #DEFINE adParamInput 1 #DEFINE adParamOutput 2 #DEFINE adCmdStoredProc 4 #DEFINE adExecuteNoRecords 128 LOCAL loADOCmd, loADOParam, loADOConn *& *& Connect to your SQL Server here. loADOConn = CREATEOBJECT("ADODB.Connection") *& *& *& loADOCmd = CREATEOBJECT("ADODB.Command") loADOCmd.ActiveConnection = loADOConn *& loADOCmd.CommandText = "Contador" loADOCmd.CommandType = adCmdStoredProc *& loADOPara = loADOCmd.CreateParameter("@Valor1", adInteger, adParamInput, , 1) loADOCmd.Parameters.Append(loADOParam) *& loADOPara = loADOCmd.CreateParameter("@Valor2", adInteger, adParamInput, , 2) loADOCmd.Parameters.Append(loADOParam) *& loADOPara = loADOCmd.CreateParameter("@nRetorno", adInteger, adParamOutput) loADOCmd.Parameters.Append(loADOParam) *& loADOCmd.Execute(,,adExecuteNoRecords) lnRetorno = loADOCmd.Parameters("@nRetorno").Value>hello *.*
>CREATE PROCEDURE Contador >@Valor1 int, >@Valor2 int, >@nRetorno int output >AS >SET @nRetorno = @valor1 + @valor2 >>If I run it from query analyser such as:
>declare @resposta int >exec contador 1,2, @resposta output >select @resposta >>It's run without problems, but how do I do to return the value to VFP ?
>recordset.fields.("name_of_my_field").value >or >recordset.fields.(0).value >>But it don't run ok when I run the stored procedure. Why ?