DatetimePicker buscar desde hasta en SQL

Neftali [Germán.Estévez] · #1 24-11-2022

Cita:

Empezado por giantonti1801

...tengo un inconveniente en relacion una consulta que debo hacer desde delphi 11 a la base de datos y para ellos estoy usando los componente datetimepicker para que dentro de la consulta se pueda señalar la fecha desde hasta.

Código Delphi [-]ADOQuery1.SQL.Add('where FechaCre := '+DateToStr(DateTimePicker1.Date));

al darle click a un evento on chancge no me retorna ningún resultado.

En este caso para obtener los datos entre dos fechas (desde...hasta) como comentas debes usar el operador BETWEEN e indicar las dos fechas.
Si segun la Base de Datos que utilices no puedes usarlo deberás usar algo como:

Código Delphi [-]WHERE (FechaCre >= fecha1) and (FechaCre <= fecha2)

Cita:

Empezado por giantonti1801

Es posible que no me esté regresando ningún resultado porque el campo de la base de dato en de tipo Datetime y esta almacenando tanto la fecha como la hora en el mismo campo y por eso que no me retorna ningún resultado?

Seguramente es por eso y al estar usando un =, sólo te retornaría registros que coincidan exactamente con la fecha y hora.
Lo primero, yo te aconsejaría utilizar parámetros en la consulta, eso te evita todos los problemas relacionados con el formato del campo.

Código Delphi [-]  ADOQuery1.SQL.Add('where FechaCre where Fecha between :fecha1 and :fecha2)');
  ADOQuery1.Parameters.ParamByName('fecha1').Value := DateTimePicker1.Date;
  ADOQuery1.Parameters.ParamByName('fecha2').Value := DateTimePicker2.Date;

Lo segundo es que resuelvas el tema de fecha o FechayHora en los valores. Asegúrate de enviar sólo valores de fecha (sin hora).

[duilioisola] · #2 24-11-2022

Para el tema horas puedes hacer lo siguiente:

Código Delphi [-]procedure Filtra(Desde, Hasta: TDateTime);
begin
  // Quito la hora del la fecha inicial
  Desde := RecodeTime(Desde, 0, 0, 0, 0);
  // Agrego hasta el ultimo milisegundo del día a la hora final
  Hasta := RecodeTime(Hasta, 23, 59, 59, 999);

  ADOQuery1.SQL.Add('where FechaCre where Fecha between :fecha1 and :fecha2)');
  ADOQuery1.Parameters.ParamByName('fecha1').Value := Desde;
  ADOQuery1.Parameters.ParamByName('fecha2').Value := Hasta;
  [...]

giantonti1801 · #3 25-11-2022

Cita:

Empezado por Neftali [Germán.Estévez]

En este caso para obtener los datos entre dos fechas (desde...hasta) como comentas debes usar el operador BETWEEN e indicar las dos fechas.
Si segun la Base de Datos que utilices no puedes usarlo deberás usar algo como:

Código Delphi [-]WHERE (FechaCre >= fecha1) and (FechaCre <= fecha2)

Seguramente es por eso y al estar usando un =, sólo te retornaría registros que coincidan exactamente con la fecha y hora.
Lo primero, yo te aconsejaría utilizar parámetros en la consulta, eso te evita todos los problemas relacionados con el formato del campo.

Código Delphi [-]  ADOQuery1.SQL.Add('where FechaCre where Fecha between :fecha1 and :fecha2)');
  ADOQuery1.Parameters.ParamByName('fecha1').Value := DateTimePicker1.Date;
  ADOQuery1.Parameters.ParamByName('fecha2').Value := DateTimePicker2.Date;

Lo segundo es que resuelvas el tema de fecha o FechayHora en los valores. Asegúrate de enviar sólo valores de fecha (sin hora).

Gracias por la ayuda, fijate algo curioso que esta sucediendo.

Código Delphi [-]procedure TFormConsulta.DateTimePicker1Change(Sender: TObject);
begin
   LabelDesde.Caption := DateToStr(DateTimePicker1.Date);
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('Select * from Tiket');
   ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
   ADOQuery1.Parameters.ParamByName('Fecha1').Value := DateTimePicker1.Date;
   ADOQuery1.Parameters.ParamByName('Fecha2').Value := DateTimePicker2.Date;
   ADOQuery1.Open;
end;

procedure TFormConsulta.DateTimePicker2Change(Sender: TObject);
begin
  LabelHasta.Caption := DateToStr(DateTimePicker2.Date);
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from Tiket');
  ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
  ADOQuery1.Parameters.ParamByName('Fecha1').Value := DateTimePicker1.Date;
  ADOQuery1.Parameters.ParamByName('Fecha2').Value := DateTimePicker2.Date;
  ADOQuery1.Open;
 end;

Código SQL [-]2022-11-24 22:53:00.000
2022-11-25 21:58:00.000
2022-11-26 21:58:00.000
2022-11-27 21:58:00.000
2022-11-28 21:58:00.000

Haciéndolo de esta forma cuando le pongo la fecha desde 24-11-2022 hasta el 24-11-2022 debería mostrarme la operaciones en esta fecha pero no lo hace, es decir no me retorna ningún valor y así siguientemente si lo hago con las otras fecha del 25 hasta el 25 y del 26 hasta el 26. pero si pongo desde 24 hasta el 25 me muestra las operaciones del día 24 y si lo hago desde 25 hasta 26 me muestra la operaciones del día 25.
Pero si lo hago desde 24-11-2022 hasta el 25-11-2022

[duilioisola] · #4 25-11-2022

El problema es la hora.

Modifica la hora de la fecha que utilizas como parámetro.

Código Delphi [-]procedure TFormConsulta.DateTimePicker1Change(Sender: TObject);
begin
  LabelDesde.Caption := DateToStr(DateTimePicker1.Date);
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date);
end;

procedure TFormConsulta.DateTimePicker2Change(Sender: TObject);
begin
  LabelHasta.Caption := DateToStr(DateTimePicker2.Date);
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date);
 end;

procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime);
begin
  /// Modifico la hora de las fechas para abarcar el dia completo
  /// DESDE = dd/mm/yyyy **00:00:00**
  /// HASTA = dd/mm/yyyy **23:59:59**

  // Quito la hora del la fecha inicial
  Desde := RecodeTime(Desde, 0, 0, 0, 0);
  // Agrego hasta el ultimo milisegundo del día a la hora final
  Hasta := RecodeTime(Hasta, 23, 59, 59, 999);

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from Tiket');
  ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
  ADOQuery1.Parameters.ParamByName('Fecha1').Value := Desde;
  ADOQuery1.Parameters.ParamByName('Fecha2').Value := Hasta;
  ADOQuery1.Open;
end;

giantonti1801 · #5 25-11-2022

Cita:

Empezado por duilioisola

El problema es la hora.

Modifica la hora de la fecha que utilizas como parámetro.

Código Delphi [-]procedure TFormConsulta.DateTimePicker1Change(Sender: TObject);
begin
  LabelDesde.Caption := DateToStr(DateTimePicker1.Date);
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date);
end;

procedure TFormConsulta.DateTimePicker2Change(Sender: TObject);
begin
  LabelHasta.Caption := DateToStr(DateTimePicker2.Date);
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date);
 end;

procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime);
begin
  /// Modifico la hora de las fechas para abarcar el dia completo
  /// DESDE = dd/mm/yyyy **00:00:00**
  /// HASTA = dd/mm/yyyy **23:59:59**

  // Quito la hora del la fecha inicial
  Desde := RecodeTime(Desde, 0, 0, 0, 0);
  // Agrego hasta el ultimo milisegundo del día a la hora final
  Hasta := RecodeTime(Hasta, 23, 59, 59, 999);

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from Tiket');
  ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
  ADOQuery1.Parameters.ParamByName('Fecha1').Value := Desde;
  ADOQuery1.Parameters.ParamByName('Fecha2').Value := Hasta;
  ADOQuery1.Open;
end;

con mucha pena le pido me ayude a crear es procedimiento

Código Delphi [-]procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime);

[duilioisola] · #6 25-11-2022

No entiendo la petición... ya está creado en el ejeplo:
Lo único que debes revisar es si el SQL es el que deseas.

Código Delphi [-]procedure TFormConsulta.DateTimePicker1Change(Sender: TObject);
begin
  LabelDesde.Caption := DateToStr(DateTimePicker1.Date);
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date); >>>-------------+
end;                                                                  |
                                                                      |
procedure TFormConsulta.DateTimePicker2Change(Sender: TObject);       |
begin                                                                 |
  LabelHasta.Caption := DateToStr(DateTimePicker2.Date);              |
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date); >>>-------------+
end;                                                                  |
                                                                      |
procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime); <<<----------+
begin
  /// Modifico la hora de las fechas para abarcar el dia completo
  /// DESDE = dd/mm/yyyy **00:00:00**
  /// HASTA = dd/mm/yyyy **23:59:59**

  // Quito la hora del la fecha inicial
  Desde := RecodeTime(Desde, 0, 0, 0, 0);
  // Agrego hasta el ultimo milisegundo del día a la hora final
  Hasta := RecodeTime(Hasta, 23, 59, 59, 999);

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from Tiket');
  ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
  ADOQuery1.Parameters.ParamByName('Fecha1').Value := Desde;
  ADOQuery1.Parameters.ParamByName('Fecha2').Value := Hasta;
  ADOQuery1.Open;
end;

giantonti1801 · #7 25-11-2022

Cita:

Empezado por duilioisola

No entiendo la petición... ya está creado en el ejeplo:
Lo único que debes revisar es si el SQL es el que deseas.

Código Delphi [-]procedure TFormConsulta.DateTimePicker1Change(Sender: TObject);
begin
  LabelDesde.Caption := DateToStr(DateTimePicker1.Date);
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date); >>>-------------+
end;                                                                  |
                                                                      |
procedure TFormConsulta.DateTimePicker2Change(Sender: TObject);       |
begin                                                                 |
  LabelHasta.Caption := DateToStr(DateTimePicker2.Date);              |
  Filtra(DateTimePicker1.Date, DateTimePicker2.Date); >>>-------------+
end;                                                                  |
                                                                      |
procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime); <<<----------+
begin
  /// Modifico la hora de las fechas para abarcar el dia completo
  /// DESDE = dd/mm/yyyy **00:00:00**
  /// HASTA = dd/mm/yyyy **23:59:59**

  // Quito la hora del la fecha inicial
  Desde := RecodeTime(Desde, 0, 0, 0, 0);
  // Agrego hasta el ultimo milisegundo del día a la hora final
  Hasta := RecodeTime(Hasta, 23, 59, 59, 999);

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from Tiket');
  ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
  ADOQuery1.Parameters.ParamByName('Fecha1').Value := Desde;
  ADOQuery1.Parameters.ParamByName('Fecha2').Value := Hasta;
  ADOQuery1.Open;
end;

Exactamente pero no se como hacer para crear un procedimiento nuevo ya que en lo que usted envía está creando un procedimiento nuevo

Código Delphi [-]procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime)

este procedimiento no puedo copiarlo de aqui y pegarlo en el Unit porque me da problema asumo que debo crear el procedimiento manualmente para luego llamarlo y es justamente esto que no se como hacerlo. aunque lo busque por todo lado pero no encontré nada.

[duilioisola] · #8 25-11-2022

Vale, entiendo tu problema.
Debes copiarlo a tu unit y luego ponerlo en la definicion de la clase TFormConsulta dentro de la parte private o public.

private: solo se podrá utilizar dentro de la clase (a efectos prácticos, no podrás llamarlo desde otros sitios)
public: otros objetos podrán llamarlo mediante TFormConsulta.Filtrar(...).

Ejemplo para un formulario llamado "Form1" que en su parte privada define el procedimiento Filtrar().
Si quieres más información deberás aprender qué significa interface (donde se define lo que hay en la unidad) / implementation (donde se implementa el codigo que ejecuta cada cosa definida).

Código Delphi [-]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure Filtra(Desde, Hasta: TDateTime);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Filtra(Desde, Hasta: TDateTime);
begin
  [...]
end;

end.

Neftali [Germán.Estévez] · #9 25-11-2022

Cita:

Empezado por giantonti1801

Haciéndolo de esta forma cuando le pongo la fecha desde 24-11-2022 hasta el 24-11-2022 debería mostrarme la operaciones en esta fecha pero no lo hace, es decir no me retorna ningún valor

Eso es porque ambos llevan la misma fecha y hora:
Por ejemplo estás haciendo:

Código SQL [-]... BETWENN 14/11/2022 15:23:23 AND  14/11/2022 15:23:23

Para corregirlo debes añadir lo que te dicho [duilioisola] aquí, para conseguir:

Código SQL [-]... BETWENN 14/11/2022 00:00:00 AND  14/11/2022 23:59:59

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Números impares desde 1 hasta 1000	Daniel2622	Lazarus, FreePascal, Kylix, etc.	29	25-04-2017 03:55:58
Problema con consulta fecha desde hasta access delphi 7	Yensis22	SQL	2	26-08-2008 19:05:34
Consulta Desde->Hasta	Luis M.	Firebird e Interbase	6	30-07-2008 19:40:34
calcular el nro de dias, desde una fecha hasta la actual.	abraham	SQL	13	01-08-2007 17:36:42
Reporte (Desde : Hasta)	magnu9	SQL	9	16-11-2006 18:36:19