Cita:
Empezado por lucas05
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));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.