Problema al filtrar un Query entre fechas

[judit25]

Gracias

Probé con la opción que me diste, pero resulta que delphi no reconoce CDATE, seguiré probando a ver si doy con la solución.

PSD: No soy Man, soy Woman

[[Lepe]]

La opción de vtdeleon es la "más limpia". Normalmente los motores de bases de datos esperan la fecha en formato mm/dd/yyyy, si no cuadra en ese formato, lo intenta encajar con dd/mm/yyyy, el problema viene cuando se tiene dos parámetros de fecha (fecha_inicio y fecha_fin), las dos pueden encajar en un formato, en los dos formatos, o incluso puede llegar a tomar una fecha en un formato y la otra en el otro formato....

Resumen: Usa la fórmula de vtdeleon y delphi pasará las fechas en el formato adecuado según el motor de bases de datos que uses.

Saludos y espero que te ayude a entender el tema .

[judit25]

Hola!

Gracias

Aplicando lo de los parámetros como me sugirió vtdeleon y Lepe el código a funcionado, le dejo el código por si alguien tiene el mismo problema.

Código Delphi [-]
Query1.Close();
Query1.SQL.Text := 'SELECT Nombre_Campos FROM TDocumento WHERE Fecha_Emision between :PFechad and :PFechah Order by Numero';
Query1.ParamByName('PFechad').AsDateTime := DateTimePicker1.DateTime;
Query1.ParamByName('PFechah').AsDateTime := DateTimePicker1.DateTime;
Query1.Open();

Para que funcionara con Access tuve que definir los parámetros como DateTime

Saludos

Gracias a todos por sus respuestas

[*Caro*]

Hola Lepe una preguntita cuando usaba los componentes de BDE con la forma que indica vtdeLeon todo bien me funciono perfectamente, pero ahora que estoy utilizando ADO tuve problemas no me devolvia ningun valor lo hice de la siguiente forma:

Código Delphi [-]
   qry.Close;
   qry.SQL.Text:='SELECT * FROM tabla WHERE fecha=:Param1';
   qry.Parameters.ParamByName('Param1').DataType:=ftDate;
   qry.Parameters.ParamByName('Param1').Value:=datepick1.Date; 
   qry.Open;

de esa forma no me saca ningun resultado pero si hago esto si me devuelve resultados

Código Delphi [-]
   qry.Close;
   qry.SQL.Text:='SELECT * FROM tabla WHERE fecha=:Param1';
   qry.Parameters.ParamByName('Param1').DataType:=ftDate;
   qry.Parameters.ParamByName('Param1').Value:=FormatDateTime ('mm/dd/yyyy',datepick1.Date);
   qry.Open;

dandole formato si muestra resultados hice la prueba con access y sqlServer y funciona, pero a mi me gustaria que funcionara de la otra forma, sin darle el formato asi como lo dices tu

Empezado por Lepe

........................................
Resumen: Usa la fórmula de vtdeleon y delphi pasará las fechas en el formato adecuado según el motor de bases de datos que uses.
........................................

Saludos y que tengan un bonito dia

[judit25]

Hola Caro!

Intenta en vez de ftDate y datepick1.Date usar ftDateTime y datepick1.DateTime, tuve problema con Access usando solo Date y al utlizar DateTime me funcionó, intenta a ver si eso resuelve tu problema.

Saludos

[*Caro*]

Muchisimas gracias por responder judit25

Empezado por judit25

...............
Intenta en vez de ftDate y datepick1.Date usar ftDateTime y datepick1.DateTime,
................
Saludos

hice el cambio pero tampoco me devuelve resultados, por si acaso mis campos si son de tipo Fecha.

[Rayku]

Código Delphi [-]
cn.BeginTrans;
    cm := TADOCommand.Create(nil);
    cm.Connection := cn;
    cm.CommandText := ' UPDATE TIngresoDetalle SET '+
                      ' Tipo='+ QuotedStr(Tipo)+ ','+
                      ' Cantidad='+ Cantidad+ ','+
                      ' Monto='+ Monto+
                      ' WHERE  FechaLlegada=CDate('+QuotedStr(FechaLlegada)+') AND SerieF='+ QuotedStr(SerieF)+' AND NroFactura='+ QuotedStr(NroFactura)+' AND SerieG='+ QuotedStr(SerieG)+' AND NroGuia='+ QuotedStr(NroGuia)+'AND IDTipo='+ QuotedStr(IDTipo);
    cm.Execute;
    cn.CommitTrans;

espero q esto te sirva

[*Caro*]

Hola Rayku, funciona pero solo en access y no en sqlServer porque no existe dicha función CDate, yo quisiera usar parametros justamente para no depender de una base de Datos y su respectivo formato de fecha, muchisimas gracias por responder.

Saludos

[vtdeleon]

Saludos

Empezado por judit

Para que funcionara con Access tuve que definir los parámetros como DateTime

En realidad es asi que debe ser (DateTime) pues AsDate no exites, el codigo que habia puesto lo hice de memoria y no me acordaba.

Empezado por Caro

pero si hago esto si me devuelve resultados

Código Delphi [-]
   qry.Close;
   qry.SQL.Text:='SELECT * FROM tabla WHERE fecha=:Param1';
   qry.Parameters.ParamByName('Param1').DataType:=ftDate;
   qry.Parameters.ParamByName('Param1').Value:=FormatDateTime ('mm/dd/yyyy',datepick1.Date);
   qry.Open;

dandole formato si muestra resultados hice la prueba con access y sqlServer y funciona, pero a mi me gustaria que funcionara de la otra forma,

Con Ado es diferente, eso es lo malo que he visto de esos componentes, a veces hay que especificarle el tipo del dato.

Empezado por Rayku

Código Delphi [-]
cn.BeginTrans;
    cm := TADOCommand.Create(nil);
    cm.Connection := cn;
    cm.CommandText := ' UPDATE TIngresoDetalle SET '+
                      ' Tipo='+ QuotedStr(Tipo)+ ','+
                      ' Cantidad='+ Cantidad+ ','+
                      ' Monto='+ Monto+
                      ' WHERE  FechaLlegada=CDate('+QuotedStr(FechaLlegada)+') AND SerieF='+ QuotedStr(SerieF)+' AND NroFactura='+ QuotedStr(NroFactura)+' AND SerieG='+ QuotedStr(SerieG)+' AND NroGuia='+ QuotedStr(NroGuia)+'AND IDTipo='+ QuotedStr(IDTipo);
    cm.Execute;
    cn.CommitTrans;

espero q esto te sirva

Aqui volvemos al mismo problema de antes, pues estas enviando los datos directamente. Yo insisto en el uso de parametros, dejar que Delphi y la base de datos se encarguen del tipo de dato.