filtro por caracter

[negrokau]

hola... necesito filtrar una lista de registro de socio o sea los nombres, por caracteres.. es decir a medida que voy escribiendo en un edit vaya apareciendo las coincidencias en un tdbgrid, muchas gracias por su tiempo....

[[Caral]]

Hola
Query o table ?.
Que BD ?.
Saludos

[negrokau]

el motor es interbase, con un query hice la consulta caral....

[[Caral]]

Hola
Tienes que hacer la consulta sql y usar like, algo asi:

Código Delphi [-]
TuQuery.sql.tect:= 'Select Nombre from tuTabla where nombre LIKE '''+ Edit1.Text + '%''';

Saludos

[heroe555]

Veo que usas un dbgrid. Lo puedes conectar a un dataset y este a su vez a un query. En el evento del edit (On Change), refresca el query, y dejalo en active = True, cuando salgas del form cambia su active a false. Listo!

Un ejemplo de refrescamiento puede ser:

Código Delphi [-]
 
with Query do
 begin
   Active := False;
   SQL.Clear;
   SQL.Add('Select * From Clientes Where Nombre like =:Param0');
   with Parameters do
     Items[0].Value := QuoteStr('%' + edit.text + '%'); //Busca cualquier   coincidencia
   Active := True;
 end;

Nota: Recuerda que también puedes usar filtros.

[negrokau]

voy a probarlo.... ah y como hago que me salga en tdbgrip las coincidencias?

[heroe555]

Las coincidencias salen de forma automatica cada vez que refrescas la consulta, y esta se refresca en el evento OnChange del edit.

Nota: Esto afecta mucho el rendimiento del servidor, más si trabajas en red.
Por tanto, recomiendo que uses una tabla en memoria, como el comopnente virtualtable de devart(gratuito) o bien, el componente que incluye delphi clientdataset.

[Neftali [Germán.Estévez]]

Échale un vistazo a este ejemplo a ver si es lo que necesitas.
De todas formas, soy de los que piensan que la búsqueda incremental en los Grid no es adecuada, a no ser que estés convencido de que el Grid va a tener muy pocas filas.
De otra manera estás haciendo muchas más consultas de las estrictamente necesarias.
También debes tener en cuenta el tráfico de red (si es tu caso) que puede generar.

[negrokau]

muchas gracias... lo voy a probar... gracias por tu tiempo...

[[oscarac]]

Empezado por Neftali

Échale un vistazo a este ejemplo a ver si es lo que necesitas.
De todas formas, soy de los que piensan que la búsqueda incremental en los Grid no es adecuada, a no ser que estés convencido de que el Grid va a tener muy pocas filas.
.

estoy de acuerdo con esto, yo lo hago de una manera un poquito diferente, no ejecuto el query por cada caracter, lo que hago es buscar el dato en la tabla o el query, asi evito un poco el trafico, algo mas o menos asi

Código Delphi [-]
 
procedure TfrmCatalogoTrabajador.edtSearchChange(Sender: TObject);
var _Position :TBookmarkStr;
begin
  if qryTrabajadores.Locate('KOD', edtSearch.Text, [loPartialKey]) then
    Begin
      _position := qryTrabajadores.Bookmark;
      qryTrabajadores.Sort := 'KOD';
      qryTrabajadores.Bookmark := _position;
      dbgTrabajadores.Show;
    End;
end;