Filtrar en DBGrid para Access

[javier.m866]

El Filtrado me funciona bien con el siguiente código:

procedure TForm1.Edit1Change(Sender: TObject);
begin
If (Edit1.text <> '') then
Adotable1.Filter := 'Nombre Like '''+ Edit1.Text + '*''';
end;

Pero tengo un problema, al borrar el texto escrito en el Edit1, en lugar de regresar todos los campos, se queda tal y cómo está el filtrado, lo que necesito es que si busco "ier" salgan todos los nombres que contengan esas letras, pero al borrar "ier" del edit, que vuelvan a aparecer todos.

[ecfisa]

Hola Javier.

Por favor cuando pongas código en tus mensajes utiliza TAG's, la imágen siguiente explica su uso:



Ahora en referencia a tu pregunta, probá de este modo:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text > '' then
  begin
    ADOTable1.Filter:= 'Nombre LIKE ' + QuotedStr(Edit1.Text+ '*');
    ADOTable1.Filtered:= True;
  end
  else
    ADOTable1.Filtered:= False;
end;

Saludos.

[javier.m866]

Probé con ese código, pero me dá el siguiente error: Proyect DatosChoferes.exe raised exception class EOleException with message "No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido". Process stopped. use Step or Run to continue.

[ecfisa]

Hola Javier.

El código anterior lo escribí en el aire, pero acabo de probarlo y filtra sin error. Por el tipo de error que te arroja diría que revises que el campo Nombre exista o esté bién escrito.

Este es el código exácto de la prueba que hice ahora y funciona correctamente:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
 if Edit1.Text > '' then
  begin
    ADOTable1.Filtered:= False;
    ADOTable1.Filter:= 'Name LIKE ' + QuotedStr(Edit1.Text+ '*');
    ADOTable1.Filtered:= True;
  end
  else
    ADOTable1.Filtered:= False;
end;

Saludos.

[javier.m866]

Es cierto que funciona, disculpa fué un error mío a la hora de escribir. Pero De esta manera el filtrado sólo se puede hacer por los nombres tal y como comienzan.
Javier
Roberto
Carlos
Reinier
si yo escribo en el edit "javier" no sale nada, porque debe de iniciar con mayúscula.
si yo escribo "ier" no filtra nada, cuando debería filtrar Javier y Reinier.
De cualquier forma te agradezco tu ayuda.

[[Caral]]

Hola
El problema que veo es que el filtro va buscando letra a letra, osea de principio a fin de la palabra buscada.
Si filtras Javier, buscara la J primero, la a segundo y asi sucesivamente.
Para que filtre sin selección se tendría que usar la funcion AnsiContainsStr que ademas distingue entre mayúsculas y minúsculas.

No se me ocurre como filtrar la tabla asi, tal vez practicando esta funcion encontraras una solucion.
Este es un ejemplo de uso:

Código Delphi [-]
uses  StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
   If AnsiContainsStr(Edit1.text, Edit2.text) then
   Showmessage('si');
end;

Aqui compara el contenido del edit1 y del 2.
Seguro que algun maestro te dira como usar esto en el filtro.
Saludos

[javier.m866]

Bueno, si alguien conoce como utilizar esa función, se los agradeceré. Feliz fin de año.