Olá Willian Jerônymo,
Vivendo e Aprendendo, muito legal !!!
Um abraço,
Carlos
--- Em delphi-br@yahoogrupos.com.br, Willian Jerônymo - Yahoo
<[EMAIL PROTECTED]> escreveu
> Você pode usar assim:
>
> Crie essa function:
>
> Function BuscaTroca(Text,Busca : String) : String;
> Var N : Integer;
> begin
> For N := 1 to Length(Text) do
> begin
> if Copy(Text,N,1) = ' ' then
> begin
> Delete(Text,N,1);
> Insert('%',Text,N);
> end;
> end;
> Result := '%' + Text + '%';
> end;
>
> Depois declare uma variável:
> Var
> Troca : String;
>
> E no seu código utilize assim:
>
> Troca:= BuscaTroca(Edit3.Text,' '); //Para fazer a substituição dos
espaços em branco por %
> Begin
> Close;
> SQL.Clear;
> SQL.Add('SELECT * from Produtos');
> SQL.Add('Where DescProd LIKE QuotedStr(Troca));
> Open;
> if DBEdit1.Text='' then
> ShowMessage('Nome não cadastrado');
> Edit3.Setfocus;
> end;
>
>
> Willian Jerônymo
> ----- Original Message -----
> From: Eduardo Silva ®
> To: delphi-br@yahoogrupos.com.br
> Sent: Wednesday, January 26, 2005 1:27 PM
> Subject: RES: [delphi-br] Pesquisa SQL
>
>
> Willian passa essa função pra mim que eu tentei fazer do jeito
que colocaram
> com e não to conseguindo....
>
> -----Mensagem original-----
> De: Willian Jerônymo - Yahoo [mailto:[EMAIL PROTECTED]
> Enviada em: quarta-feira, 26 de janeiro de 2005 13:19
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] Pesquisa SQL
>
>
>
> O que você pode fazer é quando alguém for consultar alguma
coisa você pode
> instruir a pessoal a digitar da seguinte maneira
>
> no seu Edit: %SHAMPOO%300ML% que irá dar certo, ou você pode
fazer de uma
> maneira automática
>
> trocando os espaços em branco por % que fica melhor para o
usuário.
>
> Se quiser te passo uma função que faz essa troca.
>
>
> Willian Jerônymo
> ----- Original Message -----
> From: fabianojd
> To: delphi-br@yahoogrupos.com.br
> Sent: Wednesday, January 26, 2005 2:18 AM
> Subject: [delphi-br] Pesquisa SQL
>
>
>
> Gostaria de fazer pesquisa SQL por partes do nome
completo. Ex.
> quero achar um SHAMPOO com 300ML, mas não sei o nome
completo. Então
> digitaria: SHAMPOO 300ML.
> Normalmente o nome é: SHAMPOO NOME 300ML.
>
> a funcção que uso é:
>
> Begin
> Close;
> SQL.Clear;
> SQL.Add('SELECT * from Produtos');
> SQL.Add('Where DescProd
LIKE ''%'+Edit3.text+'%'' ');
> Open;
> if DBEdit1.Text='' then
> ShowMessage('Nome não cadastrado');
> Edit3.Setfocus;
> end;
>
>
> Obrigado.
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
>>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
> São Paulo Rio de Janeiro Curitiba Porto
Alegre Belo
> Horizonte Brasília
>
>
>
>
> ----------------------------------------------------------------
----------
> ----
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos
Termos do
> Serviço do Yahoo!.
>
>
>
> [As partes desta mensagem que não continham texto foram
removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
>
>
>
> ------------------------------------------------------------------
----------
> --
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos
Termos do
> Serviço do Yahoo!.
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
> São Paulo Rio de Janeiro Curitiba Porto Alegre
Belo Horizonte Brasília
>
>
>
>
> --------------------------------------------------------------------
----------
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
