Busqueda en un DBgrid
 

Hola de nuevo, en primer lugar gracias por responder a mis preguntas, se que pregunto mucho pero me gusta aprender todo lo que puedo XD jajaja pero gracias por todo...

La siguiente pregunta es: Tengo un DBgrid conectado a una base de datos en Access,con una tabla llamada Entrada, un boton y un edit, actualmente tengo el siguiente codigo en el Boton:

Código Delphi [-]
procedure Tregistro.BitBtn8Click(Sender: TObject);
begin
ADOTable1.Locate ('Nombre', edit1.text,[loCaseInsensitive]);
edit1.Clear;
end;
end;

como se dan cuenta es para localizar dentro del DBgrid un registro, pero esto solo funciona si se inserta el nombre exacto de la persona ejemplo:

si en el campo "Nombre" del Dbgrid hay un registro llamado Juan Perez
Si escribo en el edit : Juan Perez y doy clic en el boton, automaticamente lo locatiza, Pero si escribo Juan, no lo hace, no hay una forma de que tambien localice todos los nombres que comienzan con Juan?

Hola.

Podes hacer:

Código Delphi [-]
procedure Tregistro.BitBtn8Click(Sender: TObject);
begin
  with ADOTable1 do
  begin
    Filtered:= False;
    Filter  := 'NAME LIKE ' + QuotedStr(Edit1.Text + '%');
    Filtered:= True;
  end;
end;

Saludos.

feliz-58,

Revisa esta información:
En resumen:

Código Delphi [-]
ADOTable1.Locate ('Nombre', edit1.text,[loCaseInsensitive,loPartialKey]);

El código anterior hará búsquedas en el DataSet sin distinción entre minúsculas y mayúsculas y con valores parciales.

Espero sea útil :)

Nelson.

Me sale un error, me dice "Project Project1.exe raised Class EOleExection With message ´No se encontro el elemento en la coleccion que corresponde al nombre o el ordinal solicitado´. Process Stopped.

Hola feliz-58.

La costumbre de copiar y pegar... :rolleyes:

Te hice un ejemplo al vuelo, creo que en tu caso (al menos así parece en tu primer mensaje) el campo se llama Nombre no NAME como usé en mi código.

Reemplazá NAME por el nombre de tu campo y verás que funciona correctamente.

Saludos. :)

si, que mala costumbre la de Copy and Paste por eso no funcionaba jajajaja, gracias,

Aunque recuerda que mi ejemplo es con Locate y me diste uno Con filter


Muchisimas Gracias

//Saludos :)

Para otros usuarios
 

Si otro usuario quiere Utilizar el Codigo:

Código Delphi [-]
begin
  with ADOTable1 do
  begin
    Filtered := False;
    Filter := 'Nombre LIKE ' + QuotedStr(Edit1.Text + '%');
    Filtered := True;
    if adotable1.RecordCount = 0 then
    begin
    Showmessage ('Usuario No Encontrado');
  end;
end;
end;

Aqui si no encuentra el usuario te muestra un Mensaje

Hola feliz-58.

Es que no es posible lograr lo que pediste:
mediante el método Locate.

Aunque está en el ejemplo, me olvidé de decirte que para que el filtrado desaparezca basta que pongas la propiedad Filtered en falso en cualquier punto del código.

Saludos. :)

Use el ejemplo con el parametro Locate ..

Tengo dos dudas ...

01.- Hay alguna forma para que despues que haya buscado la fila donde esta la palabra, esta quede seleccionado la fila (sobreado) ?

02.- Alguna forma una vez que se realizo el filtrado que SOLO aparezca la fila con el campo buscado .. osea que no aparezca ninguno mas en pantalla?

Saludos !! .. :D

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)