Tabla Zeos

[cmfab]

Hola de nuevo a todos.

Alguien puede ayudarme. necesito establecer un filtro a una tabla en la propiedad Filter de Ztable. pero resulta que el campo que deseo filtrar es de tipo texto y no logro conseguir el operador like para que me filtre por ejemplo todos los nombres "Pedro". muchas gracias

[[movorack]]

Hola,

Podrias pasar un poco del código que usas para establecer el filtro?

Así medio a ciegas, te puedo decir que para establecer un filtro deberás usar algo así:

Código Delphi [-]
  //FilterData es la variable o el texto que vas a filtrar
  //Los % son comodines. en este caso buscara tanto a Pedro fernandez como a San Pedro o PedroNel
  //Los UpperCase son para evitar problemas con la sensibilidad a mayusculas
  ZTable.Filter := UpperCase('campo')+' like '+QuotedStr('%'+UpperCase(FilterData)+'%');

  //Recuerda que debes tener el filtro activo
  ZTable.Filtered := True;

Ahhh y echale una miradita a la Guia de estilo

[cmfab]

Gracias por la respuesta pero especificamente imprimo en pantalla el filter de mi tabla Zeos

por ejemplo NOMBRE like '%PEDRO%'

todo parece estar bien y no me devuelve ningun registro. incluso lo probé con el codigo recomendado y sigue todo igual. la propiedad filtered está True

saludos

[roman]

Que yo sepa, no puedes usar LIKE en un filtro. Puedes usar un comodín * pero incluso eso tiene limitaciones. Por ejemplo, puedes poner

nombre='perez*'

pero no

nombre='*perez'

Al menos así pasa con Paradox, pero creo que el mecanismo de filtrado es igual para cualquier DataSet, o por lo menos la ayuda no indica que cada descendiente implemente su propio mecanismo.

// Saludos

[[Caral]]

Hola
Roman, ahora si me pusiste a dudar.
Esto no es un filtro?

Código Delphi [-]
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ATClientes.Filtered := False;
      If CBFiltro.Text = 'Código' then Filtro := 'CodCliente Like '+Edit1.Text
         else If CBFiltro.Text = 'Nombre' then Filtro := 'NombreCliente Like '''+ Edit1.Text + '*'''
            else If CBFiltro.Text = 'Teléfono' then Filtro := 'Telefono Like '''+ Edit1.Text + '*''';
      ATClientes.Filter := Filtro;
      ATClientes.Filtered := True
   end
   else ATClientes.Filtered := False;

Por que es lo que hago en un table y tiene el like, ademas funciona.
Saludos

[cmfab]

Vale el codigo de Caral funciona perectamente

Gracias a todos

[roman]

Tienes razón Caral. Se ve entonces que sí depende de la base.

// Saludos