Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Problema con consulta fecha desde hasta access delphi 7 (https://www.clubdelphi.com/foros/showthread.php?t=59420)

Yensis22 26-08-2008 19:40:00

Problema con consulta fecha desde hasta access delphi 7
 
Cita:

Ya realice los cambio, pero no medan resultada si ejecuto la consulta con interbalos de fecha no me haces nada no tira ningun mensaje ni datos tampoco, si la ejecuto en Blanco me tira este error
Cita:

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

Pero es que en EditMask no se encuentra el tipo de formato dataime y el que tengo es el date y le es relizado varios cambios pero no e tenido ningun resultados y es que en access el unico formato de facha es Fecha/Hora. Y tambie cambie los paramtros al tipo ftdatetime y realice uno cambios de coddigo verificalo por fovor



Código Delphi [-]
var  FConsuEquiFech: TFConsuEquiFech;implementationuses login;{$R *.dfm}procedure TFConsuEquiFech.SpeedButton4Click(Sender: TObject);beginClose ();end;procedure TFConsuEquiFech.DesdeExit(Sender: TObject);VarA,B: Tdate;beginA:= 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);VarA,B: Tdate;beginA:= 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);begindesde.Clear;hasta.Text := datetimetostr(now);Desde.Text := datetimetostr(now);end;procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);beginWith 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

y no se con resolver este problema

Caral 26-08-2008 19:42:38

Hola
Es la misma pregunta que esta aqui.
Revisa las respuestas en ese hilo.
Saludos

GustavoCruz 26-08-2008 20:05:34

Hola Yensis22
El problema se soluciona de la siguiente forma: pones los dos datetimepicker,
y le dices al usuario que introduzca el rango de fechas.

la consulta serìa la siguiente:

Código Delphi [-]
fecha1:=formatdatetime('mm/dd/yyyy',datetimepicker.date);fecha2:=formatdatetime('mm/dd/yyyy',datetimepicker.date);

Código Delphi [-]
'select * from tabla where fecha between #'+fecha1+'# and  #'+fecha2+'#'
no importa el orden que el usuario le asigne a las fechas 1 y 2... prueba y me cuentas...


La franja horaria es GMT +2. Ahora son las 01:03:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi