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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar