Filtrar en DBGrid para Access

[javier.m866]

Hola, tengo una Base de Datos en Access llamada Base de datos.mdb conectada a mi aplicación mediante un Adotable (Adotable1) y un DataSource (DataSource1) con una tabla llamada Choferes, la cual se muestra mediante un DBGrid (DBGrid1) mi pregunta es la siguiente:
Quisiera realizar un Filtrado por la columna "Nombre" de manera tal que al escribir en un Edit cualquier letra ej "ier" me muestre todos los campos que contengan dichas letras ejemplo: Javier, Reinier, Iercos, etc... y que al borrar las letras del Edit, se vuelvan a mostrar todos los Campos de la Tabla. Muchas gracias de antemano y feliz año nuevo para todos.

[Neftali [Germán.Estévez]]

Revisa este ejemplo y el código que hay en mi página a ver si es lo que buscas.
Si revisas el FTP, sección de ejemplos, es posible que también encuentres alguno más.

[javier.m866]

Disculpa ignorancia, pero no entendí nada, yo he buscado entre otras dudas ya planteadas y todo el mundo pregunta sobre el filtrado con ADOQuery y esas cosas, yo estoy utilizando ADOTABLE y DATASOURCE en un DBGRID conectado a una tabla de Access, pero sobre eso no he visto nada. Gracias de todos modos, seguiré intentándolo. Feliz fin de año.

[Neftali [Germán.Estévez]]

Perdona, yo mismo me hice un lío leyendo "rápido"; Si estás utilizando ADOTable, busca en la ayuda sobre Filtered y Filter del TADOTable.
De todas formas tengo dudas de si con estas propiedades vas a poder conseguir el filtro que necesitas (que contengan....)

De todas formas, para un filtro de tipo LIKE, como el que necesitas, creo que lo más sencillo es que conviertas el ADOTable en un ADOQuery y utilices el código que te he pasado

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