Filtrar registros por letras iniciales que están en un edit

[feliz-58]

Empezado por Caral

Hola
No hay que hacer nada.
Me imagino que lo que estas haciendo es un filtro, eso se hace mejor con un TTable ya que tiene que revisar todo la tabla,
Todos los componentes hay que ligarlos al adoconnection si no no haran nada
Saludos

es que ya lo probé y no me busca ni la madre XD jajajaja

[[Caral]]

Hola
Que quieres hacer exactamente ??.
Explícate con calma y el mayor detalle posible.
saludos

[feliz-58]

Empezado por Caral

Hola
Que quieres hacer exactamente ??.
Explícate con calma y el mayor detalle posible.
saludos

Vale hay va, tengo un ADOConection, ADOTable y un DBGrid para ver la data, tengo un edit con un boton, lo cual quiero que cuando yo introdusca en el edit el nombre o las iniciales de un nombre, el me filtre los resultados del nombre que quiero o a todos los que inicien asi, y que si no lo encuentra me diga un mensaje que el cliente no ha sido encontrado.

Saludos.

[[Caral]]

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

[feliz-58]

Empezado por Caral

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.