Fórum O erro pode estar nos parâmetros ??? #240536

[b:8f3f9f1606]Tenho o seguinte Código :[/b:8f3f9f1606]

QueryLivros.close;
QueryLivros.sql.clear;
QueryLivros.sql.add(´Select Instituicao, Titulo, Assunto, Tipo, Autor, Idioma, Ano from Livros ´);
QueryLivros.sql.add (´where upper (Instituicao) Like:par1´) ;
QueryLivros.sql.add (´and upper (Tipo) Like:par2´);
QueryLivros.sql.add (´and upper (Ano) Like:par3´);
QueryLivros.sql.add (´and upper (Assunto) Like:par4´);
{QueryLivros.sql.add (´and Local Like:par5´);}
QueryLivros.sql.add (´and upper (Titulo) Like:par6´);
QueryLivros.sql.add (´and upper (Autor) Like:par7´);
QueryLivros.sql.add (´and upper (Idioma) Like:par8´);
QueryLivros.ParamByName(´par1´).Value := uppercase (´¬´ + EditInstituicao.Text + ´¬´) ;
QueryLivros.ParamByName(´par2´).Value := uppercase (´¬´ + EditTipo.Text + ´¬´);
QueryLivros.ParamByName(´par3´).Value := uppercase (EditAno.Text + ´¬´);
QueryLivros.ParamByName(´par4´).Value := uppercase (´¬´ + EditAssunto.Text + ´¬´);
{QueryLivros.Parameters.ParamByName(´par5´).Value := ´¬´ + EditLocal.Text + ´¬´; }
QueryLivros.ParamByName(´par6´).Value := uppercase (´¬´+ EditTitulo.Text + ´¬´);
QueryLivros.ParamByName(´par7´).Value := uppercase (´¬´+ EditAutor.Text + ´¬´);
QueryLivros.ParamByName(´par8´).Value := uppercase (´¬´+ ComboIdioma.Text + ´¬´);
QueryLivros.Open;

QueryLivros.first;
QueryLivros.last;
Querylivros.FetchAll;
Total.Caption := IntToStr(QueryLivros.RecordCount);

******************************

Acontece que o recordcount me retorna poucos registros ...



Mas se eu mudar o código para :

QueryLivros.close;
QueryLivros.sql.clear;
QueryLivros.sql.add(´Select Instituicao, Titulo, Assunto, Tipo, Autor, Idioma, Ano from Livros ´);
QueryLivros.Open;

QueryLivros.first;
QueryLivros.last;
Querylivros.FetchAll;
Total.Caption := IntToStr(QueryLivros.RecordCount);

************************

Dessa forma ele me volta todos os registros da tabela ...

Ou seja, o erro pode estar nos parâmetros ???

Leo.