[arturom]

Hola a todos, uso Delphi 5, Firebird 1.5 y componentes IBX, tengo el siguiente código:

if Column.Title.Caption = 'Precio' then begin
// Rellena el query
dmDatos.dsArticulos.Close;
dmDatos.dsArticulos.ModifySQL.Clear;
dmDatos.dsArticulos.ModifySQL.Add('update ARTICULOS set PRECIO = :Precio where REFERENCIA = :Referencia');
// Pide el nuevo precio
sPrecio:= InputBox('Nuevo precio', 'Nuevo precio', '0');
try
// Modifica el precio
dPrecio:= StrToFloat(sPrecio);
if dPrecio> 0 then begin
dmDatos.dsArticulos.Params.ByName('Precio').AsFloat := dPrecio; // <---- AQUÍ FALLA
dmDatos.dsArticulos.Params.ByName('Referencia').AsString:= dmDatos.dsArticulosREFERENCIA.Value;
dmDatos.dsArticulos.Open;
end;
except
raise Exception.CreateFmt('El nuevo precio no es correcto',[]);
end;

al ejecutarlo me da el error 'Field "Precio" not found', es evidente que el campo Precio si que existe en la tabla.

El caso es que en todos los sitios que busco la forma de pasar los parámetros es:

dsArticulos.ParamByName('Referencia').AsString := 'cadena';

pero a mi me dice que no tiene ese procedimiento, solo puedo usar la forma:

dsArticulos.Params.ByName('Referencia').AsString := 'cadena';

Agradeceré cualquier comentario al respecto.

Un saludo