D�vida em busca Avan�ada

Question

Bom dia amigos....        Eu consigo fazer uma busca por qualquer palavra de um texto???   Ex:           o texto estar� num editbox : On�a comendo um macaco              Se eu procurar por (on�a, come...

Lucas Silva · Answer

Tenta separar as palavas com a fun��o [b:62ecb843b4]Pos[/b:62ecb843b4];

pos(� �,edit1.text) // vc procura o espa�o em branco dentro da string;

E depois voc� faz uma pesquisa com cada palavra.

Renato Battaglia · Answer

Meu c�digo de pesquisa � este abaixo!! como eu encaixaria o c�digo que vc me passou no meu, para que o programa me encontre qualquer uma das palavras do texto digitado????

procedure TFormPesquisa.BitBtnPesquisaClick(Sender: TObject);
var
Bichos: String;
begin
Bichos := Edit1.Text;
TableTimeCode.FindKey([Bichos]);
TableTimeCode.CancelRange;
TableTimeCode.IndexName := �IBichos�;
TableTimeCode.SetRange([IBichos],[IBichos]);
if TableTimeCode.Eof then
begin
TableTimeCode.CancelRange;
ShowMessage(�Nenhum bicho com este nome!�);
end
else
begin
Height := 375;
Top := 110;
DBGridPesquisa.SetFocus;
end;
end;

Aroldo Zanela · Answer

Colega,Utilize um componente TQuery ao inv�s de TTable e fa�a algo como:[code:1:1c413e697b]With Query1 do  Close;  SQL.Text := Concat(�Select * from TABELA where coluna_descr like ��, Edit1.Text, ���);  Open;  if RecordCount<=0 then ShowMessage(�N�o encontrado�);end;[/code:1:1c413e697b]...

Renato Battaglia · Answer

Caro Haroldo,

O problema � que eu n�o fa�o a m�nima ideia de como usar uma Query.... Meu programa j� est� quase pronto em Table, para eu usar Query, eu tenho que mudar toda a estrutura dele??

Eu j� tentei uma vez usar, s� que dava um erro de SQL!!

Eu sou novato, se algu�m tiver alguma apostila, ou coisa parecida para me ajudar como eu trocar Table por Query, ficarei eternamente agradecido!!!

Mais uma vez agrade�o a aten��o!

F�rum D�vida em busca Avan�ada #211555