Consulta rango de fechas con ADO y Access

[ecfisa]

Hola.

A golpe de ojo el problema está en la línea,

Código Delphi [-]
Qry_ADO.SQL.Add( 'Where checktime between : pdate1 and : pdate2' );

quita los espacios entre los dos puntos y los nombres de parámetros.

Saludos

Edito: Tal como dijo Sir16. ( No había visto su respuesta )

[lbidi]

Puse los espacios en la pregunta solo para que no salieran los iconos..

En el codigo, los tengo sin espacios..

Gracias !!

[Sir16]

ok,

la otra opcion que podria ser es el tema de tener encapsulados los datos con '' para que cogiera los parametros algo como

Código Delphi [-]

Qry_ADO.SQL.Add( 'Where checktime between '': pdate1'' and '': pdate2''' );

aciendo el escape de poner '00/00/000' y no coger 00/00/0000 las fechas.
Tambien hay el QuotedStr(fecha) ponerlo en el parametro de las fechas

[lbidi]

Gracias Sir16, probare de esa manera.

He probado de la siguiente manera

Código Delphi [-]
    Qry_ADO.SQL.Clear;
    Qry_ADO.SQL.Add( 'SELECT * FROM checkinout c ');
    Qry_ADO.SQL.Add( 'Where c.checktime between ' + '#' + FormatDateTime('mm/dd/yy', edt_Desde.Date ) + '#' );
    Qry_ADO.SQL.Add( 'and ' + '#' + FormatDateTime('mm/dd/yy', edt_Hasta.Date ) + '#' );

y funciona si el rango de fechas tiene mas de 1 dia de diferencia, ahora si los 2 edits son iguales , o sea que quiero buscar datos de un dia solo, no me trae registros..

Tambien he probado con el formato del año con 4 digitos pero no obtengo resultados.

Me enloquece !!!

[lbidi]

Logre hacerlo de esta manera

Código Delphi [-]
    With Qry_ADO do
    begin
        SQL.Clear;
        SQL.Add( 'SELECT * FROM checkinout c ');
        SQL.Add( 'Where Format( c.checktime, "dd/mm/yyyy" ) between ' + QuotedStr( FormatDateTime('dd/mm/yyyy', edt_Desde.Date ) ) );
        SQL.Add( 'and ' + QuotedStr( FormatDateTime('dd/mm/yyyy', edt_Hasta.Date ) ) );
        Open;
    end;

Gracias por las respuestas..