Inserta fecha actual
 

Tengo un problema al querer insertar la fecha de hoy en una base de datos con el siguiente código delphi:

Código Delphi [-]
 
 
  d:=date;
  sd := datetostr (d);
 
 consulta:= 'INSERT INTO `ventas` (`venta_fecha`,`venta_fact`,`venta_total`) VALUES ('+ #39 + sd + #39 +','+ #39 + sesremision + #39 +' ,'+ #39 + ssender + #39 +');' ;
  ZQInserta.SQL.Clear;
  ZQInserta.SQL.Add(consulta);
  ZQInserta.ExecSQL;
 showMessage (sd);

Las variables d y sd son de tipo :
d : TDate;
sd : string;

El mensaje para ver el contenido de la variable sd, muestra:
04/04/2006

Pero en la base de datos, en el campo venta_fecha guarda :
2004-04-20

¿Saben porque me cambia la fecha?
Yo quiero que en la base de datos se guarde la fecha de hoy, es decir:
2006-04-04

¿Que puedo hacer? :confused:

Saludos


Mejor utiliza Parametros, intenta esto

Código Delphi [-]
  ZQInserta.SQL.Clear;
  ZQInserta.SQL.add('INSERT INTO `ventas` (`venta_fecha`,`venta_fact`,`venta_total`');
  ZQInserta.SQL.Add('VALUES (:fecha,VenFact,:VenTot);');
  ZQInserta.ParamByName(:fecha).AsDate:=Now;
  ZQInserta.ParamByName(:VenFact).AsDate:=ventafactura;//Variable
  ZQInserta.ParamByName(:VenTot).AsDate:=ventatotal;/variable
  ZQInserta.ExecSQL;
 showMessage (sd);

Ya lo cambie, pero no compila, marca un error en :

Código Delphi [-]
ZQInserta.ParamByName(:fecha).AsDate:=Now;

El error dice:

:confused: :confused: :confused: Expresion esperada, pero : encontrados :confused: :confused: :confused:

:(

Hay un error en las líneas:

Código Delphi [-]
ZQInserta.ParamByName(:fecha).AsDate:=Now;
  ZQInserta.ParamByName(:VenFact).AsDate:=ventafactura;//Variable
  ZQInserta.ParamByName(:VenTot).AsDate:=ventatotal;/variable

El nombre de los parámetros que se le pasa a ParamByName tiene que ser un string:

Código Delphi [-]
  ZQInserta.ParamByName('fecha').AsDate:=Now;
  ZQInserta.ParamByName('VenFact').AsDate:=ventafactura;//Variable
  ZQInserta.ParamByName('VenTot').AsDate:=ventatotal;/variable

Saludos...

¡¡¡¡¡¡¡¡¡¡¡¡¡ Funciono !!!!!!!!!!

Gracias A Todos.

:d