18/03/2006

Por favor me ajudem!

Pessoal, preciso do seguinte:

tenho uma query, e um form de cadastros com um grid,
tenho tambem um botao pesquisar e um edit.
queria tipo, fazer uma consulta, colocando o sql no codigo fonte de programa e nao na query, mas nao funciona.
uso o delphi 7 com interbase.

POR FAVOR ALGUEM ME AJUDA!!!


[b:55167a68b9][color=blue:55167a68b9]Tópico bloqueado por Vinicius2K:[/color:55167a68b9][/b:55167a68b9] [b:55167a68b9][color=red:55167a68b9][list:55167a68b9][*:55167a68b9]Título apelativo.[/list:u:55167a68b9][/color:55167a68b9][/b:55167a68b9] Peço que leia atentamente as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]Regras de Conduta[/url] e se algum esclarecimento sobre o funcionamento do fórum ou sobre as Regras de Conduta for necessário, envie-me uma [url=http://forum.clubedelphi.net/privmsg.php?mode=post&u=2796]Mensagem Particular[/url].



Ricieri

Respostas

18/03/2006

Paullsoftware

cara no tópico anterio já foi dado um exemplo aqui vai outro!


coloque um botão no seu form e faça assim no OnClick dele
se for pesquisar por campo numerico faça assim:
with Query do
begin
 Close;
 Sql.Clear;
 Sql.Add(´Select * From Tabela´+;
             ´Where Codigo=:wId´+;
             ´Order By Nome´);
 Parameters[0&93;.AsInteger := StrToInt(EditPesquisa.Text);
 Prepare;
 Open;
end;

se for pesqusiar por campo texto faz assim:
with Query do
begin
 Close;
 Sql.Clear;
 Sql.Add(´Select * From Tabela´+;
             ´Where Nome Starting With :wNome´+;//Uso starting with para fazer uma pesquisa pelo inicio do nome
             ´Order By Nome´);
 Parameters&91;0&93;.AsString := EditPesquisa.Text;
 Prepare;
 Open;
end;

espero ter ajudado! :wink:


Responder Citar