Hola
Empecemos desde el principio:
1- los campos estan mal en la sentencia sql:
fecha inicio y fecha final, deberia ser asi:
Código SQL
[-]
SELECT Cod_Equipos, Equipos, Nombre_Cliente, Descripcion, Marca, Modelo, Serial, Fecha_Inicio, Dat_averia, Status, Fecha_Final
FROM "Equipos.db" Equipos
WHERE (Fecha_Inicio>= :fecha1) and (Fecha_Final <= :fecha2)
2- Access reconoce las fechas con esto #fecha#, de lo contrario te da error.
Por lo tanto se tiene que dar formato a la fecha:
Código Delphi
[-]
procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);
begin
With ConexionDB do begin
ShortDateFormat := '#yyyy/mm/dd#';
QEquiposporFech.active:=false;
QEquiposporFech.ParamByName('fecha1').Value:=strtodate(desde.text);
QEquiposporFech.ParamByName('fecha2').Value:=strtodate(hasta.text);
QEquiposporFech.active :=true;
ShortDateFormat := 'dd/mm/yyyy';
end ;
end;
A ver que pasa.
Saludos