Consulta por fecha query delphi 7

[[Caral]]

Hola
Bueno, no entiendo.
Primero que nada no se por que la fecha la pones en un edit, pudiendo usar un datetimepicker.
segundo, nunca va a encontrar desde o hasta destro del query, ese es un error.
tercero, para que usar variables a y b para lo mismo.
No se, tal vez si me explicas.
Saludos

[Yensis22]

lo de la etiquetas ye entendi pero de lo que me dise del codigo no como puedo resolver este problema

[*Caro*]

Hola Yenis22, los errores que te marcan es por esta parte.

Código Delphi [-]
procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);
begin
 With ConexionDB do begin
  QEquiposporFech.active :=false;
  QEquiposporFech.ParamByName('fecha1').AsDate:=StrToDate(desde.text);
  QEquiposporFech.ParamByName('fecha2').AsDate:=StrToDate(hasta.text);
  QEquiposporFech.active :=true;
  // QEquiposporFech.Dataset := QEquiposporFech;
  QEquiposporFech := Desde;
  QEquiposporFech := Hasta;
 end; //Le falta este end del With
end;

Le falta el end; del With y no puedes asignar un MaskEdit a un Query, esas dos lineas estan demas.

Saluditos

[Yensis22]

Este codigo me funciona bien pero con una base de dato en paradox y esque este lo tengo que entregar en acces pero cundo los desabilite la dos opciones que me dijiste que estan de mas me mada este error pero que con esa dos ocpciones es que funciona en paradox perfetamente.

este es el erroe proyect facturacipon.exe raised exception class EDBEngineError with messeger "general SQL Error (Microsoft) (Controlador ODBC Microsoft Access) Formato de fecha u hora no nvalido (null)". Process stopped. use step o run continue. y esta el la pater que se nala en el codigo ( QEquiposporFech.active :=true; )

Código Delphi [-]
procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);
begin
With ConexionDB do begin
        QEquiposporFech.active :=false;
        QEquiposporFech.ParamByName('fecha1').AsDate:=StrToDate(desde.text);
        QEquiposporFech.ParamByName('fecha2').AsDate:=StrToDate(hasta.text);
        QEquiposporFech.active :=true;
       // QEquiposporFech.Dataset := QEquiposporFech;
       // QEquiposporFech := Desde;
       //QEquiposporFech := Hasta;
end ;
end;
end.

[tcp_ip_es]

No es por nada pero ¿por qué escribes comiéndote letras?

Este codigo me funciona bien pero con una base de dato en paradox y esque este lo tengo que entregar en acces pero cundo los desabilite la dos opciones que me dijiste que estan de mas me mada este error pero que con esa dos ocpciones es que funciona en paradox perfetamente.

y más....

lo de la etiquetas ye entendi pero de lo que me dise del codigo no como puedo resolver este problema

y asi podría seguir... no me lo tomes a mal lo mismo no hablas/escribes el castellano/español, entonces se entendería....

bueno a lo que vamos... estas intentando mandar un formato date y lo que tienes en access es un datetime, ya que un campo fecha sólo como tal no existe en access, por lo menos en la versión que tengo yo instalada(Access 2000) así que es bien sencillo....

Código Delphi [-]
 QEquiposporFech.active :=false;
 QEquiposporFech.ParamByName('fecha1').Asdatetime:=strtodatetime(desde.text);
 QEquiposporFech.ParamByName('fecha2').Asdatetime:=strtodatetime(hasta.text);
  QEquiposporFech.active :=true;

Espero que te sirva, cuéntanos como te ha ido....

P.D. Por cierto los parametros los tendrías que cambiar el tipo de ftDate a ftDateTime

[Yensis22]

[quote][/Ya realice los cambio, pero no medan resultada si ejecuto la consulta con interbalos de fecha no haces nada no tira ningun mensaje ni datos tampoco, si la ejecuto en planco me tira este error QUOTE]

"//" is not a valid invalin date date and time

Pero es que en EditMask no esta el tipo de formato dataime y el que tengo es e date y le es relizado varios cambios pero no es tenido resultados y es que en access el unico formato de facha es Fecha/Hora. tambie cambie los paramtros al tipo ftdatetime y relice uno cambios en el coddigo ch

Código Delphi [-]
var
  FConsuEquiFech: TFConsuEquiFech;

implementation

uses login;

{$R *.dfm}

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


procedure TFConsuEquiFech.DesdeExit(Sender: TObject);
Var
A,B: Tdate;
begin
A:= strtodatetime(Desde.text);
B:= strtodatetime(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:= strtodatetime(Desde.text);
B:= strtodatetime(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 := datetimetostr(now);
Desde.Text := datetimetostr(now);
end;




procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);
begin
With ConexionDB do begin
        QEquiposporFech.active :=false;
        QEquiposporFech.ParamByName('fecha1').Asdatetime:=strtodatetime(desde.text);
        QEquiposporFech.ParamByName('fecha2').Asdatetime:=strtodatetime(hasta.text);
        QEquiposporFech.active :=true;
       // QEquiposporFech.Dataset := QEquiposporFech;
      // QEquiposporFech := Desde;
       //QEquiposporFech := Hasta;

end ;
end;

end

[Yensis22]

[quote][/Ya realice los cambio, pero no medan resultada si ejecuto la consulta con interbalos de fecha no haces nada no tira ningun mensaje ni datos tampoco, si la ejecuto en planco me tira este error QUOTE]

"//" is not a valid invalin date date and time

Pero es que en EditMask no esta el tipo de formato dataime y el que tengo es e date y le es relizado varios cambios pero no es tenido resultados y es que en access el unico formato de facha es Fecha/Hora. tambie cambie los paramtros al tipo ftdatetime y relice uno cambios en el coddigo ch

Código Delphi [-]
var
  FConsuEquiFech: TFConsuEquiFech;

implementation

uses login;

{$R *.dfm}

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


procedure TFConsuEquiFech.DesdeExit(Sender: TObject);
Var
A,B: Tdate;
begin
A:= strtodatetime(Desde.text);
B:= strtodatetime(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:= strtodatetime(Desde.text);
B:= strtodatetime(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 := datetimetostr(now);
Desde.Text := datetimetostr(now);
end;




procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);
begin
With ConexionDB do begin
        QEquiposporFech.active :=false;
        QEquiposporFech.ParamByName('fecha1').Asdatetime:=strtodatetime(desde.text);
        QEquiposporFech.ParamByName('fecha2').Asdatetime:=strtodatetime(hasta.text);
        QEquiposporFech.active :=true;
       // QEquiposporFech.Dataset := QEquiposporFech;
      // QEquiposporFech := Desde;
       //QEquiposporFech := Hasta;

end ;
end;

end

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

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