Fórum Pesquisa em uma dbgrid #391437

29/11/2010

0

Tenho uma dbgrid e faço uma pesquisa no banco de dados atraves de uma edit com o seguinte codigo
  DataModule_dados.TblProdutos.Locate('PRODUTO',Vararrayof([EditPesquisa.Text]),[loPartialKey,LocaseInsensitive]);
Porem na Dbgrid ele seleciona o nome digitado e mostra todos os outros e eu quero ver somente o digitado. Quero que ele apague da dbgrid os outros dados
Daniel

Daniel

Responder

Posts

29/11/2010

Leonardo Xavier

Lor locate vopcê nao conseguirá fazer isso, mas somente etditando diretamente na SQL.

(Select * from tabela where meucampo='+EditPesquisa.Text+'')
Responder

Gostei + 0

29/11/2010

Daniel

Lor locate vopcê nao conseguirá fazer isso, mas somente etditando diretamente na SQL.

(Select * from tabela where meucampo='+EditPesquisa.Text+'')
  Mas onde devo colocar estes codigos (sou iniciante em delphi) e devo apagar o locate
Responder

Gostei + 0

29/11/2010

Leonardo Xavier

Na verdade você deve colocar este código dentro da sua query, ADO ,Ou outro componente que você etava ligando sua tabela. FAÇA ASSIM COLOQUE AQUI QUAL COMPONENTE QUE VC ESTA USANDO PARA CONECTAR SUA TABELA EM SEU BANCO DE DADOS QUE EU EXPLICO PARA VC COMO VC FAZ ISSO. ABRAÇOS
Responder

Gostei + 0

29/11/2010

Daniel

Na verdade você deve colocar este código dentro da sua query, ADO ,Ou outro componente que você etava ligando sua tabela. FAÇA ASSIM COLOQUE AQUI QUAL COMPONENTE QUE VC ESTA USANDO PARA CONECTAR SUA TABELA EM SEU BANCO DE DADOS QUE EU EXPLICO PARA VC COMO VC FAZ ISSO. ABRAÇOS
  Uso o sqlquery
Responder

Gostei + 0

29/11/2010

Leonardo Xavier

Tente o seguinte:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select *from minhatabela where campo:='+meu_edit+'');
Query1.Prepare;
Query1.Open;

Responder

Gostei + 0

29/11/2010

Daniel

Tente o seguinte:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select *from minhatabela where campo:='+meu_edit+'');
Query1.Prepare;
Query1.Open;

  Tentei ele nao busca na edit, ele nao faz a pesquisa
Responder

Gostei + 0

29/11/2010

Leonardo Xavier

Tente o seguinte:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select *from minhatabela where campo:='+meu_edit+'');
Query1.Prepare;
Query1.Open;

  Tentei ele nao busca na edit, ele nao faz a pesquisa


Esta rotina Não realiza busca diretamente no evento on change, mas você tem que colocar o texto a ser pesquisado em algum edit e colocar este cógigo em um botão de sua preferencia. E após ter digitado no edit clica no botão.
Responder

Gostei + 0

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

Aceitar