Ver Mensaje Individual
  #7  
Antiguo 16-10-2024
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 947
Reputación: 25
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Estimado pruz, me tome la libertad de sugerir lo siguiente...

Código Delphi [-]
var
  Value:String;
  SValue:String;
  Valor:Single; //Double?..
begin
      SValue:=edt_uf.Text;

      {Reemplaza Separador de Miles, por ''}
      SValue:=SValue.Replace(FormatSettings.ThousandSeparator, EmptyStr);

      {Convierte Strint a Single}
      Valor :=0;
      if not SValue.IsEmpty then
         Valor :=SValue.ToSingle;

      ModuloDatos.QTablas.SQL.Clear;
      ModuloDatos.QTablas.SQL.Add(' Update remaux ');
      ModuloDatos.QTablas.SQL.Add('   set valor  = :Valor');
      ModuloDatos.QTablas.SQL.Add(' Where Raiz = :Raiz ');
      ModuloDatos.QTablas.SQL.Add('   and Codigo = :Codigo');

      ModuloDatos.QTablas.ParamByName('valor').value := valor; //[Valor | SValue.ToSingle]
      ModuloDatos.QTablas.ParamByName('raiz').value  := copy(edt_cuf.Text,1,1)
      ModuloDatos.QTablas.ParamByName('codigo').value:= Trim(copy(edt_cuf.Text,3,3))

      ModuloDatos.QTablas.Execute;
end;
Como indican los colegas, es una muy buena alternativa el utilizar parámetros para asignar los datos a actualizar en la sentencias SQL. Simplifica y clarifica el código...

Saludos cordiales
Responder Con Cita