Pesquisar maiúscula e minúscula

Delphi

30/12/2003

ESTOU USANDO A FUNÇÃO ABAIXO
begin
frm_principal.Table1.Filtered := false;
frm_principal.Table1.Filter := ´NOME = ´´´ + edit1.Text + ´*´´´;
frm_principal.Table1.Filtered := true;
end;

MAS ELA PESQUISA SOMENTE PALAVRA EXATA!

COMO PODEIRA PESQUISAR INDEPENDENTE DE MAIUSCULA OU MINUSCULA OU SE A PALAVRA QUE PROCURO VAI ESTAR NO MEIO DE UMA FRASE OU NO FIM....
EX QUERO A PALAVRA FILTRO
APARECE A FRASE ( DICAS DELPHI PARA filtro de tabelas )


[b:074a73fe8e]Título editado pelo Moderador (AZ)[/b:074a73fe8e]


Crcam

Crcam

Curtidas 0

Respostas

Wallacest

Wallacest

30/12/2003

Amigo, isso não é pesquisa. Isso é FILTRAR

Pesquisar:

frm_principal.Table1.FindKey (Edit1.Text) // Localizar Exato
frm_principal.Table1.FindNearest (Edit1.text) // Localizar o mais proximo possivel do EDIT1


GOSTEI 0
Crcam

Crcam

30/12/2003

EU SEI QUE É UM FILTRO , EU JÁ TENTEI FAZER USANSO UM SELECT DO SQL EM UMA QUERY MAS NÃO ACERTEI COMO ACHAR A PALAVRA NO MEIO DE UMA FRASE.....


MAS FICO GRATO PELA ATENÇÃO!


GOSTEI 0
Joe Ventrue

Joe Ventrue

30/12/2003

use...

Query1.Close;
Query1.Sql.Clear; //limpa a instrucao
Query1.Sql.Add(´ SELECT * FROM tabela ´);
Query1.Sql.Add(´ Where nome like :nome ´);
Query1.ParamByName(´nome´).asString := Copy(edit3.text+´¬´,1,40);
Query1.Open;

//tipo q este 40 do parametro siginifica o tamanho do campo, tipo qtos caracteres tem...

ja tive problemas com isso tb...
pode ter certeza q vai da certo...

Abraço
Joe Ventrue


GOSTEI 0
Matheus Pereira

Matheus Pereira

30/12/2003

Olá!!
Consegui da seguinte maneira

Query.filtered := false
Query.filter := 'upper(campo) like + quotedStr ( '*' + upperCase(variável/edit.text) + '*'
Query.filtered := true
GOSTEI 0
Matheus Pereira

Matheus Pereira

30/12/2003

Olá!!
Consegui da seguinte maneira

Query.filtered := false
Query.filter := 'upper(campo)like' + quotedStr ( '*' + upperCase(variável/edit.text) + '*'
Query.filtered := true
GOSTEI 0
POSTAR