FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
búsquedas en dbgrid
Hola,
Cómo puedo hacer para que al ir escribiendo en un edit, se vaya buscando la palabra en un dbgrid? Teniendo la grilla ya cargada. Ej. Tengo un edit y un dbgrid, si yo quiero buscar la palabra "casa", voy escribiendo "c" y en la grilla me tendría que aparacer los que empiecen con "c". Después escribo la "a", y en la grilla tendría que aparecer los que empiecen con "ca". Luego la "s" y en la grilla "cas" y así... Espero que me entiendan la explicación Gracias! |
#2
|
||||
|
||||
Pudieras Probar
Hola creo que pudieras probar en el evento on change del edit algo así
Var Valor,Valor1 : String; begin valor := Edit1.text; Valor1 := Valor; inc(valor1[length(Valor1)]); Tabla.Filter := 'Campo >= '+QuotedStr(Valor)+ ' and Campo < ' QuotedStr(valor1); Tabla.Filtered := True //Donde campo es el campo por donde vas a filtrar //Se pone lento en dependencia de la cantidad de registros que tenga la tabla. end; mas o menos así Un saludo
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo Última edición por yusnerqui fecha: 10-04-2004 a las 17:13:38. Razón: QuotedStr |
#3
|
|||
|
|||
porqué lento?
tengo una duda. cada vez que se pone el filtro en "true", se consulta en la base de datos?
|
#4
|
||||
|
||||
Cita:
[Error]Unit10.pas(1233): Operator not applicable to this operand type [Error]Unit10.pas(1233): Incompatible types: 'String' and 'Boolean' tambien estube trabajando con otro codigo que me encontre en el foro pero a la hora del cambio del edit, el dbgrid se coloca en blanco el codigo lo extraje de aqui gracias por la ayuda que puedan brindarme... ___________________________________ Utilizo delphi6 y tabla dbaseIV |
#5
|
||||
|
||||
Hola,
Yo hago algo exactamente igual a lo que pide edfz de esta manera: En el evento OnChange del TEdit tengo el siguiente código:
y funciona de perlas... |
#6
|
||||
|
||||
hola Fenareth.. bueno con tu codigo me pide que identifique loPartialKey,loCaseInsensitive..
puede que sea nada pero es que no tengo mucha experiencia en delphi . gracias... |
#7
|
|||
|
|||
Cita:
Cita:
salu2!!!!!!! |
#8
|
||||
|
||||
Probando la busqueda de yusnerqui
Cita:
Probando este codigo me da un error en ejecucion, el tema es que cuando borro el ultimo caracter me aparece el siguiente: Proyect Yuhmak.exe raised eception class EAccessViolation with message 'Access violation at address 004CC87E in module 'Yuhmak.exe'. Write of address FFFFFFFF'. Process stopped. Use Step or Run to continue. ¿Que es eso? y ¿Como se soluciona? Desde ya muchas gracias... y espero puedan ayudarme |
#9
|
||||
|
||||
Hola irixita !
Porqué no pruebas el otro código aquí expuesto ?
Saluditos
__________________
Ask questions. Think for yourself. Wake up and you’ll make the difference |
#10
|
||||
|
||||
Hola Fenareth
Buenas Fenareth.... si lo probe... mi pregunta ahora... donde lo pongo... en el boton de busqueda o en el evento onChage del edit?
Si lo probe... pero se me hace que lo estoy poniendo en un lugar distinto. Por eso lo probe con otro que habia ahi.... espero que me hayas comprendido... esperare respuesta... |
#11
|
||||
|
||||
En el evento OnChange del TEdit...
__________________
Ask questions. Think for yourself. Wake up and you’ll make the difference |
#12
|
||||
|
||||
hola irixita
en rojo colocas el edit donde vas hacer la busqueda!! en azul la tabla donde se encuetra ubicada y lo colocas en el on change del edit! espero poder ayudarte!
__________________
Uso Delphi 6 y Tablas dBase IV... |
#13
|
|||
|
|||
Cita:
salu2!!!!!!! |
#14
|
||||
|
||||
Jajajaja, si, de hecho lo tomé de la última corrección que se hizo
__________________
Ask questions. Think for yourself. Wake up and you’ll make the difference |
#15
|
||||
|
||||
Hola el codigo me quedo algo asi:
hice una mezcla de los codigos que vi
eso fue lo que hice y funciona lo que quiero, salvo por una cosita, cdo borro todo se desaparece la tabla, eso es porq del lado del else dice GrillaBusVend.Visible := false; lo que no se es como volver a mostrar todos los registros de vuelta. debe ser facil, pero estuve anoche hasta las 3 am buscando la manera . Va mejorando!!! jeje Saluditos!! |
#16
|
||||
|
||||
hola irixita hice la prueba con tu codigo yme funciona a la perfecion!! no me genero ningun problema!
solo un inconveniente y es por mi culpa que la busqueda me la hace segun lo escrito es decir reconoce MAYUSCULA y minuscula tengo que escribir tal cual como esta en la tabla! alguien me podria ayudar a como hacer que sea indiferente entre mayuscula o minuscula lo que importa es la letra que entre!! gracias!!!!
__________________
Uso Delphi 6 y Tablas dBase IV... |
#17
|
||||
|
||||
Cita:
para tu problema tenes que poner en el evento onKeyPress del edit la siguiente linea.
Ahora cdo borras todo te aparece la lista completa? o como te aparece? Al fin ayudo a alguien!!! jeje sos al primero que le saco una duda Saludetes!!! |
#19
|
||||
|
||||
Cita:
__________________
Ask questions. Think for yourself. Wake up and you’ll make the difference Última edición por Fenareth fecha: 24-08-2008 a las 06:11:37. |
#20
|
||||
|
||||
Hola a todos, aqui la correccion a mi codigo, espero que ni sea demaciado tarde
Solo cheqear que el edit no este vacio, pues entonces las operaciones de sumas de caracteres serian inconsistentes
Con esto debe hacer precisamente lo que buscabas irixita y tanbien lo que buscaba quien origino este hilo Cita:
Yusnerqui
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
|
|
|