Ricardo,
Use a função UPPER do firebird para isto:
sql :='select * from TB_PRODUTO where UPPER(NOME_PROD)
like'+''''+'%'+Ansiuppercase(edtBusca.Text)+'%'+'''';
Sucesso !!
Moacir
ricardo_rmsr escreveu:
> Bom dia ... Estou fazendo uma aplicação Delphi para meu TCC, esta aplicação
> utiliza o componente BDE para conexão com Firebird, fiz um formulário onde
> tenho um edid, dbgrid, datasource e sqlquery. Meu código de pesquiza está
> assim:
>
> sql : String;
> begin
> sql :='select * from TB_PRODUTO where NOME_PROD
> like'+''''+'%'+edtBusca.Text+'%'+'''';
> DMBusca.qVenda.Close;
> DMBusca.qVenda.SQL.Clear;
> DMBusca.qVenda.SQL.Add(sql);
> DMBusca.qVenda.Open;
>
> a pesquisa está funconando, porém as informações armazenadas na TB_PRODUTO,
> estão escrita com a primeira letra em maiuscula e o restante em minusculo,
> como eu faço para fazer a pesquisa sem diferencias as letras....
>
> Obrigado Ricardo Rocha....
>
>
>
>
> ------------------------------------
>
>
