Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Busqueda En un DBgrid!!! (https://www.clubdelphi.com/foros/showthread.php?t=80191)

feliz-58 08-09-2012 04:54:46

Busqueda En un DBgrid!!!
 
Tengo un Form con los siguientes componentes:
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Button1: TButton;
Edit1: TEdit;


El boton es para buscar mediante el Edit un Registro en el campo dentro del DBGRID que se llama Cedula, pero tengo el problema de que cuando encuentra el registro, el DbGRID se queda motrando ese unico registro y no se como hacer que vuelva a mostrarme todos los que estaban antes de la busqueda, el codigo del buton es este:
Código Delphi [-]
begin
  ADOTable1.Filtered := True;
  ADOTable1.Filter := 'Cédula: = '+Edit1.Text;
  if ADOTable1.RecordCount = 0 then 
  begin
    ShowMessage('Usuario no Encontrado');
    ADOTable1.Filtered := False;
  end;

Me podrian Ayudar?
Gracias Amigos :)

//Saludos :D

oscarac 08-09-2012 06:41:57

y en lugar de hacer un filtro
porque no intentas con un locate?

algo asi


Código Delphi [-]
qryAnexos.Locate('Codigo', edtSearch.Text, [loPartialKey])

feliz-58 09-09-2012 15:00:47

Cita:

Empezado por oscarac (Mensaje 442449)
y en lugar de hacer un filtro
porque no intentas con un locate?

algo asi


Código Delphi [-]
qryAnexos.Locate('Codigo', edtSearch.Text, [loPartialKey])

[Error] Unit5.pas(109): Undeclared identifier: 'qryAnexos'
[Error] Unit5.pas(109): Undeclared identifier: 'edtSearch'
[Error] Unit5.pas(109): 'END' expected but ',' found
[Fatal Error] Unit2.pas(53): Could not compile used unit 'Unit5.pas'

eso es lo que sale :D

Casimiro Notevi 09-09-2012 16:10:10

Cita:

Empezado por feliz-58 (Mensaje 442487)
eso es lo que sale :D

Oscarac te ha puesto un ejemplo, tú debes de hacerlo con tus componentes, con los nombres que tengan.
Haz una búsqueda por 'locate', es un tema tratado infinidad de veces.

feliz-58 09-09-2012 20:07:32

Cita:

Empezado por oscarac (Mensaje 442449)
y en lugar de hacer un filtro
porque no intentas con un locate?

algo asi


Código Delphi [-]
qryAnexos.Locate('Codigo', edtSearch.Text, [loPartialKey])

Gracias amigo, busque y aprendi a usarlo, ya lo eh solucionado...:D

Casimiro Notevi 09-09-2012 21:24:17

Perfecto ^\||/

feliz-58 09-09-2012 21:29:39

Ayuda
 
Cita:

Empezado por Casimiro Notevi (Mensaje 442508)
Perfecto ^\||/

Me puedes ayudar con este otro tema? /foros/showthread.php?t=80205

Casimiro Notevi 09-09-2012 21:33:43

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

¡¡¡ Ah !!!, que has puesto un enlace a otra pregunta tuya, vale, iré a verlo.


La franja horaria es GMT +2. Ahora son las 10:31:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi