[defcon1_es]

Empezado por arturom

if Column.Title.Caption = 'Precio' then begin
// Rellena el query -> Esto no es un TIBQuery, sino un TIBDataSet
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';

¿No sería más sencillo usar un TIBQuery en vez del TIBDataSet?

Código Delphi [-]
if Column.Title.Caption = 'Precio' 
then begin   
  dmDatos.dsArticulosQuery.Close;   
  dmDatos.dsArticulosQuery.SQL.Clear;   
  dmDatos.dsArticulosQuery.SQL.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.dsArticulosQuery.ParamByName('Precio').AsFloat := dPrecio; 
      dmDatos.dsArticulosQuery.ParamByName('Referencia').AsString := 
        dmDatos.dsArticulosREFERENCIA.Value;
      dmDatos.dsArticulosQuery.Open;
    end;
  except     
    raise Exception.CreateFmt('El nuevo precio no es correcto',[]);
  end;
end;