[Yensis22]

Empezado por Caral

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

Relice los cambios pero sin resultados con este codigo en SQL no me permite activar la conexion me manda un error

Table dose not exist (microsoft )(controlador OBDC microsof access ) El motor de base de dato de microsoft jet no puede encontrar la tabla o consulta Generel SQL error debajo esta el codigo que uso cundo manda este error

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)

y de esta forma es la unicaa que me permite activar la la conmsulta pero no me manda ningun resulta cuando lo ejecuto este es el codigo en SQL

Código SQL [-]
SELECT *FROM Equipos
WHERE (Fecha_Inicio>= :fecha1) and (Fecha_Inicio <= :fecha2)

Este codigo me funciona bie pero en paradox y les cambiado los parametro de ftdat y no me funciona por que mi base de dato esta en access tambien les puse el formato ftdatetime y nada

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_Inicial <= :fecha2)[/

Código Delphi [-]
implementation

uses login;

{$R *.dfm}

procedure TFConsuEquiFech.SpeedButton4Click(Sender: TObject);
begin
Close ();
end;


procedure TFConsuEquiFech.DesdeExit(Sender: TObject);
Var
A,B: Tdate;
begin
A:= strtodate(Desde.text);
B:= strtodate(Hasta.text);
if A > B then
 Begin
   Showmessage('La Fecha inicial no Puede ser Mayor que la Final');
   desde.clear;
   Activecontrol:= desde;
 End;
end;

procedure TFConsuEquiFech.HastaExit(Sender: TObject);
Var
A,B: Tdate;
begin
A:= strtodate(Desde.text);
B:= strtodate(Hasta.text);
if B < A then
 Begin
   Showmessage('La Fecha Final no Puede ser Menor que la Inicial');
   Hasta.clear;
   Activecontrol:= Hasta;
 End;
end;

procedure TFConsuEquiFech.FormShow(Sender: TObject);
begin
desde.Clear;
hasta.Text := datetostr(now);
Desde.Text := datetostr(now);
end;




procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);
begin

With ConexionDB do begin

        ShortDateFormat := '#yyyy/mm/dd#';
        QEquiposporFech.active :=false;
        QEquiposporFech.ParamByName('fecha1').Asdatetime:=strtodate(desde.text);
        QEquiposporFech.ParamByName('fecha2').Asdatetime:=strtodate(hasta.text);
        QEquiposporFech.active :=true;
        ShortDateFormat := 'dd/mm/yyyy';

       // QEquiposporFech.Dataset := QEquiposporFech;
     //  QEquiposporFech := Desde;
       //QEquiposporFech := Hasta;

end ;
end;

end.