como filtro en un TQuery?

[pborges36]

Muchas gracias por las ideas, pero la verdad es que todo eso ya lo probe y comprobe que es mucho mas rapido y mas agil como lo estoy haciendo. Es en un punto critico del sistema que es cuando se ingresan los detalles a la factura. Lo unico que necesito ahora es poder hacer ese filtro. En SQL seria:

Where MiCampo Like %Letras%

Ahora bien, necesito el equivalente en delphi, con la propiedad Filter del TQuery. Mi pregunta es: se puede hacer algo asi en Delphi? Como lo hago?


Gracias!!

[roman]

Ok.

Entonces usa el evento OnFilterRecord del Query. Este evento se genera por cada registro y tú decides si aparece o no ajustando el parámetro Accept. En tu caso, por ejemplo, sería algo como:

Código Delphi [-]
Accept := AnsiContainsStr(DataSet['MiCampo'], Edit1.Text);

esto es, el registro se muestra si lo escrito en Edit1.Text está contenido en el valor de MiCampo del registro actual.

// Saludos

[pborges36]

Asi es Roman, eso es mas o menos lo que necesito, pero una pregunta:

el filter del TQuery sigue igual?

Query.Filter:=campo+' = ' + QuotedStr(buscar.Text+'*');

Porque me sigue filtrando igual.

[darkerbyte]

Bueno, yo tenia el mismo problema, la consulta es demasiado compleja para estar repitiendo cada vez q el usuario presionaba una tecla en el edit.

Otras ocasiones he utilizado un TJvDBFindEdit de los controles Jedi el cual asignandole un DataSet y el campo ya no hay que programar nada mas. Funciona excelente a excepción de que cuando utilizas el mismo query para diferentes consultas, el control empieza a generar excepciones ya que las nuevas consultas no tienen el campo que tiene asignado para filtrar.

Esto es un dolor de cabeza y por mas que busque no logre hecharlo a andar correctamente (hay que reportar ese error a la comunida de JEDI).
Asi que estuve buscando otras alternavitas prara crear un filtro sobre un TZQuery (ZeosLib)
Aqui la respuesta:

En el Evento OnChange de un edit (en este caso, sEdit5)

Código Delphi [-]
    DM.ZQuery.Filter := 'descripcion LIKE '+#39+'*'+sEdit5.text+'*'+#39;
    DM.ZQuery.FilterOptions := [foCaseInsensitive];
    DM.ZQuery.Filtered := (sEdit5.Text <> '');
   //descripción es el nombre del campo sobre el cual se va a filtrar

Y eso es todo! Probablemente muchos ya lo sabían pero pienso que al igual que yo, mucha gente desconoce este truco, de hecho estuve buscando en muchos hilos.

Este filtro funciona como un "WHERE CAMPO LIKE %CONDICION%"


Salud OS

[cokocool]

muchas gracias por compartir la solucion