Ver Mensaje Individual
  #3  
Antiguo 14-07-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Hay mucho que se puede optimizar de tu código como por ejemplo traer año, mes y día diréctamente desde la consulta, pero sería importante saber:
  • ¿ Que tipo y formato tiene la columna fec_nacim ?
  • ¿ Que operación buscas realizar en la línea ?
    Código Delphi [-]
     FecCap := floattostr(trunc((Date - StrToDate(txt_Fec_Nacim))/365));

Otra cosa que no entiendo es el por que de armar la cadena de consulta de este modo:
Código Delphi [-]
...
    txt_Query:='';
    txt_Query:='UPDATE Secce0 ';
    txt_Query:=txt_Query+'SET Edad = ';
    txt_Query:=txt_Query+FecCap;
    txt_Query:=txt_Query+' WHERE Rfe_Llave = "';
    txt_Query:=txt_Query+txt_Rfe_Llave;
    txt_Query:=txt_Query+'"';
...
cuando es exáctamente lo mismo hacerlo así:
Código Delphi [-]
  txt_Query:= Format('UPDATE Secce0 SET Edad = %s WHERE Rfe_Lave = "%s"', [FecCap, txt_Rfe_Llave]);

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita