Hola. Tengo un pequeño problema estoy realizando un update a mi base de datos en firebird pero no se actualiza ingreso los datos y cuando le doy al botón no hace nada..
Este es el código que estoy realizando dentro de un botón..
Código Delphi
[-]
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('update HUMEDADNATURAL ');
Query.SQL.Add('set HUMEDADNATURAL.TARAENVASE='+NumConDec(Edittaraenvase.Text)+',');
Query.SQL.Add('HUMEDADNATURAL.TARA_SUELOHUMEDO='+NumConDec(Edittarash.Text)+',');
Query.SQL.Add('HUMEDADNATURAL.TARA_SUELOSECO='+NumConDec(Edittarass.Text)+',');
Query.SQL.Add('HUMEDADNATURAL.PROFUNDIDAD='+NumConDec(Editprofundidad.Text)+',');
Query.SQL.Add('HUMEDADNATURAL.PESO_AGUA='+NumConDec(Labelrpa.Caption)+',');
Query.SQL.Add('HUMEDADNATURAL.PESO_SUELOSECO='+NumConDec(Labelrpss.Caption)+',');
Query.SQL.Add('HUMEDADNATURAL.CONTENIDO_HUMEDAD='+NumConDec(Labelrch.Caption)+'');
Query.SQL.Add(' where HUMEDADNATURAL.IDENSAYO='+inttostr(idensayo1)+'');
Query.SQL.Add('and HUMEDADNATURAL.IDMUESTRA='+inttostr(idmuestra1)+'');
Query.SQL.Add('and HUMEDADNATURAL.ALBARAN='+chr(39)+Editalbaran.Text+chr(39));
Query.SQL.Add('and HUMEDADNATURAL.MUESTRA='+chr(39)+Editmuestra.Text+chr(39));
Query.ExecSQL;
ShowMessage('Se realizo la actualización ');
Sera que estoy realizando algo mal..??
o Como es la sintaxis correcta para realizar el update y se pueda actualizar la base de datos..! :S
Ayudaa..!