Valor de parámetro de salida ADO Stored Procedure

[juggern]

Buenos días chicos,

No se si este tema iría exactamente aquí, creo que si.

Veréis, tengo un procedimiento almacenado creado en SQL que devuelve un valor en uno de los parámetros:

Código SQL [-]
ALTER PROCEDURE [dbo].[PR_calculacontador]
   @ejercicio int,
   @local varchar(2),
   @contador int OUTPUT

Yo ejecuto este procedimiento almacenado desde delphi y lo ejecuta bien, hace los procesos que tiene que hacer dentro del pa y todo.
El problema que tengo que es quiero guardar en una variable el valor de @contador, porque tengo que usarlo más adelante, pero no consigo acceder a ese valor.
Hago lo siguiente:

Código Delphi [-]


       cont:= 0;

       ADOStoredProc1.ProcedureName:= 'PR_calculacontador';
       ADOStoredProc1.Parameters.Clear;
       ADOStoredProc1.Parameters.AddParameter.Name:= 'ejercicio';
       ADOStoredProc1.Parameters.ParamByName('ejercicio').Value := 2020;
       ADOStoredProc1.Parameters.AddParameter.Name:= 'local';
       ADOStoredProc1.Parameters.ParamByName('local').Value := 'ES';
       ADOStoredProc1.Parameters.AddParameter.Name:= 'contador';
       ADOStoredProc1.Parameters.ParamByName('contador').Value := cont;
       ADOStoredProc1.ExecProc;

       cont := ADOStoredProc1.Parameters.ParamByName('contador').Value;

El procedimiento lo ejecuta, pero no se bien como acceder al valor que devuelve contador porque la variable cont no la actualiza, me devuelve siempre 0.

Muchas gracias

Un saludo

[Casimiro Notevi]

Seguramente "Fields[0].AsInteger;"

[juggern]

Hola!

He probado y nada, me da error List Index out of bounds.

He probado también

cont := ADOStoredProc1.Parameters.ParamValues['contador'];

y poniendo @ delante de los parámetros pero siempre me devuelve 0

Un saludo

[Casimiro Notevi]

A ver si te sirve esto.

[juggern]

Buenos días,

Nada, no consigo que funcione. Le daré vueltas para hacerlo de otra manera.

Muchas gracias!

[Casimiro Notevi]

Poco podemos hacer si no muestras el código.

[lgarcia]

hola: aunque no muestras el codigo interno del SP si pudieras en vez de un parametro externo que cogieras ese valor (contador) con un SELECT entonces en Delphi

Código Delphi [-]
with ADOStoredProc1 do
begin 
  Close;
  Parameter.ParamByName('@ejercicio').Value:= 2020;
  Parameter.ParamByName('@local').Value:= 'ES';
  Open;
end;

Entonces podrias capturar el valor de cont:= ADOStoredProc1contador.Vaue;

Saludos
Luis