Filtrar en DBGrid para Access

[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.

[Chogo]

yo hago esto, espero que te sirva

Código Delphi [-]

procedure TFrmDlgBusquedaPrefacturas.EditClienteChange(Sender: TObject);
begin

  if EditCliente.Text <> EmptyStr then
  begin
      ADOQuery1.Filtered:=False;
      ADOQuery1.Filter:='Cliente like '+QuotedStr('%'+ EditCliente.Text + '%');
      ADOQuery1.Filtered:=True;
  end
  Else
  begin
      ADOQuery1.Filtered:=False;
  end;

end;