problemas al querer filtrar con ADO

[^TxTeZ^]

Bueno, creo que el problema de que no te filtrara nada es por que segun lo que tu has hecho:

dm.qryctginv.Filtered := true;
dm.qryctginv.Filter := 'mi_descri = ' + QuotedStr(txtopc.Text + '%');

estas poniendo la propiedad Filtered a true antes de aplicar el filtro.

La secuencia de codigo seria:

ADOQuery1.Filtered := False;
ADOQuery1.Filter := 'Mensaje LIKE ' + QuotedStr(Edit1.Text + '%');
ADOQuery1.Filtered := True;

A mi asi me ha funcionado

[mgaray]

Hola:
Les agradezco su ayuda, parte del problema es que cuando le pasaba el argumento al filter la caja de texto no contenia texto esto lo genera cuando utilizo el evento onkeypress, pero una vez que se arregle este problema funciono de maravilla quedando como sigue:
dm.qryctginv.Filtered := false;
dm.qryctginv.Filter := 'mi_descri like ' + QuotedStr(txtopc.Text + '%');
dm.qryctginv.Filtered := true;
la solucion ya ustedes me la habian dado solo que hay que tener precaución en eso de la cadena vacia sobre todo cuando uno utiliza como yo en este caso una caja de texto para pasar la cadena a filtrar.

Muchas gracias por todo.

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

  if Length(edit1.text)> 0 then
  begin
  Adoquery1.filter:='Titulo Like '+QuotedStr(Edit1.Text+'*');
  Adoquery1.Filtered:=True;
  end
  else
  ShowMessage('Cadena vacía inténtelo de nuevo');

end;

Un Saludo.