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 Edits (https://www.clubdelphi.com/foros/showthread.php?t=81738)

feliz-58 13-12-2012 15:04:17

Busqueda En Edits
 
Como Puedo realizar una Busqueda en una base de datos en Access, con un Edit y un boton, que cuando busque en la columna de nombres, Por ejemplo a Juan, que me aparesca todos los Datos Ingresados de Juan en los DBEdits correspondientes.

Gracias. :D :confused:

ecfisa 13-12-2012 15:11:32

Hola feliz-58.

No especificas con que componentes estas trabajando...

Ejemplo con TADOQuery:
Código Delphi [-]
procedure TForm1.btnMostrarClick(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Text:= 'SELECT * FROM TU_TABLA WHERE CAMPO_NOMBRE = :PNOMBRE';
    Parameters.ParamByName('PNOMBRE').Value:= Edit1.Text;
    Open;
  end;
end;

Saludos.

feliz-58 13-12-2012 15:21:45

Componentes
 
ADO COnection y ADO Table.

feliz-58 13-12-2012 15:42:36

Pero ya gracias el codigo que me enviaste me funciono a la perfección, //Muchas Gracias :)

ecfisa 13-12-2012 15:53:40

Cita:

Empezado por feliz-58 (Mensaje 451762)
ADO COnection y ADO Table.

Hola feliz-58.

Código Delphi [-]
procedure TForm1.btnMostrarClick(Sender: TObject);
begin
  with ADOTable1 do
  begin
    Filtered:= False;
    Filter:= 'CAMPO_NOMBRE = '+QuotedStr(Edit1.Text);
    Filtered:= True;
  end;
end;
Te recomiendo pegar una leida a este enlace: Data filtering para familiarizarte con los filtros.

Saludos.

Edito: No había visto tu último mensaje, me alegro :). De todas formas el enlace te va a aclarar el tema de los filtros.


La franja horaria es GMT +2. Ahora son las 04:03:14.

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