Consulta entre fechas con ADO

[radenf]

Hola amigos:

Tengo el siguiente código desarrollado en Delphi 2007, para buscar entre fechas (campos tipo date) en una base de datos Access 2003, a la que accedo mediante ADOQuerys:

Código SQL [-]
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select * from examenes where fechaexamen between :F1 And :F2');
Query2.Parameters.ParamByName('F1').Value:= DateEdit1.Date;
Query2.Parameters.ParamByName('F2').Value:= DateEdit2.Date;
Query2.Open;

y al ejecutarlo me arroja el siguiente error:

"No coinciden los tipos de datos en la expresión de criterios"

¿Puede alguien por favor decirme en qué me estoy equivocando?

Saludos y desde ya muchas gracias

[marcoszorrilla]

Prueba:

Código Delphi [-]
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select * from examenes where fechaexamen between :F1 And :F2');
Query2.Parameters.ParamByName('F1').AsDate:= DateEdit1.Date;
Query2.Parameters.ParamByName('F2').AsDate:= DateEdit2.Date;
Query2.Open;

O esta otra
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select * from examenes where fechaexamen between :#F1# And :#F2#');
Query2.Parameters.ParamByName('F1').Value:= DateEdit1.Date;
Query2.Parameters.ParamByName('F2').Value:= DateEdit2.Date;
Query2.Open;

Un Saludo.

[radenf]

Muchas gracias marcoszorrilla por tu pronta respuesta.

Al usar el primer código no me acepta la declaración asDate (Identificador no declarado) y al utilizar la segunda me entrega un error de Query2. parámetro F1 no encontrado, a pesar de que si aparece en el AdoQuery.
Tengo en el uses las Dateutils.

Salu2

[microbiano]

Código Delphi [-]
qry_ventas.SQL.Add('SELECT FACTURA.Idfactura, FACTURA.nofactura, FACTURA.Fecha,');
    qry_ventas.SQL.Add('FACTURA.CodCliente, clientes.RAZON_SOCIAL, FACTURA.Terminos,');
    qry_ventas.SQL.Add('FACTURA.CodVendedor, FACTURA.montosubtotal, FACTURA.descuento,');
    qry_ventas.SQL.Add('FACTURA.montodescuento, FACTURA.iva, FACTURA.montoiva, FACTURA.montototal,');
    qry_ventas.SQL.Add('FACTURA.pagacon, FACTURA.cambio FROM FACTURA LEFT JOIN clientes ON FACTURA.CodCliente=clientes.Idcliente');

    qry_ventas.SQL.Add('where fecha between : pfechainicio and : pfechafin ORDER BY 1');

    qry_ventas.Parameters.ParamByName('pfechainicio').Value : =FormatDateTime('dd/mm/yyyy',freporte_ventas.dtp_fecha_ini.Date);
    qry_ventas.Parameters.ParamByName('pfechafin').Value: = FormatDateTime('dd/mm/yyyy',freporte_ventas.dtp_fecha_fin.Date);
    qry_ventas.Open;

recuerda que ests linesas tiene que los paramentros tienen que ir juntos es decir, dospunto y la variabel lo separe para que aparecieran correctamente

[radenf]

Muchas gracias microbiano, probé tu código y ya no me arroja error, pero selecciona todos los registros de la tabla, sin importar la fecha.

Salu2

[microbiano]

que tal si pones el codigo que ahora usas? para ver como esta

[radenf]

Solucionado.

Modifiqué el código de acuerdo a sus sugerencias y borré el string del AdoQuery. No fue necesario usar el carácter # ni dar un formato inverso a la fecha.

Código utilizado:

Código Delphi [-]
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from examenes where fechaexamen between :F1 And :F2'+ ' and ucase (nombre) like ''%'+UpperCase(Edit1.Text)
+'%''order by nombre');
Query1.Parameters.ParamByName('F1').Value:= FormatDateTime('dd/mm/yyyy',Date1.Date);
Query1.Parameters.ParamByName('F2').Value:= FormatDateTime('dd/mm/yyyy',Date2.Date);
Query1.Open;

Saludos y muchas gracias microbiano y marcoszorrilla.

[marcoszorrilla]

Lo veo lógico, yo no me había fijado que Date1 y 2 eran Edits, es lógico que te diera error.

Yo en estos casos utilizo DateTimePicker.

Un Saludo.