Ver Mensaje Individual
  #1  
Antiguo 21-07-2013
negrokau negrokau is offline
Miembro
NULL
 
Registrado: abr 2011
Posts: 210
Reputación: 14
negrokau Va por buen camino
Talking Pequeña ayuda con Datetostr!!!

Hola amigos... tengo un inconveniente al actualizar una tabla, esto programe en un boton al que llame GUARDAR...
Código Delphi [-]
procedure TF_LECTURA.GUARDARClick(Sender: TObject);
VAR
CLIENTE : INTEGER;
FECHA: TDATE;
begin
IF Application.MessageBox('Desea GUARDAR?','GUARDAR',MB_YESNO + MB_Ite)CONQUESTION) = ID_YES then
BEGIN
//////////////////////////////////////////////////////////////////
//////////////////Actualiza Nº DE BOLETA/////////////////////
//////////////////////////////////////////////////////////////////
CLIENTE:=dm.Q_LECTURA.FieldValues['COD_CLIENTE'];// CODIGO DE CLIENTE
FECHA:=dm.Q_LECTURA.FieldValues['F_ACTUAL'];// ULTIMA FECHA

DM.CONSULTA.CLOSE;
DM.CONSULTA.SQL.Clear;
DM.CONSULTA.SQL.Add('UPDATE CLIENTES SET ULT_FECHA='+DATETOSTR(FECHA)+' WHERE COD_CLIENTE='+inttostr(CLIENTE));
DM.CONSULTA.ExecSQL;
Al hacer click me salta este mensaje

conversion error from string "0"

-el campo ULT_FECHA es tipo date

me prodrian decir donde estoy haciendo mal, desde ya muchas gracias.....
Responder Con Cita