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