Pesquisar em DB ACSESS

Delphi

03/06/2004

Olá Pessoal

Estou tentando fazer uma pesquisa em um DB Access e não dá certo de jeito nenhum.
Vejam como estou fazendo:

[color=red:e277ad3637]procedure TForm1.Edit1Change(Sender: TObject);
var
Nome, PesqNome, I, F : String;
begin
Query1.Close;
Query1.SQL.Clear;
I := ´´¬´;
F := ´¬´´;
Nome:= Edit1.Text;
PesqNome := ´SELECT * FROM Agenda Where Nome LIKE ´;
PesqNome := PesqNome + I + Nome + F;
Query1.SQL.Add(PesqNome);
Query1.Open;
end;[/color:e277ad3637]

Só lembrando, estou conectando no DB Access via TDatabase e criei um alias no BDE.

Alguém poderia me ajuda?

Grato
T+


Hcaixeta

Hcaixeta

Curtidas 0

Respostas

Sandra

Sandra

03/06/2004

hcaixeta,

Eu tentaria assim, sem utilizar variáveis e passando parâmetros para a pesquisa:
procedure TForm1.Edit1Change(Sender: TObject); 
begin 
  Query1.Close; 
  Query1.SQL.Clear; 
  Query1.SQL.Add(´Select * From Agenda´);
  Query1.SQL.Add(´Where Nome Like :PNome´); 
  Query1.SQL.Add(´Order by Nome´);
  Parameters.ParamByName(´PNome´).Value := ´¬´+Edit1.Text+´¬´ ;
  Query1.Open; 
end;


Tente e veja se funciona. Boa sorte!


GOSTEI 0
Hcaixeta

Hcaixeta

03/06/2004

Muito obrigado pela dica.Eu já tinha conseguido fazer de outra maneira.
Veja como consegui:


[color=red:01f0f1269d]procedure TForm1.Edit1Change(Sender: TObject);
var
Nome, PesqNome, I : String;
begin
Query1.Close;
Query1.SQL.Clear;
I := #39;

Nome:= Edit1.Text + ´¬´;
PesqNome := ´SELECT * FROM Agenda Where Nome LIKE ´;
PesqNome := PesqNome + I + Nome + I;
Query1.SQL.Add(PesqNome);
Query1.Open;
end;[/color:01f0f1269d]
Valeu
T+


GOSTEI 0
POSTAR