uso de filtros.

[inexperto]

hola a todos ...tengo el siguiente problema con los filtros:

miTabla.Filter := QuotedStr(ComboBox1.Text) + '=' + QuotedStr(Edit1.Text+'*');

la verdad delas cosas no se como puedo hacer un filtro con estas caracteristicas...alguien que me pueda ayudar......estaria muy agradecido..
chau

[roman]

Empezado por inexperto

no se como puedo hacer un filtro con estas caracteristicas

¿Con cuáles características?

Como no pones qué filtro quieres hacer o que filtrado quieres lograr es difícil saber qué pasa.

De cualquier forma me parece que el uso del primer QuotedStr sobra ya que te dará un filtro del estilo:

'campo' = 'valor*'

y los nombres de campos no deben ir entrecomillados.

// Saludos

[marcoszorrilla]

Tienes que hacer lo que te ha dicho Román, aquí te pongo el mismo ejemplo con ShowMessage - para que veas como queda armado el filtro.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Table1.Filter:=Combobox1.Text + ' = '+QuotedStr(Edit1.Text+'*');
 ShowMessage(Table1.Filter);
 Table1.Filtered:=True;
 end;

Un Saludo.

[inexperto]

hola Marcos ¡¡¡¡

La solucion que me diste es bastante buena pero solo para tablas dbf (talvez otras mas), porque yo estoy utilizando componentes zeos en especial ZQuery y no me funciona.

este el pequeño codigo que utilizo para el filtro:

procedure TFichaCategoria.Edit1Change(Sender: TObject);
begin
if length(edit1.Text) <> 0 then
begin
DM.ZQuery1.Filter := ComboBox1.Text + ' = ' + QuotedStr Edit1.Text+'*');
Showmessage(DM.ZQuery1.Filter);
DM.ZQuery1.Filtered := true;
end
else
begin
DM.ZQuery1.Filtered := false;
end;
end;

la verdad no se que puede ser, sera que los componentes zeos no soportan lo que hago, o necesito cambiar algunas propiedades al componente Zquery para que funcione, o el codigo esta malo, no lo creo porque lo coloco en una query asoaciado a una tabla dbf y lo realiza muy bien.

espero que me des una ayudadita ¡¡¡¡
chau.

[roman]

Intenta cambiando

Código Delphi [-]
ComboBox1.Text + ' = ' + QuotedStr(Edit1.Text+'*');

por

Código Delphi [-]
ComboBox1.Text + ' like ' + QuotedStr(Edit1.Text+'*');

Lo acabo de probar en Zeos y, en efecto, funciona con like pero no con =. Para mi gusto esto es un error de diseño de Zeos ya que va contra el uso común de un filtro.

// Saludos

[inexperto]

Gracias ¡¡¡¡¡ funciona perfecto aunque sea un defecto de los componentes zeos

chau.