Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   buscar varios registros en una tabla (https://www.clubdelphi.com/foros/showthread.php?t=69092)

mdcynsk 26-07-2010 01:30:34

buscar varios registros en una tabla
 
buenas, hoy me encuentro con un problemita, veran, nesecito realizar una busqueda en una tabla a partir del dato ingresado en un dbedit pero que me muestre mas de un registro coincidente es decir por ejemplo si busco por apellido o por ciudad me devuelva varios registros con la misma condicion y los muestre en un dbgrid para despues poder seleccionar uno y poder modificarlo o eliminarlo, nesecitaria si alguien sabe,me de una idea lo mas detallada posible ya que busque en varios libros la opcion de lookup y no la entendi muy bien

ecfisa 26-07-2010 02:35:00

Hola mdcynsk.

Una forma de hacerlo sería usando un TEdit, un TQuery y un TDBGrid.
Para ejemplificarte uso la tabla Customer de DBDemos que viene con Delphi.

Ya sea en el evento OnExit del Edit o en OnClick de algún botón poné el
siguiente código:

Código:

procedure TForm1.HacerConsulta(ATable, AField, Buscado: string);
begin
  Query1.SQL.Text:= 'SELECT * FROM ' + Atable +
                ' WHERE ' + AField + ' = ' + QuotedStr(Buscado);
  Query1.Open;
end;

Ejemplo de llamada:
Código:

procedure TForm1.Button1Click(Sender: TObject);
begin
  HacerConsulta('CUSTOMER','STATE',Edit1.Text);
end;

Saludos.


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

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