Consulta(Fb 1.5) - Simples

Firebird

24/03/2005

estou conseguindo fazer a consulta com o delphi 7 e firebird 1.5,mas queria fazer ela com coringas,a procedure do botao pesquisar ta assim :

procedure TFrm_Consulta.Btn_PesqClick(Sender: TObject); begin with DmCliente do begin IBQ.Close; IBQ.SQL.Clear; IBQ.SQL.Add(´SELECT * FROM CLIENTE´); IBQ.SQL.Add(´WHERE APELIDO= :apelido´); IBQ.ParamByName(´apelido´).AsString:=Ed_Pesq.Text; IBQ.Prepare; IBQ.Open; end; end;

eu procurei na net e vi q para fazer procura coringa seria necessario so adicionar +´¬´ depois do ed_pesq.text.
mas msm assim nao está funcionando.


Rafael_iga

Rafael_iga

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

24/03/2005

na verdade vc deve mudar o operador. vc não poderá mais usar o ´=´

procedure TFrm_Consulta.Btn_PesqClick(Sender: TObject); 
begin 
  with DmCliente do 
  begin 
    IBQ.Close; 
    IBQ.SQL.Clear; 
    IBQ.SQL.Add(´SELECT * FROM CLIENTE´); 
    IBQ.SQL.Add(´WHERE APELIDO like :apelido´); 
    IBQ.ParamByName(´apelido´).AsString := Copy(Trim(Ed_Pesq.Text)+´¬´,1,TamanhoDoCampo);
    IBQ.Prepare; 
    IBQ.Open; 
  end; 
end


note que esse exemplo procura pelos apelidos [b:9dab583f0f]iniciados[/b:9dab583f0f] com o parâmetro informado. vc pode usar outras construções para a passagem de parâmetros:
Trim(Ed_Pesq.Text)+´¬´ // comece com o valor informado
´¬´+Trim(Ed_Pesq.Text)+´¬´ // contenha o valor informado
´¬´+Trim(Ed_Pesq.Text) // termine com o valor informado


GOSTEI 0
Rafael_iga

Rafael_iga

24/03/2005

brigado!
funcionou perfeitamente!!! :D :lol:

outra coisa...

alguem sabe se tem como ´traduzir´ ou mudar as mensagens do DbNavigator ????


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

24/03/2005

vc diz dos hint? há uma propriedades Hints no componente. basta editá-la.


GOSTEI 0
Rafael_iga

Rafael_iga

24/03/2005

quando eu cliko nele para deletar.
ele aparece :
´Delete Record ?´

tem como mudar ? :?:


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

24/03/2005

pegue [url=http://www.delphibr.com.br/download.php]aqui[/url] as mensagens traduzidas ou leia esse tópico [url=http://forum.clubedelphi.net/viewtopic.php?t=39606]Traduzir mensagem do DBGrid (Ctrl+Del)[/url]


GOSTEI 0
Rafael_iga

Rafael_iga

24/03/2005

brigado de novo!
aquelas traducoes traduzia os DbNavigator tbm!

vlw :lol: :) :D :lol: :lol:


GOSTEI 0
POSTAR