Ver Mensaje Individual
  #11  
Antiguo 19-07-2013
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Reputación: 12
feliz-58 Va por buen camino
Cita:
Empezado por Caral Ver Mensaje
Hola
Bien no te compliques, dices que tienes un adotable ligado al datasource que esta ligado al dbgrid, NO??.
En el evento ONChange del Edit1 pon este codigo:
Código Delphi [-]
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      AdoTable1.Filtered := False;
      Filtro := 'nombre Like '''+ Edit1.Text + '*''';
      AdoTable1.Filter := Filtro;
      AdoTable1.Filtered := True
   end
   else AdoTable1.Filtered := False;
end;
Me imagino que el adotable es adotable1 ?, no le as cambiado el nombre.
Como ves, es un sencillo filtro y lo que hara es que segun vallas poniendo el nombre en el edit valla colocando el el dbgrid los resultados.
No hace falta poner el boton para buscar.
saludos

Excelente men MUCHAS GRACIAS!!! Funciono perfectamente. es la mejor forma de hacerlo.
Responder Con Cita