Filtrar Datos DBGRID

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

Lo más sencillo es que conectes el DBGrid a una consulta, en lugar de a la tabla.
Inicialmente puedes leer todos los datos con una consulta de este estilo:

Código SQL [-]
  Select * from Usuarios

Cuando el usuario coloca una cadena en el Edit y sale (captura el OnExit, por ejemplo) modifica la consulta. Si en el Edit hay algo, la consulta debe ser del estilo a:

Código Delphi [-]
  Query.SQL.Text := 'SELECT * from usuarios where nombre like ' + 
                            QuotedStr('%' + Edit.text + '%');

Si en el edit no hay nada, vuelves a colocar la consulta inicial.
Pruebalo y si tienes problemas ya dirás...
No comentas qué BD estás utilizando.

[crc2005]

Empezado por Neftali

Lo más sencillo es que conectes el DBGrid a una consulta, en lugar de a la tabla.
Inicialmente puedes leer todos los datos con una consulta de este estilo:


Código SQL [-]
Select * from Usuarios






Cuando el usuario coloca una cadena en el Edit y sale (captura el OnExit, por ejemplo) modifica la consulta. Si en el Edit hay algo, la consulta debe ser del estilo a:


Código Delphi [-]
Query.SQL.Text := 'SELECT * from usuarios where nombre like ' +
QuotedStr('%' + Edit.text + '%');





Si en el edit no hay nada, vuelves a colocar la consulta inicial.
Pruebalo y si tienes problemas ya dirás...
No comentas qué BD estás utilizando.

Gracias
Pero tengo una duda donde pongo
Query.SQL.Text := 'SELECT * from usuarios where nombre like ' +


QuotedStr('%' + Edit.text + '%');
en el evento click del boton y no me filtra ya lo probe pero nada
La basede datos es Paradox
Gracias

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

Te estaba dando la solución y no recordaba que ese ejemplo lo colgué hace tiempo en mi página Web.
Revisa en esta página el ejemplo que se llama "Generar una búsqueda (Like *) utilizando SQL". EStá con código fuente, así que puedes revisarlo y destriparlo a tu gusto.

[crc2005]

Gracias ya baje el ejemplo, pero ayer pude con la yuda que me dieron
solo aumente el cerrar y luego abrir la consulta
Query.SQL.close;
Query.SQL.Text := 'SELECT * from usuarios where nombre like ' +
QuotedStr('%' + Edit.text + '%');
Query.SQL.open;
Gracias a todos es un buen foro
Saludos

[[Caral]]

Hola crc2005
Tienes una tabla Usuarios, Al ejecutar el from, el dbgrid muestra el contenido de esta tabla, seguro con Table1.Open;.
Bueno dices que:

Lo que nesecito es que al ingresar un nombre en el tedit al darle click en el boton1 se filtre solo los que coincidan con este.

El boton a mi manera de ver no lo necesitas, veamos, tienes un edit1, en el evento OnChance de este pones:

Código Delphi [-]
If (Edit1.text <> '') then
    TUsuarios.Filter := 'Nombre Like '''+ Edit1.Text + '*''';

Esto es suponiendo que la tabla se llame TUsuarios, por supuesto que tienes que poner el nombre que tenga tu tabla.
Al ejecutar el programa lo que pongas en el edit1 se ira filtrando, si buscas el nombre Juan, con solo poner la ( J ) te mostrara todos los nombres que empiecen con J, Si pones (Ju) filtrara los que coincidan y asi sucesivamente.
Saludos

[[Lepe]]

Caral, ¿Por qué usar un filtro en lugar de una consulta?

[[Caral]]

Hola Lepe, en realidad el razonamiento biene de lo que necesira nuestro amigo:

Lo que nesecito es que al ingresar un nombre en el tedit al darle click en el boton1 se filtre solo los que coincidan con este

En realidad tu duda es razonable, de todos modos se necesita hacer de una u otra manera la consulta, lo que pienso es que si tiene ya la tabla abierta por que no hacer simplemente un filtro, es simple y funciona.
Saludos Maestro

[LuisHatake]

Empezado por Caral

Hola crc2005
Tienes una tabla Usuarios, Al ejecutar el from, el dbgrid muestra el contenido de esta tabla, seguro con Table1.Open;.
Bueno dices que:

El boton a mi manera de ver no lo necesitas, veamos, tienes un edit1, en el evento OnChance de este pones:

Código Delphi [-]
If (Edit1.text <> '') then
    TUsuarios.Filter := 'Nombre Like '''+ Edit1.Text + '*''';

Esto es suponiendo que la tabla se llame TUsuarios, por supuesto que tienes que poner el nombre que tenga tu tabla.
Al ejecutar el programa lo que pongas en el edit1 se ira filtrando, si buscas el nombre Juan, con solo poner la ( J ) te mostrara todos los nombres que empiecen con J, Si pones (Ju) filtrara los que coincidan y asi sucesivamente.
Saludos

Que hay de nuevo!! he realizado un ejemplo como el que has propuesto en este hilo, pero no funciona. yo tengo un ADOConection, ADOTable, DataSource y un DBGrid todos en enlazados correctamente pues he probado la conexion y funciona y me muestra los datos de una tabla de la base de datos. lo que me gustaria hacer es el filtro de los datos como la idea que propones, pero no me ha funcionado. al inciar el form no realizo ninguna accion en el codigo pues ya todo esta configurado para que muestre los datos. he puesto el código en el onchenge del edit y si entra a la condición pero presiento que falta actualizar algo con el dbgrid. espero sus respuestas.. saludos.

[ecfisa]

Hola.

Empezado por LuisHatake

Que hay de nuevo!! he realizado un ejemplo como el que has propuesto en este hilo, pero no funciona.
...
he puesto el código en el onchenge del edit y si entra a la condición pero presiento que falta actualizar algo con el dbgrid. espero sus respuestas.. saludos.

Intentalo haciendo:

Código Delphi [-]
...
  if Edit1.text <> '' then
  begin
    TUsuarios.Filtered := False;
    TUsuarios.Filter := 'Nombre Like '''+ Edit1.Text + '*''';
    TUsuarios.Filtered := True;
  end;
...

Saludos