Fórum Onde está o Erro? #297854
30/09/2005
0
[b:cc7e950ae2]
procedure Tpesquisa.Edit1Change(Sender: TObject);
var
Flag: string;
begin
Flag := ´N´;
Pesquisa.Close;
Pesquisa.SQL.Text := ´select * from Carta where recebido = ´+quotedstr(flag)+´ and nome like ´+´´´*´+Edit1.Text+´*´´´;
Pesquisa.Open;
end;[/b:cc7e950ae2]
Thales
Curtir tópico
+ 0Posts
30/09/2005
Michelli88
Gostei + 0
30/09/2005
Michelli88
Pesquisa.Close; Pesquisa.SQL.Text := ´select * from Carta where recebido = ´+quotedstr(flag)+´ and nome like ´+´´´*´+Edit1.Text+´*´´´; Pesquisa.Open;
num botão...
o evento onChange ele eh chamado cada vez q vc digita uma letra por exemplo...
Gostei + 0
30/09/2005
Rjun
procedure Tpesquisa.Edit1Change(Sender: TObject); var Flag: string; begin Flag := ´N´; Pesquisa.Close; Pesquisa.SQL.Text := ´SELECT * from Carta where recebido = ´+ QuotedStr(flag) + ´ and nome like ´+ QuotedStr(´*´+ Edit1.Text + ´*´); Pesquisa.Open; end;
Gostei + 0
30/09/2005
Thales
Gostei + 0
30/09/2005
Rjun
Isso já imaginava. Perguntei qual componente é o PESQUISA.
Gostei + 0
30/09/2005
Thales
É AdoQuery..
Tentei usar o .... + QuotedStr(´*´+ Edit1.Text + ´*´); e deu na mesma...
Gostei + 0
30/09/2005
Rjun
Gostei + 0
30/09/2005
Thales
Gostei + 0
30/09/2005
Rjun
Gostei + 0
30/09/2005
Thales
abracos e obrigado pela ajuda! :)
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)