Problemas con filter

[vroa74]

Discupen ya habia probado lo que me han dicho en sus comentarios.

Les envio un la captura de la imagenes en cada una de la lineas qye me enviaro, no se pudo hacer la consulta satisfactoriamente.

Form1.table1.filter := 'Fecha >= '''+DateToStr(DateTimePicker1.Date) + ''''+'And'+'Fecha <= ''' + DateToStr(DateTimePicker2.Date) + '''';
=sistema.jpg

Form1.table1.filter := 'Fecha >= "'+DateToStr(DateTimePicker1.Date)+'"And Fecha <= "'+DateToStr(DateTimePicker2.Date)+'"';
=sistema2.jpg

[jacanche]

Para que no te enredes con los ''', usa la funcion QuotedStr

Código Delphi [-]
Form1.table1.filter := 'Fecha >= '+QuotedStr(DateTimeToStr(DateTimePicker1.Date))+' And Fecha <= '+QuotedStr(DateTimeToStr(DateTimePicker2.Date));

Ahora si no te funciona asi, checa el formato de Fecha y hora, quizas el DateToStr te lo devuelva en formato mes,dia año, y por eso no te lo filtra, y no te das cuenta por que son fechas validas.
Lo que hago usualmente es poner en el dpr estas dos lineas

Código Delphi [-]
  
ShortDateFormat :='dd/mm/yyyy';
DateSeparator :='/';

para que no se tomen las que trae por default la instalacion de windows.

[vroa74]

Hello ya hice esta prueba de esta sintaxis si funciona:

Form1.table1.filter := 'Fecha = ''' + DateToStr(DateTimePicker1.Date) + '''';

Esta sintasixis no manca eeror de formato pues da fecha y hora.

Form1.table1.filter := 'Fecha >= '+QuotedStr(DateTimeToStr(DateTimePicker1.Date))+' And Fecha <= '+QuotedStr(DateTimeToStr(DateTimePicker2.Date));

[jhonny]

Coloca tambien los respectivos parentesis asi:

Código Delphi [-]
Form1.table1.filter := '(Fecha >= '+QuotedStr(DateTimeToStr(DateTimePicker1.Date))+') And (Fecha <= '+QuotedStr(DateTimeToStr(DateTimePicker2.Date))+')';

[jpcancino]

Empezado por vroa74

Hello ya hice esta prueba de esta sintaxis si funciona:

Form1.table1.filter := 'Fecha = ''' + DateToStr(DateTimePicker1.Date) + '''';

Puedes explicar pq esa sintaxis con muchas comas funciona y esta sintaxis:

Código Delphi [-]
Form1.table1.filter := 'Fecha =  ' + DateToStr(DateTimePicker1.Date);

¿si tira error?
Con la última dice que funciones arismeticas no son compatibles con el filtrado de tablas. ¿Lo dice por los "/"? ¿por qué se soluciona con esas comas demás?

Saludos

[jacanche]

por que la propiedad filtro no es mas que una cadena que despues es interpretada para evaluar la condicion que tu hayas definido, por ejemplo
esto :

Código Delphi [-]
Form1.table1.filter := 'Fecha =  ' + DateToStr(DateTimePicker1.Date)

es equivalente a esto otro, lo cual puede ser interpretado erroneamente como una operacion aritmetica

Código Delphi [-]
Form1.table1.filter := 'Fecha =25/02/2007'

en cambio si le agregas las comillas, seria como si asignaras algo parecido a esto

Código Delphi [-]
Form1.table1.filter := 'Fecha =''25/02/2007'''

lo cual ya podra ser interpretado correctamente como una fecha.

Esto ya es correcto, pero para no enredarme con tantas comillas, prefiero usar la funcion QuotedStr de esta forma :

Código Delphi [-]
Form1.table1.filter := 'Fecha = ' + QuotedStr(DateToStr(DateTimePicker1.Date));

[[felipe88]]

Si quisiera realizar un filtro parecido a este usando un Query... datos que luego se puedan eliminar usando otro Query , como seria...???
Si dicen que con la tabla es lento, existe una forma de acelerarlo...???

[vtdeleon]

Los Ttable y sus derivados son lentos porque te traen tooodos los registros a parte de otras cosillas. Lo mejor es utilizar los TQuery.

Para filtrar es lo mas facil, un ejemplo..:

Código Delphi [-]
begin
  With Query1 do
  begin
    Close;//Cerrams el Query
    Sql.Text:='Select Campo1, campo2 fron Tabla1 Where Campo1=:Fecha1';
    //Se Asigna la sentencia donde se filtrara por fecha
    ParamByName('Fecha1').AsDate:=StrtoDate(edit1.text);//O utilizar un DateTimePicker qeu es mejor.
    //Aqui asingamos el valor del parametro para filtrarlo
    Open;//Listo! Abrimos la consultas
  end;
end;
{Ya veras los datos filtrados por el valor que hayas dado en el Edit o DateTiemPicker utilizado}

Suerte