Filtrado en Sql por fechas

[DANIEL1818]

Hola! disculpen las molestias, pero vengo con un problema que no puedo solucionar e hice pruebas con información que encontré en google y en esta pagina pero no tuve éxito.
El problema es: tengo una tabla de productos en ACCESS 2010 el cual tiene titulo del producto, categoria, fecha_inicio, fecha_fin (las fechas son en las que el producto estará disponible), a la hora de filtrar por fechas es cuando tengo el problema. Tengo un Query y un data source conectado al Query, el Query esta activado. Necesitaría si por favor me dan una mano con esto ya que no puedo encontrar las solución.

Mi código en Dephi 2010:

Código Delphi [-]
//Filtro por titulo, NO filtro por categoria, y SÍ filtro por fechas.
if  (Form1.Edit1.Text <> ' ') 
and (Form1.ComboBox1.ItemIndex = -1)
and (CompareDate(EncodeDate(2000,1,1), Form1.DateTimePicker2FechaHasta.Date) <> 0) then 
begin  
     DM.Query_soloTituloConFecha.Close;
     DM.ds_queryCategorias.DataSet:=DM.Query_soloTituloConFecha;
     DM.Query_soloTituloConFecha.Parameters.ParamByName('elString').Value:=Form1.Edit1.Text;
     DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaIni').Value:=DateToStr(Form1.DateTimePicker  1FechaDesde.Date);
     DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaFin').Value:=DateToStr(Form1.DateTimePicker  2FechaHasta.Date);
     DM.Query_soloTituloConFecha.Open;
end ;

y mi código SQL en el Query_soloTituloConFecha es :

Código Delphi [-]
SELECT S.titulo, S.descripcion_producto, S.precio_base, S.fecha_inicio, S.fecha_fin, S.foto
from Subasta_prod S
where (S.titulo like :elString) and (S.fecha_inicio >= :fechaIni) and (S.fecha_fin <= :fechaFin)

Me podrian ayudar? Se los agradeceria muchisimo!

[[oscarac]]

no dices cual es el problema

[DANIEL1818]

Empezado por oscarac

no dices cual es el problema

Mil disculpas. El problema es cuando filtro un producto, por ejemplo "mesa" e intento filtrar por las fecha(seteandola desde los DateTimePicker correspondientes ) -->> fecha_inicio = 25/04/2015 y fecha_fin = 08/07/2015 ( y en la tabla de la base de datos ACCESS la "mesa" la puse con fecha_inicio = 25/05/2015 y fecha_fin = 08/06/2015 ). Osea lo que necesito es que me filtre todos los productos entre fecha_inicio y fecha2_fin. Me podrias ayudar? Si no se entendio por favor decime.

[[oscarac]]

ahora tengo entendido que en Access hay que usar el caracter # para enmarcar las fechas

[DANIEL1818]

Empezado por oscarac

ahora tengo entendido que en Access hay que usar el caracter # para enmarcar las fechas

No me deja enmcarcar las fechas, porque al poner el # me tira un error que lo que quiero poner es incompatible con el tipo fecha/hora. Como lo puedo solucionar? el codigo el delphi esta bien escrito?

[[oscarac]]

fecha_inicio = #25/04/2015# y fecha_fin = #08/07/2015#

te recomiendo armar una cadena

Código Delphi [-]
StrSql := 'SELECT S.titulo, S.descripcion_producto, S.precio_base, S.fecha_inicio, S.fecha_fin, S.foto ' + 
' from Subasta_prod S ' + 
'where (S.titulo like ' + elString + ' ) and (S.fecha_inicio >= #' + FormatDateTime('dd/mm/yyyy', DtpFechaInicial.date) +
                         '#) and (S.fecha_fin <= #' + FormaDateTime ('dd/mm/yyyy', DtpFechaFinal.date) + '#)'

Pruebalo asi
no tengo delphi a la mano quiza tengas algunos problemas de sintaxis o de parentesis, pero esa es la idea, cuando he trabajado con access tenia que hacer asi las consultas de fechas

[DANIEL1818]

Disculpa, pero no entendí bien. 1)- En que parte de mi programa tengo que poner este código que me pasaste? porque lo pongo dentro del if que publique yo hace un rato y tira muchos errores(al if le saque todo lo que seria relacionado a los 3 parametros, menos lo de abrir y cerrar la consulta y asignar al data source). Un error por ejemplo es :Undeclared identifier: 'StrSql' , otro error es: Undeclared identifier: 'elString' 2) como soluciono esos errores de declarar StrSql? porque lo declare como StrSql: string pero no me lo toma. Y como hago para que me tome el parametro 'elString'? disculpa las molestias

[[AgustinOrtu]]

Código Delphi [-]
DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaIni').Value:=DateToStr(Form1.DateTimePicker  1FechaDesde.Date);
     DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaFin').Value:=DateToStr(Form1.DateTimePicker  2FechaHasta.Date);

Si estas usando parametros, porque convertis de Fecha a String?

Directamente asgina la fecha a los parametros

Código Delphi [-]
DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaIni').Value:=Form1.DateTimePicker  1FechaDesde.Date;
     DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaFin').Value:=Form1.DateTimePicker  2FechaHasta.Date;

Y en la sentencia SQL yo reemplazaria la comparacion de fechas por el operador BETWEEN.

Ejemplo

Código SQL [-]
[...]
WHERE :Fecha BETWEEN Fecha_Inicio and Fecha_Fin

[DANIEL1818]

Hola, en el código de Delphi después lo cambio y use lo mismo que vos me acabas de pasar, en cuanto a la sentencia SQL no entiendo que poner en :Fecha , osea a que te referís con eso? . Con respecto a fecha_inicio y fecha_fin supongo que te referís a mis parámetros desde el código Delphi (fecha_ini y fecha_fin). Espero tu respuesta. gracias por la ayuda!!

[ecfisa]

Hola Daniel.

Creo que podrías fijar el Edit en blanco, el primer DateTimePicker en la menor fecha deseada y el segundo en la actual. De esa manera, si no realiza ningún cambio en los valores obtiene el listado sin filtro, de otro modo se filtrará por las opciónes que haya configurado.

Ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  dtpDesde.Date := 1;      // 31/12/1899
  dtpHasta.Date := Date; // fecha de hoy
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT TITULO, DESCRIPCION_PRODUCTO, PRECIO_BASE, FECHA_INICIO, FECHA_FIN, FOTO');
    SQL.Add('FROM SUBASTA_PROD');
    SQL.Add('WHERE TITULO LIKE :TIT  AND');
    SQL.Add('FECHA_INICIO >= :INI AND FECHA_FIN <= :FIN');
    Parameters.ParamByName('TIT').Value := '%' + Edit1.Text +'%';
    Parameters.ParamByName('INI').Value := dtpDesde.DateTime;
    Parameters.ParamByName('FIN').Value := dtpHasta.DateTime;
    Open;
  end;
end;

Como la "fecha desde" del ejemplo usé el big bang delphiano, pero te convendría fijar el DateTimePicker(desde) a la fecha de inicio de carga de datos en la tabla "SUBASTA_PROD".

Saludos

[Casimiro Noteví]

Empezado por DANIEL1818

Hola! disculpen las molestias, pero vengo con un problema que no puedo solucionar e hice pruebas con información que encontré en google y en esta pagina pero no tuve éxito.

Pues si no tienes éxito, vuelve a preguntar, pero no abras un hilo nuevo, sigue en el que habías empezado, hasta que termines por completo de solucionarlo. (He unido ambos hilos creados)

Por cierto, no olvides leer nuestra guía de estilo, gracias por tu colaboración

Además, recuerda poner siempre los tags al código fuente, ejemplo:



Gracias

[DANIEL1818]

Empezado por Casimiro Notevi

Pues si no tienes éxito, vuelve a preguntar, pero no abras un hilo nuevo, sigue en el que habías empezado, hasta que termines por completo de solucionarlo. (He unido ambos hilos creados)

Por cierto, no olvides leer nuestra guía de estilo, gracias por tu colaboración

Además, recuerda poner siempre los tags al código fuente, ejemplo:



Gracias

Disculpa, lo tendré en cuenta lo que me dijiste,gracias! Y me podrías ayudar con el problema que tengo? ya hace varios días sin poder solucionarlo. Te agradecería muchísimo

[[oscarac]]

chequea lo q te puse

[[oscarac]]

ah y trata de reducir los nombres de los componentes, se aprecia mejor, ponle prefijos

Código Delphi [-]
Form1.DateTimePicker  1FechaDesde.Date
Form1.dtpFechaDesde o Form1.dtpFechaIni