guardar dato siempre en el mismo registro

[lucas05]

Hola, tengo una tablaA con dos campos ta_id y ta_valor.
Esta tabla posee un unico regitro, cuyo campo ta_valor va a ser modificado constantemente.
Como puedo hacer para que vez que ingreso un valor en un edit, este se guarde siempre en ese único
registro (en el campo ta_valor).
Lo que intento hacer es reescribir simpre el mismo registro
Estoy usando un edit1,button1 y adoquery1

Espero haber sido claro.

Muchas Gracias

[TiammatMX]

Empezado por lucas05

Hola, tengo una tablaA con dos campos ta_id y ta_valor.
Esta tabla posee un unico regitro, cuyo campo ta_valor va a ser modificado constantemente.
Como puedo hacer para que vez que ingreso un valor en un edit, este se guarde siempre en ese único
registro (en el campo ta_valor).
Lo que intento hacer es reescribir simpre el mismo registro
Estoy usando un edit1,button1 y adoquery1

Espero haber sido claro.

Muchas Gracias

Utiliza la sentencia SQL "Update", es lo único que debes hacer.

Código SQL [-]
Update TuTabla Set Campo1 = 'xxx', Campo2 = 2, ... CampoN = 'N' Where CampoLlave = TuLlave;

[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));//Aqui da error al compilar
ADOQuery1.SQL.Add('where ta_id=1');
ADOQuery1.ExecSQL;

Podrían decirme cual es el error.

Muchas Gracias.

[microbiano]

que error te muestra

[[newtron]]

Bueno, no dices qué error te da pero en principio no puedes hacer un FloatToStr de un valor tipo string así que tendrías que poner lo siguiente:

Código Delphi [-]
ADOQuery1.SQL.Add('Set ta_valor= '+Edit1.Text);

teniendo en cuenta que el valor que tengas en Edit1 no tenga comas de miles y valor decimal sea un punto.

Saludos

[[gluglu]]

Pues le va a mostrar un error tal que diciendo que no se puede convertir un texto desde Float a String

Código Delphi [-]
FloatToStr(Edit1.Text))/

Edit1.Text es de tipo String (Texto, tal y como la propia propiedad lo indica .text) y está intentanto utilizar una función FloatToStr, que como parámetro espera un dato del Tipo Float (es decir un número decimal).

[[newtron]]

Empezado por gluglu

Pues le va a mostrar un error....

Pandilla de buitres.... para una que puedo contestar yo me la queréis quitar.

[lucas05]

Hola, estoy intentando otra manera, no se si esta bien

Código Delphi [-]
ADOQuery1.Close;
ADOQuery1.SQL.Add('Update tablaA');
ADOQuery1.SQL.Add('Set ta_valor=: ');//Aquí no entiendo que debo asignarle a Set
ADOQuery1.SQL.Add('Where ta_id=:1');
ADOQuery1.FieldByName('ta_valor').AsInteger:=StrToInt(Edit1.Text);//Necesito esta linea para guardar los cambios?
ADOQuery1.Open;

Muchas Gracias.

[microbiano]

haber haber como que no entiendes que asignarle al set?, creo que primero deberiamos pasar por un manual de sql jejejejeje.


yo lo hago asi espero te sirva.

Código Delphi [-]
with Form_modulo.Qry_Temp do
              begin
                SQL.Clear;
                SQL.Add('update agenda set tipo=:Ptipo');
                SQL.Add(',unidadcompradora=:Punidad');
                SQL.Add(',descripcion=:Pdescripcion');
                SQL.Add(',DePreconvocatoria=:Pdepreconv');
                SQL.Add(',HastaPreconvocatoria=:PHastaPreconvocatoria');
                SQL.Add(',Repcepcion=:PRepcepcion');
                SQL.Add(',RecepcionHora=:PRecepcionHora');
                SQL.Add(',Fallo=:PFallo');
                SQL.Add(',FalloHora=:PFalloHora');
                SQL.Add(',Ejercicio=:PEjercicio');
                SQL.Add(',status=:Pstatus');
                SQL.Add(',Claves=:PClaves');
                SQL.Add(',Importe=:PImporte');
                sql.Add('Where id=:Pid');
                Parameters.ParamByName('Ptipo').Value:=self.cbb_tipo.ItemIndex;
                Parameters.ParamByName('Punidad').Value:=Self.txtunidad.Text;
                Parameters.ParamByName('Pdescripcion').Value:=Trim(Self.txtnotas.Text);
                Parameters.ParamByName('Pdepreconv').value:=int(Self.dtpFechaPreIni.Date);
                Parameters.ParamByName('PHastaPreconvocatoria').Value:=int(self.dtpFechaPreFin.Date);
                Parameters.ParamByName('PRepcepcion').Value:=Int(self.dtpFecharecp.Date);
                Parameters.ParamByName('PRecepcionHora').Value:=timetostr(self.dtpHoraRecep.Time);
                Parameters.ParamByName('PFallo').Value:=Int(self.dtpFechaFallo.Date);
                Parameters.ParamByName('PFalloHora').Value:=TimeToStr(self.dtpHoraFallo.Time);
                Parameters.ParamByName('PEjercicio').Value:=Trim(Self.txtejercicio.Text);
                Parameters.ParamByName('PStatus').Value:=Self.cbb1.Text;
                Parameters.ParamByName('PClaves').Value:=Int(Self.txtclaves.Value);
                Parameters.ParamByName('PImporte').Value:=Self.txtimporte.Value;
                Parameters.ParamByName('Pid').Value:=Self.widentificador;
                try
                  ExecSQL;
                  Application.MessageBox('Las Modificaciones se Realizarón Exitosamente en la Adjudicación',PChar(Application.Title), MB_OK + MB_ICONINFORMATION);
                  limpiar;
                  botones(0);
                  Exit;
                except
                  on e:EOleException do
                    begin
                      MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
                      Exit;
                    end;  
                end;

              end;

adaptalo a lo que necesitas

[olbeup]

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));//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

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.

[ecfisa]

Hola.

Para este caso en especial, otra forma puede ser:

Código Delphi [-]
var
  v: Double;
begin
  if TryStrToFloat(Edit1.Text, v) then
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('UPDATE TABLA');
      SQL.Add('SET TA_VALOR = :VALOR');
      Parameters.ParamByName('VALOR').Value:= Edit1.Text;
      ExecSQL;
    end
  else
    raise Exception.Create('El valor ingresado no es un numero válido');
end;

Aunque siempre utilizo try/except como suguiere microbiano.

Saludos.

[TiammatMX]

Empezado por olbeup

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

Yo estaba dando la estructura de la sentencia, no la solución. Perdón si se mal entendió.