Testei o código abaixo no delphi 2010 e funcionou, como meu projeto ainda é
apenas um protótipo, vou seguir no delphi 2010 mesmo
CDSPesquisa.Filtered := False;
CDSPesquisa.Filter := 'NOME_NO_SISTEMA LIKE ' + QuotedS('%
+BtePesquisar.Text+'%');
CDSPesquisa.Filtered := True;
Usando: FilterOptions := [foCaseInsensitive]
Nota: Eu estava testando no delphi 2009, não sei a causa de não ter
funcionado, deve ser algum detalhe que me escapou :-)
Valeu, vamos em frente
-------Original Message-------
From: Luciano Angelini
Date: 11/09/09 09:35:24
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Filtro no ClientDataSet Usando LIKE
Veja .....
Vc pode usar esse exemplo num edit OnChange .. conforme vc vai digitando ...
FrmDm.CDS_Setores.filter := 'NOME_SET LIKE ' +
QuotedStr('%'+Edit1.text+'%');
FrmDm.CDS_Setores.Filtered := true;
FrmDm.CDS_Setores.locate('nome_set','edit1.text',[loPartialKey]) ;
** QuotedStr(''+Edit1.text+'%') que comece com a letra
** QuotedStr('%'+Edit1.text+'%') que contenha a letra
** QuotedStr('%'+Edit1.text+''); que termine com a letra
Espero ter ajudado !!!!!
Luciano Angelini
PM de Lupionópolis-Pr
Gilvan Costa escreveu:
>
> Olá Srs
> Estou querendo montar um filtro com ClietDataSet de forma que ele me traga
> os registro de todos que começa com a letra A por exemplo .
> Tipo o que eu faço com no SQL:
> CDSPesquisa.Params.ParamByName('Pesquisa').Value := '%'+ Pesquisa +'%';
> O objetivo é claro, uma vez que eu já tenho os dados no grid, gostaria de
> fazer diversos filtros e não mais precisar
> ir no banco de dados e fazer uma nova consulta.
>
> Tentei montar o filtro usando LIKE mais não deu certo:
> CDSPesquisa.Filtered := False;
> CDSPesquisa.Filter := 'Meu Campo Like '+ QuotedStr('%' + BtePesquisar
> Text + '%' );
> CDSPesquisa.Filtered := True;
>
> Assim deu certo, mas só funcionar para um valor completo
> CDSPesquisa.Filter := 'Meu Campo = ' + QuotedStr(BtePesquisar.Text);
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
> ------------------------------------------------------------------------
>
> avast! Antivirus <http://www.avast.com>: Inbound message clean.
>
> Virus Database (VPS): 091108-1, 08/11/2009
> Tested on: 11/9/aaaa 09:18:35
> avast! - copyright (c) 1988-2009 ALWIL Software.
>
>
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 091108-1, 08/11/2009
Tested on: 11/9/aaaa 09:35:08
avast! - copyright (c) 1988-2009 ALWIL Software.
http://www.avast.com
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
[As partes desta mensagem que não continham texto foram removidas]
