Campo Filter de ADOTable
 

Hola

Tengo una BD en Access y uso Delphi 6

tengo un campo fecha (31/01/2007) y quiero saber como puedo filtrar por el año o por el mes.... a traves del campo Filter de un ADOTable

Saludos y Gracias

Hola Sr.Scorpion
Asi:

Código Delphi [-]
ADOQuery1.Open;
ADOQuery1.Filter := 'Fecha = '+DateToStr(Edit1.Text);
ADOQuery1.Filtered := True;

o con un datetimepicker
asi:

Código Delphi [-]
ADOQuery1.Open;
ADOQuery1.Filter := 'Fecha = '+datetimepicker1.date;
ADOQuery1.Filtered := True;

Saludos

Bueno al parecer me explique mal....

Tengo varios registros y quiero registrarlos todos por un mismo Mes.... y segun la solucion que me das es solo para los registros con la fecha q di al inicio

Así creo que valdría:

Código Delphi [-]
ADOQuery1.Open;
ADOQuery1.Filter := 'Month(FECHA)= '+Edit1.Text;
ADOQuery1.Filtered := True;

En el edit deberías poner el año a buscar.

No deberia poner el mes?
(ademas asumimos todas la fechas están el mismo año)

Ya eso lo habia probado con anterioridad y no funciona... no obstante estoy usando un ADOTable, no un ADOQuery

Saludos

Pues si....pero acabo de comer y llevo una torta monumental. Mea culpa.

Bueno...con el ADOTable es igual, incluso tiene más sentido usar el Filter. Pero, ¿por que no te funciona?. ¿Te da algún error?. Quzá dependa del tipo de BD.

El error que me da dice... Argumentos incorrectos. Fuera del Intervalo permitido o en conflicto con otros...

Código Delphi [-]
ADOTable.Filtered:= False;
ADOTable.Filter:= 'Month(FCompra)= '+ '03';
ADOTable.Filtered:= True;

FCompra es el campo guardado en una BD de Access con el formato de fecha corta Ejemplo: 31/01/2007

Si ya tu hicistes la prueba por favor enviame el codigo.... por lo menos el que me pusistes arriba es un ADOQuery no un ADOTable

Código Delphi [-]
ADOTable.Filtered:= False;
ADOTable.Filter:= 'Month(FCompra)= '+ '03';
ADOTable.Filtered:= True;

ese

Código Delphi [-]
+'03';

no me gusta nada.

Prueba así:

Código Delphi [-]
ADOTable.Filtered:= False;
ADOTable.Filter:= 'Month(FCompra)=3';
ADOTable.Filtered:= True;

El mes es de tipo numérico y tu le estás pasando un string.

A mi me da ese error por intentar filtrar una tabla que ya viene con "order by" desde la instruccion SQL, puedes usar la propiedad sort del adotable para ordernar el dataset y asi poder usar el filter

Tampoco funciona... sigue dando el mismo mensaje... al parecer estamos dando vuelta en circulos y tirando piedras... creo que es muy dificil que funcione tu solucion segun lei en la ayuda en la propiedad Filter se pone el CAMPO y despues lo que le quieres asignar por lo que... si le pones Month(FCompra) el va a buscar en la DB un campo llamado asi, a lo mejor en el ADOQuery te funciono porque entiende la funcion Month pero no pasa igual en el ADOTable

Disculpenme si me equivoco... pero creo que es mejor q ustedes mismos hagan la prueban para q vean lo que les digo... rectifiquenme si me equivoco

Gracias

Discúlpame tu a mi. En SQL Server si funciona, pero en Access, no. Me hace falta una siesta.

De todas formas si sabes el año y el mes que estás buscando he probado algo en access que si funciona:

Código Delphi [-]
ADOTable.Filtered:= False;
ADOTable.Filter:= 'FCompra >= FECHA_INICIAL AND FCompra <= FECHA_FINAL';
ADOTable.Filtered:= True;

En access es lo único que se me ocurre que puedas hacer. Las fechas inicial y final deberás calcularlas dado un mes o un año.

Espero te sirva.

Eso es lo que tengo implementado.... pero resulta un poco engorroso hacer eso para cada mes... sin contar que si en febrero poner 01/02/2007 hasta 31/02/2007 da error porque febrero llega hasta 28... y asi pasa con los demas meses que tienen 30 y 31 dias..... en fin resulta bastante codigo para hacer tan pequeña cosa

Hola
Disculpen pero no se donde esta el problema de filtrar dos fechas.
Con dos componentes DateTimePicker:

Código Delphi [-]
 ADOTable1.Open;
 ADOTable1.Filter := 'FCompra >= '+DateToStr(DateTimePicker1.DateTime)+' AND FCompra <= '+DateToStr(DateTimePicker2.DateTime);
 ADOTable1.Filtered := True;

y ya.
Tambien se puede hacer con dos edit igual.
Saludos

Para evitarte eso puedes usar la función :

Código Delphi [-]
function EndOfAMonth ( const Year, Month : Word ) : TDateTime

Un saúdo

el problema esta en poner dos componente para filtrar mientras que un combobox escoge el mes que quiera y me filtra

Bueno Sr.Scorpion
Segun tu planteamiento, tienes en un combobox los meses.
Enero
Febrero
etc.
y quieres que te filtre de esos meses.
Es correcto?
Yo lo que haria seria que al grabar la informacion en la tabla indicara en un campo el mes que quiero, asi lo filtraria facilmente, no se si me explico.
Saludos

Eso traeria consigo replantear todo un procedimiento en el llenado de la tabla... y seria como darse por vencido ante una dificultad. Por lo que creo mas sensato seguir trabajando en el filtrado antes de claudicar e ir por otra solucion....