Filtrar Datos DBGRID

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

[[Lepe]]

Un filtro se ejecuta del lado cliente, por tanto, si está en red, viajará todos los registros de la tabla y despues se hará la restricción del filtro. Si no está en red, se seleccionan todos los registros y despues se hace el filtro... es un desperdicio de recursos y tiempo (desde mi punto de vista).

Al menos en paradox, no se permiten filtros con comodines del tipo "%fer%", (tú utilizas el asterisco... será que usas Access ) sino que habría que crear un filtro tal que así:

Código Delphi [-]
table1.filtered := false;
table1.filter := nombre > 'P' and nombre <'S';
table.filtered:= true;

que no es lo que pide, y además es más costoso para el programador.

Por otra parte, no puedes compartir ese TTable con otras ventanas, porque siempre mostraría los datos filtrados, y tarde o temprano necesitará un filtrado distinto para cada ventana.

Una consulta es totalmente independiente de la tabla, incluso la tabla puede estar cerrada y la consulta funciona perfectamente.

Una Consulta puedes ordenarla ascendente y descendentemente, por el campo "filtrado" o por otro cualquiera, usando los índices que se hayan creado para ese propósito en la BBDD. El filtro creo recordar, no usa los índices.

La consulta puedes dejarla preparada para tener un acceso más rápido de ejecución, esto solo funciona con parámetros:

Código Delphi [-]
query1.sql.text := 'select * from tabla where campo like :nombre order by Nombrecliente';
if not query1.Prepared then 
  query1.Prepare;

A partir de ahora solo hay que hacer:

Código Delphi [-]
query1.Close;
query1.parambyname('nombre').asString:= edit1.text+'%';
query1.Open;

Amén de poder usar inner joins en lugar de campos Lookup y restringir los datos con mucha más comodidad.

Saludos.

[Matiax13]

donde tengo q poner ese codigo?

[ecfisa]

Hola Matiasx13, bienvenido a Club Delphi

La ubicación del código dependerá de la funcionalidad de tu aplicación, tendrías que dar mas datos. Por favor lee nuestra guía de estilo.

Saludos y gracias por tu colaboración

[Matiax13]

hola, muchas gracias por contestar
tengo un data module con 1 adoconnection, un adoquery(en el SQL :select * from tabla), 1 datasourse y esta todo bien conectado y el dbgrid al datasourse
lo q quiero es buscar en la tabla por el campo ''codigo'', pero uso el codigo este:
y lo pongo en onchange del edit

1. begin
2. query1.Close;
3. query1.SQL.Clear;
4. query1.SQL.Add('SELECT campo from tabla');
5. query1.SQL.Add(' where campo LIKE ' +quotedstr('%' + edit1.Text + '%')+' ');
6. query1.Open;
7. end;

y me da q al campo ''codigo'' le falta operadores o algo asi, o si no q esta perdido el campo ''articulo''

muchas gracias desde ya!!!

[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

[LuisHatake]

Empezado por ecfisa

Hola.


Intentalo haciendo:

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

Saludos

Buenos días, funciona perfectamente. muchas gracias por la respuesta.