Insertar Fecha (DatetimePicker) en MYSQL
 

Hola,

tengo un TADOQuery que se llama InsertaFichajes con la siguiente sentencia:
Concretamente tengo problemas con los campos Inicio y Fin.
Cuando llega el momento de asignar valores a los campos Inicio y Fin me sale un error de que el formato no es compatible.
Para asignar valores a Inicio y Fin (solo presento Inicio, el campo Fin es idéntico) he utilizado esto:

Código Delphi [-]
InsertaFichaje.Parameters.ParamByName('Inicio').Value:=DatetimePicker3.DateTime;

Y, también, esto que he encontrado por el foro:

Código Delphi [-]
            InsertaFichaje.Parameters.ParamByName('Inicio').Value:=QuotedStr(FormatDateTime('yyyy-mm-dd',DateTimePicker3.Date));

Y mucho más...llevo toda la tarde probando.
Siempre me sale un error, la cuestión es que MYSQL tiene un formato del tipo 'yyyy-mm-dd hh:mm:ss' y el DateTimePiker es del tipo 'dd/mm/aaaa hh:mm:ss' y no encuentro la forma de poder insertar el valor.
Si me podéis echar un cable os lo agradecería.

Saludos

Hola Parsec.

Revisa la función MySQL DATE_FORMAT()

Saludos :)

Hola Ecfisa,

Delphi no reconoce date_format() :confused:

Exactamente, lo que necesito es convertir un datetimepicker en aaaa-mm-dd hh:mm:ss (formato fecha de MYSQL) y que delphi lo reconozca como un formato bueno al pasárselo al 'Parameter' de un 'ADOQuery'.
Esta es la instrucción insert en SQL del comoponente ADOQuery:
Y cuando le intento asignar el valor al 'Parameter' del ADOQuery con el formato que necesita MYSQL es cuando me da el error, (lo he probado de muchas formas, te presento las 2 últimas):

Código Delphi [-]
InsertaFichaje.Parameters.ParamByName('Inicio').Value:=DatetimePicker3.DateTime;
// También he probado con esta sentencia
InsertaFichaje.Parameters.ParamByName('Inicio').Value:=QuotedStr(FormatDateTime('yyyy-mm-dd',DateTimePicker3.Date));

¿Hay solución?.
Gracias y saludos

Hola de nuevo,

muestro el error y la línea donde ocurre.

Código Delphi [-]
              InsertaFichaje.Parameters.ParamByName('Inicio').Value:=StrToDateTime('2014-01-20 01:02:33');

Y este es el error:



Saludos

Hola otra vez,

este es el error que me sale si le paso un fecha con formato delphi:
Instrucción:

Código Delphi [-]
InsertaFichaje.Parameters.ParamByName('Inicio').Value:=StrToDateTime('20/01/2014 01:02:33');

Error:


Saludos

Hola Parsec.

Para ese punto que solicitas, intenta de este modo:

Código Delphi [-]
...
var
  tmp: string;
begin
  tmp:= ShortDateFormat; 
  try
    ShortDateFormat:= 'yyyy-MM-dd';
    ShowMessage(DateTimeToStr(DateTimePicker1.DateTime)); // (para que verifiques el valor)
    ...
    InsertaFichaje.Parameters.ParamByName('Inicio').Value:= DatetimePicker3.DateTime;
    InsertaFichaje.ExecSQL; // (supongo)
  finally
    ShortDateFormat:= tmp;
  end;
end;

Saludos :)

Hola,

hemos avanzado!!, he conseguido grabar la fecha pero la hora la deja en 00:00:00, te pego una imagen de la BBDD MYSQL:



Es posible que haya otro problema en el parameter 'Inicio' (fecha con formato DateTime) del componente ADOQuery, te pego la imagen:



He cambiado varias veces los valores del parameter 'Inicio' pero siempre deja la hora '00:00:00'.

¿Hay alguna incompatibilidad entre Delphi y MYSQL?, con PHP va como la seda.
¿Hay solución?, estoy pensando en asignar otro tipo de variable al campo Inicio en MYSQL, pero tengo más de 20 páginas en PHP que trabajan con él y modificarlo significaría un montón de horas de trabajo.

Saludos

Hola Parsec.

No uso MySQL, pero jamás escuché que tuviera incompatibilidad con Delphi.

A ver, fijate si así...

Código Delphi [-]
var
  sdt, ltf: string;
begin
  sdt:= ShortDateFormat;
  ltf:= LongTimeFormat;
  try
    ShortDateFormat:= 'yyyy-MM-dd';
    LongTimeFormat := 'hh:mm:ss';
    ...
    InsertaFichaje.Parameters.ParamByName('Inicio').Value:= DatetimePicker3.DateTime;
    InsertaFichaje.ExecSQL;
  finally
    ShortDateFormat:= sdt;
    LongTimeFormat := ltf;
  end;
end;

Saludos :)

Hola,

sigue sin guardar la hora, la deja a '00:00:00', pero he metido un parchecito que me soluciona el problema.

Una vez insertado el registro (con inicio = 2014-01-30 00:00:00), realizo una búsqueda al último campo insertado y modifico el campo 'Inicio', como ahora no es ningún parámetro puedo utilizar 'AsDateTime' y si que graba la hora:

Código Delphi [-]
begin
            ModificaInicio.Edit;
            ModificaInicio.FieldByName('Inicio').AsDateTime:=DateTimePicker3.DateTime;
            ModificaInicio.FieldByName('Tipo').AsString:='Prueba1';
            ModificaInicio.Post;
          end;

Muchas gracias por tu ayuda.
saludos