Fórum Pesquisar em DB ACSESS #236015
03/06/2004
0
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+
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
Curtir tópico
+ 0
Responder
Posts
04/06/2004
Sandra
hcaixeta,
Eu tentaria assim, sem utilizar variáveis e passando parâmetros para a pesquisa:
Tente e veja se funciona. Boa sorte!
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!
Responder
Gostei + 0
04/06/2004
Hcaixeta
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+
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+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)