Cita:
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');
sPrecio:= InputBox('Nuevo precio', 'Nuevo precio', '0');
try 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;