ayuda con query para Mysql fecha.

[vroa74]

Estoy haciendo una busqueda atravez de fecha uso 2 campos fecha
cuando las fecha son iguales busca la fecha que coincida con esa fecha cuando no busca por rago de fecha
mas sin embargo no esta haciendo nada de lo que le pido

1er inconsistencia es: cuando marco dos fecha de difereste mes teniendo en cuenta que la primera es menor que la segunda la busqueda no me entrega registros y se que hay registros en esa fecha. vea la image Aqui

2do inconsistencia es: marco dos fecha dentro del mismo mes que se que hay datos, me muestra los datos mas sin embargo me muestra datos que no esta dentro de la busqueda. Vea la Imagen Aqui

3er inconsistencia es: busco una fecha determinada y ambos componentes les pogo la misma fecha que se que si existe y no me devuelve nada la busqueda. Vea la Imagen Aqui.


Les agrego el codigo esperando que me puedan ayudar.

Código Delphi [-]
 if Form1.MyQuery1.Active then
 begin
   form1.MyQuery1.Close;
   form1.MyQuery1.SQL.Clear;
 end;

  with form1 do
  begin
          MyQuery1.SQL.Add('SELECT');
          MyQuery1.SQL.Add('servicios.`status`,');
          MyQuery1.SQL.Add('servicios.id_ser,');
          MyQuery1.SQL.Add('servicios.f_recep,');
          MyQuery1.SQL.Add('servicios.f_ini,');
          MyQuery1.SQL.Add('servicios.nombre,');
          MyQuery1.SQL.Add('servicios.ofi_dir,');
          MyQuery1.SQL.Add('servicios.f_ter,');
          MyQuery1.SQL.Add('servicios.ob_sol,');
          MyQuery1.SQL.Add('servicios.m_correc,');
          MyQuery1.SQL.Add('servicios.m_prev,');
          MyQuery1.SQL.Add('servicios.software,');
          MyQuery1.SQL.Add('servicios.red,');
          MyQuery1.SQL.Add('servicios.`diseño`,');
          MyQuery1.SQL.Add('servicios.soporte,');
          MyQuery1.SQL.Add('servicios.impresion,');
          MyQuery1.SQL.Add('servicios.sol,');
          MyQuery1.SQL.Add('servicios.sol_via_email,');
          MyQuery1.SQL.Add('servicios.sol_via_ofi,');
          MyQuery1.SQL.Add('servicios.sol_via_oral,');
          MyQuery1.SQL.Add('servicios.sol_via_tel,');
          MyQuery1.SQL.Add('servicios.sol_via_otro,');
          MyQuery1.SQL.Add('servicios.sol_via_ofi_num,');
          MyQuery1.SQL.Add('servicios.sol_via_memo,');
          MyQuery1.SQL.Add('servicios.ac_rea,');
          MyQuery1.SQL.Add('servicios.obser,');
          MyQuery1.SQL.Add('servicios.respon,');
          MyQuery1.SQL.Add('servicios.dir_resp,');
          MyQuery1.SQL.Add('servicios.img');
          MyQuery1.SQL.Add('FROM');
          MyQuery1.SQL.Add('servicios');
          MyQuery1.SQL.Add('WHERE');
          if JvDateTimePicker1.Date = JvDateTimePicker2.Date then
                MyQuery1.SQL.Add('servicios.f_ini = '+ QuotedStr(DateToStr(JvDateTimePicker1.Date)) +'')
             else begin
                MyQuery1.SQL.Add('(servicios.f_ini >='+ QuotedStr(DateToStr(JvDateTimePicker1.Date))  +') AND  (servicios.f_ini <='+ QuotedStr(DateToStr(JvDateTimePicker2.Date))  +')');
             end;

          //ordenar
          MyQuery1.SQL.Add('ORDER BY');
          MyQuery1.SQL.Add('servicios.f_ini');

          MyQuery1.Open; // abrir query

[[enecumene]]

Hola, ¿Por qué no utilizas mejor parámetros?, ¿los campos de fechas son campos tipo date?, porque veo que conviertes una fecha a string cosa que no le veo sentido .

Saludos.

[vroa74]

Mucha gracias,gracis por tu comentario mas embargo me gustaria que me dieras un ejemplo si pudieras.

Encontre el problema principal mas estoy buscando ayuda para solucionarlo
el servidor mysql tiene un formato de fecha YYYY/MM/DD delphi tima un valor del sistema de tipo DD/MM/YYYY ya intente cambiarle el formato al componente de esta forma

Código Delphi [-]
JvDateTimePicker1.Format :='yyyy/MM//dd'

cuendo ejecuto el query y lo visualizo queda de nuevo DD/MM/YYYY.
Eso me da la idea que debo cambiarle el formato a la fecha en punto mas bajo cambiarle el formato de fecha al sistema, estoy buscando como.

me imagino que algo como system.date.format :='YYYY/MM/DD';
mas tambien puede ser iguarl de complicado cambarle la variable a mysql para que en lugar de ser %Y%M%D sea %D %M %Y

sigo buscando si encuantro la solucio la publicare mientras sigo buscando y les pido ayuda.

[[enecumene]]

Hola, el formato por default de MySQL no es YYYY/MM/DD sino yyyy-MM-dd, por lo tanto debería ser así:

Código Delphi [-]
JvDateTimePicker1.Format :='yyyy-MMM-dd'

Saludos.

[vroa74]

Mychas gracias por tu comentario.
ya lo he eintentado mas sin embargo despues de ejecutar query lo envio a un campo memo
y siguo observo que aunque le cambio el modo al momento de enviarlo al query sigue quedado de la forma

dd/MM/yyyy

te agradesco mucho que contestaras mas sigo en la busqueda de la solucion

[[enecumene]]

Hola, hay algo que no entiendo, pones lo siguiente:

Código Delphi [-]
if JvDateTimePicker1.Date = JvDateTimePicker2.Date then
                MyQuery1.SQL.Add('servicios.f_ini = '+ QuotedStr(DateToStr(JvDateTimePicker1.Date)) +'')
             else begin
                MyQuery1.SQL.Add('(servicios.f_ini >='+ QuotedStr(DateToStr(JvDateTimePicker1.Date))  +') AND  (servicios.f_ini <='+ QuotedStr(DateToStr(JvDateTimePicker2.Date))  +')');
             end;

¿el campo servicios.f_ini es un campo Date o string?, por qué no intentas de esta manera?:

Código Delphi [-]
if JvDateTimePicker1.Date = JvDateTimePicker2.Date then
            begin
                MyQuery1.SQL.Add('servicios.f_ini = :fecha');
                MyQuery1.ParamByName('fecha').AsDate := JvDateTimePicker1.Date;
             end else begin
                MyQuery1.SQL.Add('servicios.f_ini >= :inicio AND servicios.f_ini <= :final');
                MyQuery1.ParamByName('inicio').AsDate := JvDateTimePicker1.Date;
                MyQuery1.ParamByName('final').AsDate := JvDateTimePicker2.Date;
             end;
   end;

Saludos.