Por favor me ajudem!

18/03/2006

0

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!!!


[quote:55167a68b9=´Moderação´][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].[/quote:55167a68b9]


Ricieri

Ricieri

Responder

Posts

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].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[0].AsString := EditPesquisa.Text;
 Prepare;
 Open;
end;

espero ter ajudado! :wink:


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar