Como Hacer Busquedas Con Query

[pablol23]

BUEN DIA..

Estoy tratando de hacer busquedas aproximadas con el componente query, que cuando cambie lo que tenga en el edit1.text me haga la busqueda relacionada con ese campo..

les agradezco su ayuda.

[*Caro*]

Hola pablol23, puedes utilizar like para hacer tu búsqueda aproximada y lo colocas en el evento OnChange de tu Edit.

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Query.Close;
  Query.Sql.Clear;
  Query.Sql.Add('SELECT campo1, campo2 FROM tabla ');
  Query.Sql.Add('WHERE campo1 LIKE '+QuotedStr(edit1.Text+'% '));
  Query.Open;
end;

Saluditos

[pablol23]

te agradezco mucho , ahora el problema que tengo es que no me los filtra en el dbgrid cuando tecleeo el numero.

No se si el problema sea que en el edit el campo que relaciono es entero
o se tiene que ligar el dbgrid al componente query


garciasss..

[*Caro*]

Hola pablol23, se me ha ido un espacio despues del %, creo que ahí esta el problema, quita el espacio que esta despues del %. Sobre que sea campo numerico no debería afectar y para ver tu resultado en tu dbgrid ya tendrías que haber enlazado tu query a un Datasource y ese dataSource a tu DbGrid, si ya lo tienes enlazado no es necesario que lo vuelvas a enlazar.

Código Delphi [-]
Query.Sql.Add('WHERE campo1 LIKE '+QuotedStr(edit1.Text+'%'));

Saluditos