Ver Mensaje Individual
  #10  
Antiguo 13-12-2011
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Reputación: 19
olbeup Va camino a la fama
Cita:
Empezado por lucas05 Ver Mensaje
Hola, gracias por responder, use el siguiente código, pero cuando lo compilo da error.
Código Delphi [-]
ADOQuery1.Close;
ADOQuery1.SQL.Add('Update tablaA');
ADOQuery1.SQL.Add('Set ta_valor= '+FloatToStr(Edit1.Text));//Aqui da error al compilar
ADOQuery1.SQL.Add('where ta_id=1');
ADOQuery1.ExecSQL;

Podrían decirme cual es el error.

Muchas Gracias.
Si es un único registro, el WHERE sobra, ya que va actualizar sólo un registro siempre y cuando exista algún registro.

Sobre que te da error en
Cita:
ADOQuery1.SQL.Add('Set ta_valor= '+FloatToStr(Edit1.Text));//Aqui da error al compilar
Lo de convertir un Float a String, pues va ser que no cómo dice gluglu.
También depende que el campo ta_valor sea de tipo decimal si es así, prueba con esto:
Código Delphi [-]
...
var
  S: String;
  X: Extended;
begin
  X := StrToFloat(Edit1.Txt);
  Str(X:0:3, S);
  with ADOQuery1 do
  begin
    Close;
    SQL.Add('UPDATE TablaA');
    SQL.Add('  SET TA_VALOR = ' + S);
    ExecSQL;
  end;
end;

Si tienes que escribir siempre en la TablaA, añade a la TablaA tantos campos cómo datos diferentes pidas, guardándolos en su campo correspondiente para después recuperarlos.

Un Saludo.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita