Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Filtrar Datos DBGRID (https://www.clubdelphi.com/foros/showthread.php?t=36654)

crc2005 19-10-2006 16:54:54

Filtrar Datos DBGRID
 
Por favor alguien me podria ayudar tengo Form con un Dbgrid , Boton1 y tedit
DBGRID: jala datos de un tabla Usuarios con campos (Codigo,Nombre,Direccion,Estado, Foto)
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.
Ejm :Datos del Campo Nombre
Juan
Jimenes
Gimenes
Mendoza
En el tedit Ingreso: me
y se filtre solo Jimenes,Gimenes y Mendoza,
me posiciono en un de ellos (en el DBGRID) y doy doble click y abre el form de ingreso para poderlo editar.
Gracias por su ayuda de antemano, espero que me haya expresado bien
Saludos

:)
Carlos

luisgutierrezb 19-10-2006 17:24:48

busca la propiedad Filter del Dataset que estes utilizando, ya sea BDE, ADO, etc

Neftali [Germán.Estévez] 19-10-2006 17:26:20

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 19-10-2006 18:31:43

Cita:

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] 20-10-2006 12:34:13

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 20-10-2006 16:20:46

Filtrar datos DBGrid
 
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 20-10-2006 19:58:20

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:
Cita:

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 21-10-2006 03:10:46

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

Caral 23-10-2006 20:19:22

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

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 24-10-2006 14:15:58

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 04-02-2015 02:04:26

donde tengo q poner ese codigo?

ecfisa 04-02-2015 02:23:39

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 06-02-2015 15:35:20

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

Casimiro Notevi 06-02-2015 15:38:14

Cita:

Empezado por Matiax13 (Mensaje 488499)
hola

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración :)

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

Casimiro Notevi 06-02-2015 15:40:38

Lee la guía de estilo, gracias :)

Cita:

Empezado por Matiax13 (Mensaje 488499)
y me da q al campo ''codigo'' le falta operadores o algo asi, o si no q esta perdido el campo ''articulo''

No somos adivinos, copia y pega el mensaje de error exacto.
Y procura escribir correctamente, gracias :)

Lee la guía de estilo, gracias :)

Matiax13 06-02-2015 15:59:31

disculpa, no tengo la menor idea de lo q tengo q hacer(de la imagen q subiste)?, ni donde?.

queria pegar la imagen q me subiste pero no tengo permitido todavia subir imagen, eso me dijo.
ley algo de la guia de estilo, pero nunca pregunte nada, ya vi todos los temas relacionado y no vi mi solucion, y decidi preguntar

Casimiro Notevi 06-02-2015 16:03:57

Pues pon el código que usas, recuerda que no tenemos una bola de cristal :rolleyes:

Matiax13 06-02-2015 16:59:19

hola, tenes razon, nose como hacerme entender!
voy de nuevo, te comento lo q hice:
data moldule (adoconnetion(conecto la tabla, pruebo coneccion :satifactoria), adoquery1((SLQ:(TStrings), pongo: select * from mi tabla. Conecction: adoconnecton. Active: True )), datasourse1(dataset: adoquery).
Un form1: dbgrid(datasourse:DataModule.datasourse1) y un edit. Y de ahi alta, baja y modificacion

Lo q quiero es buscar en el dbgrid por el campo ''codigo''.

mi tabla se llama: Articulos
los campos son:
Codigo
Articulos
Cantidad
Precio
Precio de venta
Telle
Tipo
fecha
hora

espero q me entiendas, de ahi nose mas, solo busco ejemplos q me vayan guiando

Casimiro Notevi 06-02-2015 17:07:26

Cita:

Empezado por Matiax13 (Mensaje 488507)
Lo q quiero es buscar en el dbgrid por el campo ''codigo''.

¿Buscar en el dbgrid? Supongo que quieres buscar en la base de datos (el dbgrid es solo un visor de lo que tiene el dataset asociado al mismo, mediante su datasource)
Pues mira este hilo desde el principio, se explica con ejemplos, particularmente en el mensaje #7

Matiax13 06-02-2015 17:42:33

muchas gracias me fije lo q me dijiste y me di cuenta q donde yo ponia la tabla tenia q poner *
muchas gracias por tu tiempo!!


La franja horaria es GMT +2. Ahora son las 14:32:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi