mostrar resultado de procedimiento almacenado en delphi
Saludos a todos los miembros del foro
Estoy desarrollando una aplicación en delphi y el gestor de Base de datos que utilizo es SQL Server 2000
Tengo un procedimiento almacenado como el siguiente:
CREATE procedure ejemplo @num int, @tot float output
As
select fecha, nombre
from tabla
where (numero = @num)
set @tot = (select sum (monto)
from tabla
where (numero = @num)
Ejecutando este procedimiento en el analizador de consultas, devuelve todos los valores correctamente.
El código que uso en delphi es:
with DataModule1.SPejemplo do
begin
Prepare;
ParamByName('@num').AsString := Edit1.Text;
ExecProc;
Edit2.Text := ParamByName('@tot').AsString;
end;
utilizo la conexión ODBC
Mi problema es el siguiente:
Muestro los valores devueltos por el select en un dbgrid (hasta aqui todo bien), pero cuando deseo mostrar el valor de la variable @tot en un edit, sólo me muestra '0', no genera ningún error.
No sé qué está mal o cuál es el error que estoy cometiendo.
Agradezco de antemano, cualquier ayuda, comentario o referencia que puedan brindarme.
Gaia
|