Edit de Consulta

Question

Ae galera...to com algum problema que nao consigo filtrar os registros de jeito nenhum...Tenho uma tabela de Lancamentos Financeiros...em uma tela de consulta tenho um Edit para procurar por um campo ...

Joe Ventrue · Answer

Obs.: na primeira citacao acima eu coloquei o procedure como BitBtn4.Click mas na realidade � a saida do Edit3Sobe...

Pedro Bugim · Answer

N�o sei se vai ajudar muito, mas quando fa�o pesquisas, geralmente n�o uso passagem por par�metros... Sei que n�o � o ideal, mas quando se trata de c�digos pequenos, acho mais simples.
Caso esteja interessado em tentar, a� vai uma poss�vel sa�da:

procedure Tfrm_movimento.BitBtn4Click(Sender: TObject);
begin
With Query1 do
begin
Close;
Sql.Clear;
Sql.Add(�Select * from ciel_vom Where favorecido like �+Quotedstr (edit3.text)+� + ��)�;
Open;
end;
end;

Espero que d� uma ajuda...
Abra�os,

Joe Ventrue · Answer

Ola Pedro...vc tem raz�o, � a resposta q eu queria mas ainda tem um pequeno probleminha...quando eu coloquei esse codigo, deu uma msg de �KeyWord Invalid�...tipo:Eu preciso procurar na tabela os registros do favorecido JUNIOR por exemplo, qdo eu coloco no edit e aciono o botao ele da essa msg:[quote:8f288eafcb]Project Gerente.exe raised excepton class BDEngineError with message �Invalid use of KeyWord.Token:�JUNIOR�Line Number: 1�. process stoped. Use Stop or Run to Continue[/quote:8f288eafcb]Acho q � isso...Abra�osJunior...

Pedro Bugim · Answer

Putz... agora vc me pegou...Realmente n�o vejo motivo para este erro. Geralmente quando esses �erros do al�m� acontecem, tento fazer tudo do jeito mais simples poss�vel. � mais trabalhoso e n�o fica esteticamente bonito o formul�rio em tempo de projeto, mas de vez em quando funciona.Tente o seguinte: crie um edit, troque sua propriedade caption para � e mude seu visible=false; (suponhamos que seja o edit1).Ent�o, no select, coloque o seguinte c�digo:(�Select * from ciel_vom Where favorecido like �+Quotedstr(Edit1.text)+� + �+Quotedstr (edit3.text)+� + �+Quotedstr(Edit1.text)+��);Tente desta forma. Funcionando ou n�o, me responda... fiquei curioso!Abra�os,...

Joe Ventrue · Answer

Kra...naum deu certo...tentei fazer o q vc falou mas naum deu...estranho isso n�?...

Pedro Bugim · Answer

Cara, no primeiro exemplo que te mandei tinha um pequeno erro, quase impercept�vel...eu escrevi:

Sql.Add(�Select * from ciel_vom Where favorecido like �+Quotedstr (edit3.text)+� + ��)�;

mas a �ltima aspa est� errada. Ela deve ficar dentro do par�nteses!!! se vc copiou exatamente como estava aki, deve ter sido o motivo do erro. Se quiser, tenta mudar este pequeno detalhe! Agora, ficar�:

Sql.Add(�Select * from ciel_vom Where favorecido like �+Quotedstr (edit3.text)+� + ��);

N�o sei se vai solucionar o problema, mas j� � alguma coisa! Hehehehe!
Abra�os,

Joe Ventrue · Answer

nao kra...na verdade eu tinha tirada ja as aspas antes de colocar este codigo...realmente nao � o motivo do erro...rapaz...q sera isso... veja minha ultima tentativa:[quote:3882935491]var   favor:string;begin   favor:=Edit3.Text;   with Query1 do begin       SQL.Clear;       Close;       SQL.Add(�Select * from ciel_vom where favorecido = :nome�);       Params.ParamByName(�nome�).AsString := (favor);       Prepare;       Open;end;[/quote:3882935491]Tentei isto, mas tb nao deu certo...Agrade�o pela paciencia...AbracosJunior...