solucion
Despues de varias pruebas, ya tengo incluso varias soluciones:
//***con un storedproc
try
storedProc1.DatabaseName:='DataBase';
storedProc1.StoredProcName:='Calcular';
storedProc1.Params.Clear;
folio_:=TParam.Create(storedProc1.Params, ptInput);
storedProc1.Params[0].Name:='folio';
storedProc1.ParamByName('folio').AsInteger:=StrToInt(Folio.Text);
storedProc1.ExecProc;
except
//manejo de error
end;
//****con un adoStoredProc
StoredProc.Connection:=Adoconnection;
StoredProc.ProcedureName:='Calcula';
storedProc.Parameters.AddParameter;
try
StoredProc.Parameters[0].Value:=Folio.Text;
StoredProc.ExecProc;
except begin
//manejo de error
end;
end;
//****con un adoCommand
Command.CommandType:=cmdStoredProc;
Command.Connection:=Adoconnection;
Command.CommandText:='Calcula';
try
Command.Parameters.Refresh;
Command.Parameters.ParamByName('@folio').Value:=folio;
Command.Execute;
except begin
//manejo de error
end;//except
end;
Lo escribo por si a algun novato como yo le es de ayuda
|