Campo numerico asignación por texto

[ecfisa]

Hola Facu.

Probá de este modo:

Código Delphi [-]
var
  codigo:string;
  precionuevo:string;
  conver:real;
begin
  codigo:= ADOQuery1.FieldValues['Codigo'];
  precionuevo:= Edit1.Text;
  conver:= StrToFloat(precionuevo);
  with DataModule5.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE HERRAMIENTAS SET PRECIO= :PPRECIO ');
    SQL.Add('WHERE CODIGO = :PCODIGO');
    Parameters.ParamByName('PPRECIO').Value:= conver;
    Parameters.ParamByName('PCODIGO').Value:= codigo;
    ExecSQL
  end
end;

Saludos.

[Facu]

Empezado por ecfisa

Hola Facu.

Probá de este modo:

Código Delphi [-]
var
  codigo:string;
  precionuevo:string;
  conver:real;
begin
  codigo:= ADOQuery1.FieldValues['Codigo'];
  precionuevo:= Edit1.Text;
  conver:= StrToFloat(precionuevo);
  with DataModule5.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE HERRAMIENTAS SET PRECIO= :PPRECIO ');
    SQL.Add('WHERE CODIGO = :PCODIGO');
    Parameters.ParamByName('PPRECIO').Value:= conver;
    Parameters.ParamByName('PCODIGO').Value:= codigo;
    ExecSQL
  end
end;

Saludos.

Hola, me sigue tirando error en la compatibilidad de tipos, no se como solucionarlo

[Casimiro Notevi]

Deberías poner exactamente el mensaje que te sale y en qué línea salta el error.

[ecfisa]

Empezado por Casimiro Notevi

Deberías poner exactamente el mensaje que te sale y en qué línea salta el error.

Totalmente de acuerdo.

Aunque ahora estoy sospechando de esta:

Código Delphi [-]
   codigo:= ADOQuery1.FieldValues['Codigo'];

Saludos.