pesquisa incremental com query

[vms]

uso este codigo para fazer pesquisa incremental em tabela

procedure TForm1.Edit1Change(Sender: TObject);
begin
Width Edit1 do
if Text <>'' then
  Table1.FindNearest([Text]);
end;

queria fazer o mesma açao com uma query em um compo autoincremento (+)

uso tabela paradox

Editado Janeiro 24, 2008 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Jhonas]

queria fazer o mesma açao com uma query

procedure TForm1.Edit1Change(Sender: TObject);
begin
   Query1.Active := false;
   Query1.Params[0].AsString := '%' + trim(Edit1.Text) + '%';
   Query1.Active := true;
end;

OBS: a porcentagem no inicio e fim da string, indica que a procura sera em qualquer posição do registro, que podera ser no começo, meio ou no fim

observe que enquanto voce vai digitando no edit1 os caracteres são passados como parametro para a query

abraço

[Micheus]

queria fazer o mesma açao com uma query em um compo autoincremento (+)

uso tabela paradox

vms, a pesquisa incremental em campos numéricos não funcionam muito bem (dependendo do que você espera).

Supondo que você imagine que esta pesquisa se dê da mesma forma que a realizada com strings, então, seria razoável considerar que ao digitar 2, sua consulta comece a mostrar apenas os números que começam com 2, então em um banco grande você poder ter resultados neste formato (baseado em LIKE <valor>+%):

+------+------+------+
|campo1|campo2|campo3|
+------+------+------+
|     2|      |
|    21|      |
|    22|      |
|    23|      |
...
|   200|      |
|   201|      |
|   202|      |
...
|  2000|      |
|  2001|      |
|  2002|      |
+------+------+------+

Se for isto o esperado, vale lembrar que você terá que converter o campo numérico em questão para string - isso pode ser feito na consulta apenas. Veja este tópico.

E para entender o a finalidade dos %, apresentados pelo Jhonas, dê uma olhada neste post.

Abraços