Sql (busca pelo nome)

Delphi

05/04/2003

Amigos programadores preciso da ajuda de vcs, tenho uma Query que faz uma consulta na de produtos pelo nome do produto, o código é o seguinte:
Na propriedade SQL > SELECT REF, PRODUTO, UNID, ESTOQUE, PVENDA
FROM TBPRODUTO WHERE PRODUTO LIKE :EDPESQ

No evento OnChange de um Edit tenho:

QRYBUSCA.CLOSE;
QRYBUSCA.Params[0].AsString := EDPESQ.Text+´¬´;
QRYBUSCA.OPEN;

Até ai tudo bem a Query faz a consulta normal, o problema e que ela esta fazendo distinção entre letras Maisculas e Minusculas, e já alterei a propriedade foCaseInsensitive para True, mais ainda continua fazendo a distinção....como faço pra resolver isso?

elvissonm@yahoo.com.br


Anonymous

Anonymous

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

05/04/2003

Amigos programadores preciso da ajuda de vcs, tenho uma Query que faz uma consulta na de produtos pelo nome do produto, o código é o seguinte: Na propriedade SQL > SELECT REF, PRODUTO, UNID, ESTOQUE, PVENDA FROM TBPRODUTO WHERE PRODUTO LIKE :EDPESQ No evento OnChange de um Edit tenho: QRYBUSCA.CLOSE; QRYBUSCA.Params[0].AsString := EDPESQ.Text+´¬´; QRYBUSCA.OPEN; Até ai tudo bem a Query faz a consulta normal, o problema e que ela esta fazendo distinção entre letras Maisculas e Minusculas, e já alterei a propriedade foCaseInsensitive para True, mais ainda continua fazendo a distinção....como faço pra resolver isso? elvissonm@yahoo.com.br


Use Upper na cláusula where. Veja o exemplo:

SELECT REF, PRODUTO, UNID, ESTOQUE, PVENDA
FROM TBPRODUTO WHERE UPPER(PRODUTO) LIKE :EDPESQ



GOSTEI 0
POSTAR