Consulta rango de fechas con ADO y Access
 

Buenas, necesito consultar una bd access con ADO y obtener registros con un rango de fechas.
He buscado en el foro y un par de soluciones que he probado no me han resultado.

Tengo el siguiente codigo el cual al ejecutarlo me dice que el parametro pdate1 no existe

Código Delphi [-]
    Qry_ADO.SQL.Clear;
    Qry_ADO.SQL.Add( 'SELECT * FROM checkinout ');
    Qry_ADO.SQL.Add( 'Where checktime between : pdate1 and : pdate2' );
    Qry_ADO.SQL.Add( 'ORDER by userid, checktime' );
    Qry_ADO.Parameters.ParamByName('pdate1').Value := FormatDateTime('dd/mm/yyyy', edt_Desde.Date );
    Qry_ADO.Parameters.ParamByName('pdate2').Value := FormatDateTime('dd/mm/yyyy', edt_Hasta.Date );
    Qry_ADO.Open;

que puede estar mal ??
Hay que agregar los parametros en el componente adoquery ??

Gracias

creo que el problema esta en el espacio al declarar las variables que le pasas, no deben tener espacios

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

coge el icono pero seria los puntos seguidos del nombre de la variable

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 :o )

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

En el codigo, los tengo sin espacios..

Gracias !!

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

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 !!!

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..