Buscar por rango de fechas en access

[Kamael]

Mi problema es que al buscar con este codigo en la tabla access me da el siguiente error :" No coinciden lostipos de datos en la expresion de criterios".

El Codigo :
Query2.SQL.Text := ('SELECT * FROM Kilometros ');
Query2.sql.add('Where Fech between');
Query2.sql.add(QuotedStr(FormatDateTime('mm/dd/yyyy',Dtpc1.Date)));
Query2.sql.add('and '+QuotedStr(FormatDateTime('mm/dd/yyyy',DtpC2.Date)));

query2.SQL.Add('Order by Fech');
Query2.Open;
Query2.Filter := 'Mat = '+QuotedStr(Cb1.Text);
Query2.Filtered := True;

Como puedo hacerlo ?
En Paradox me funciona perfectamente pero en acces no.
P.D. soy novato en esto

[marcoszorrilla]

En Access las fechas deben de ir entre almohadillas ##
Un Saludo.

[Kamael]

Tambien las puse pero no funciona.
Gracias por tu respuesta.

[gerardus]

Siempre que uses fechas en query's, sea cual sea la base de datos, te recomiendo usar parametros.
Casi cada DB tiene su formato de fecha distinto en SQL (Aunque se empiezen a estandarizar hacia ISO: "yyyy-mm-dd").
De esta forma tu codigo sera más facilemente portable entre bases de datos.

Query2.SQL.Text := ('SELECT * FROM Kilometros ');
Query2.sql.add('Where Fech between :fecha1 and :fecha2');
Query2.parambyname('fecha1').asdatetime : = dtpc1.Date
Query2.parambyname('fecha2').asdatetime : = dtpc2.Date

Saludos,

Gerard.

[Kamael]

He probado tu codigo y al compilar me dice :"Undeclared identifier PramByName". Donde me estoy equivocando? .
Un saludo

[marcoszorrilla]

Tienes que incluir la unidad DbTables.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, DBCtrls, ExtCtrls, DBTables, Db;

Un Saludo.

[gerardus]

Empezado por Kamael

He probado tu codigo y al compilar me dice :"Undeclared identifier PramByName". Donde me estoy equivocando? .

Tu no te equivocas. Fui yo

Es ParamByName

A ver cuando ponemos un editor de mnesajes con comprobación de sintaxis.

Saludos,

Gerard.

[Kamael]

La unidad DBTables ya estaba incluida pero tampoco funciona. El codigo es este :

Query2.SQL.Text := ('SELECT * FROM Kilometros ');
Query2.sql.add('Where Fech between :Fecha1 and :Fecha2');
Query2.Parameters.ParamByName('fecha1').Value := dtpc1.Date ;
Query2.Parameters.ParamByName('fecha2').Value := dtpc2.Date ;
query2.SQL.Add('Order by Fech');
Query2.Open;

Solo me queda solucionar este problema.
Perdonad mi pesadez.

[gerardus]

Que es lo que no funciona exactamente? No compila o no filtra? Si hay error, cual es el mensaje?

[gerardus]

Por cierto, veo que los parametros de un TADOQuery no son TParams "normales" del Delphi, sino que usan solo variantes (que miedo).
Pido disculpas, pensaba que funcionaban como todo el resto.
Podrias probar a poner un valor string en el .value del parametro (ya se que te estoy diciendo lo contrario que te dije al principio )

Query2.Parameters.ParamByName('fecha1').Value := FormatDateTime('dd/mm/yyyy', dtpc1.Date);

o

Query2.Parameters.ParamByName('fecha1').Value := DateToStr(dtpc1.Date);

Saludos,

Gerard.

[Kamael]

Muchisimas gracias Gerardus. Sin ti no lo abria conseguido. Ahora funciona todo coreectamente.
Un saludo y repito muchas gracias.