Ajuda com filtro

[VDLR]

Pessoal tudo bem?

Uso este código para filtrar a tabela.

procedure TForm10.BTpesquisaClick(Sender: TObject);
var
Consulta: String;
begin
Consulta:= EDpesquisa.Text;
  DMdados.TBCadCliente.Filtered:=False;
  DMdados.TBCadCliente.Filter:= 'nome LIKE'+QuotedStr('%' + Consulta + '%');
  DMdados.TBCadCliente.Filtered:=True;
  EDpesquisa.clear;

Só se eu escrever Valdecir com a primeira maiúscula ele localiza na tabele, porém se eu escrever valdecir tudo minúsculo não localiza nada, o grid fica vazio.

Eu gostaria de escrever tanto maiúscula ou minúsculo e localizar na tabela.

Tem como fazer isto?

Abraço

Valdecir :unsure:

[K!ko]

Eu gostaria de escrever tanto maiúscula ou minúsculo e localizar na tabela.

O que você pode fazer é, dependendo de como esta em seu banco, setar tudo como maiusculo ou tudo como minusculo no filtro.

Ficaria assim para maiusculo:

DMdados.TBCadCliente.Filtered:=False;
 DMdados.TBCadCliente.Filter:= 'nome LIKE'+QuotedStr('%' +UpperCase(Consulta) + '%');
 DMdados.TBCadCliente.Filtered:=True;

e assim pra minusculo:

DMdados.TBCadCliente.Filtered:=False;
 DMdados.TBCadCliente.Filter:= 'nome LIKE'+QuotedStr('%' +LowerCase(Consulta) + '%');
 DMdados.TBCadCliente.Filtered:=True;

Eu sugiro que ao gravar algum registro em seu banco, ou grave tudo em maiusculo ou grave tudo em minusculo... para facilitar as buscas posteriormente. Ai quando você for mostrar algum registro você arruma o display dele da forma que você quiser.

Abraço.

[Vivendo&Aprendendo]

Ola

Para salvar tudo maiusculo ou tudo minusculo no banco basta mudar a propriedade CharCase de cada Edit:

Maiusculo mude para: ecUpperCase;

Minusculo mude para: ecLowerCase;

Abraços

[Luis Ricardo]

ADOTable1.Locate('campo a ser consultado',componente de busca[um edit],[loCaseInsensitive,loPartialKey]);

Outra maneira de se fazer isso sem se preocupar com minusculo ou maiuscula.

Editado Julho 2, 2008 por Luis Ricardo

[Micheus]

Só se eu escrever Valdecir com a primeira maiúscula ele localiza na tabele, porém se eu escrever valdecir tudo minúsculo não localiza nada, o grid fica vazio.

Eu gostaria de escrever tanto maiúscula ou minúsculo e localizar na tabela.

habilite na propriedade FilterOptionsa opção foCaseInsensitive.

Abraços