localização

Delphi

29/05/2003

if edit1.Text=´´ then exit;
dm.nf.Locate(´fornecedor´,edit1.text,[lopartialkey]);

O que está errado no codigo acima:

Tenho um DBgrid com dados e quero a partir de edit, permitir ao usuário localizar dos dados por fornecedor.


Luc2403

Luc2403

Curtidas 0

Respostas

Luciano Pimenta®

Luciano Pimenta®

29/05/2003

Adicione o locaseinsensitive (não tenho certeza se escrev assim), no parametro do locate:

dm.nf.Locate(´fornecedor´,edit1.text,[lopartialkey,[b:3f2d09a5ef]locaseinsensitive[/b:3f2d09a5ef]]);


GOSTEI 0
Luc2403

Luc2403

29/05/2003

não deu certo...


GOSTEI 0
Sandra

Sandra

29/05/2003

:idea:

A propriedade DataSource do DBGrid está ligada ao DataSource da sua tabela?

:?:


GOSTEI 0
Luc2403

Luc2403

29/05/2003

Sim, está...

:idea: A propriedade DataSource do DBGrid está ligada ao DataSource da sua tabela? :?:



GOSTEI 0
Sandra

Sandra

29/05/2003

if edit1.Text=´´ then exit; dm.nf.Locate(´fornecedor´,edit1.text,[lopartialkey]); O que está errado no codigo acima: Tenho um DBgrid com dados e quero a partir de edit, permitir ao usuário localizar dos dados por fornecedor.


Luc2403,

Acho que descobri o que está acontecendo. Faça assim:

if edit1.Text=´´ then
  exit
else
  dm.nf.Locate(´fornecedor´,edit1.text,[loCaseInsensitive, loPartialKey]);


Será que agora resolve?

Para facilitar a visualização e o entendimento da estrutura If..Then...Else, utilize sempre desta maneira:

If <teste> Then
  <seu comando>  //não se esqueça de colocar begin/end caso tenha mais de um comando
Else
  <seu comando>;  //também o begin/end caso tenha mais de um


Boa sorte!!


:wink:


GOSTEI 0
Luc2403

Luc2403

29/05/2003

Nao deu certo. Ainda nao agrupou os dados iguais.

[quote:f9cebf3d26=´luc2403´]if edit1.Text=´´ then exit; dm.nf.Locate(´fornecedor´,edit1.text,[lopartialkey]); O que está errado no codigo acima: Tenho um DBgrid com dados e quero a partir de edit, permitir ao usuário localizar dos dados por fornecedor.


Luc2403,

Acho que descobri o que está acontecendo. Faça assim:

if edit1.Text=´´ then
  exit
else
  dm.nf.Locate(´fornecedor´,edit1.text,[loCaseInsensitive, loPartialKey]);


Será que agora resolve?

Para facilitar a visualização e o entendimento da estrutura If..Then...Else, utilize sempre desta maneira:

If <teste> Then
  <seu comando>  //não se esqueça de colocar begin/end caso tenha mais de um comando
Else
  <seu comando>;  //também o begin/end caso tenha mais de um


Boa sorte!!


:wink:[/quote:f9cebf3d26]


GOSTEI 0
Salupe

Salupe

29/05/2003

em vez de table ligue o dbgrid a uma query e faça a pesquisa assim:

query1.Sql.Clear;
Query1.Sql.Add(´Select * from nf where fornecedor = ´´+Edit1.Text+´´´);
Query1.Open;

execute isso cada vez que quiser atualizar o grid e pronto.


GOSTEI 0
Luc2403

Luc2403

29/05/2003

Está dando erro:

Não foi possivel encontrar o arquivo C;\utilitarios\Projetos\Controle\dm.mdb

em vez de table ligue o dbgrid a uma query e faça a pesquisa assim: query1.Sql.Clear; Query1.Sql.Add(´Select * from nf where fornecedor = ´´+Edit1.Text+´´´); Query1.Open; execute isso cada vez que quiser atualizar o grid e pronto.



GOSTEI 0
Salupe

Salupe

29/05/2003

coloque a query no próprio form do dbgrid, sem precisar utilizar um data module, só não esqueça de fechar a query quando fechar a form.


GOSTEI 0
Luc2403

Luc2403

29/05/2003

Continua o mesmo erro.
Nao foi possivel encontrar o arquivo c:\utilitarios\projetos\controle\dm.mdb

coloque a query no próprio form do dbgrid, sem precisar utilizar um data module, só não esqueça de fechar a query quando fechar a form.



GOSTEI 0
Salupe

Salupe

29/05/2003

você está indicando o database name corretamente, ou seja, indicando onde está este seu arquivo dm.mdb, aliás ele está nesta pasta


GOSTEI 0
Luc2403

Luc2403

29/05/2003

Para falar a verdade, o nome da minha base é - bd - e está localizado na pasta c:\utilitarios\projetos\controle.
dm é o nome do meu datamodule.

você está indicando o database name corretamente, ou seja, indicando onde está este seu arquivo dm.mdb, aliás ele está nesta pasta



GOSTEI 0
Salupe

Salupe

29/05/2003

a query estando no form do dbgrid você nao precisa indicar o data module, indique somente a pasta da base ou o nome do alias na propriedade do database name


GOSTEI 0
Luc2403

Luc2403

29/05/2003

Desculpa amigo, mas como sou iniciante total de Delphi sinceramente - ao meu ver - está tudo certo, mas não agrupa os dados.
Gostaria que se possivel vc me fornecesse o seu e-mail para que eu mandasse um copia do meu projeto para que vc pudesse dar uma olhada.




a query estando no form do dbgrid você nao precisa indicar o data module, indique somente a pasta da base ou o nome do alias na propriedade do database name



GOSTEI 0
Salupe

Salupe

29/05/2003

sandrolp@bol.com.br


GOSTEI 0
POSTAR