Ver Mensaje Individual
  #10  
Antiguo 19-07-2013
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
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
__________________
Siempre Novato
Responder Con Cita