ActiveDelphi

[adrianoprog]

Estou tentando fazer esta consulta...É necessário buscar no banco de dados na tabela "PECAS", em dois campos diferentes que são "pecDescricaoFonema" e "pecCompletoFonema"...Só que só está funcionando a busca do primeiro campo "pecDescricaoFonema", a busca no segundo campo não está funcionando...

With qryResultLoc do begin

Close;

Sql.Clear;

Sql.Add('SELECT *');

Sql.Add('FROM Pecas');

Sql.add('where upper (pecDescricaoFonema) like :pecdesc'+IntToStr(i));

Sql.Add('or upper (pecCompletoFonema) like :pecdesc'+IntToStr(i));

OBS: O problema está na linha acima...

Se alguém me ajudar ficarei agradecido...

[RRAAFFAA]

Olá amigo... nã entendi direito o que voce quer fazer....

quer pequisar um campo OU o outro ???

não seria assim o certo??

[adrianoprog]

O código inteiro é esse...só que não busca nos dois campos especificados...

If ((cbxonde.ItemIndex = 0)or(cbxonde.ItemIndex = 1)or(cbxonde.ItemIndex = 4))and(edtoque.text <> '')then begin
for i:= 0 to cont - 1 do begin
if i = 0 then begin
if cbxTipoPesquisa.ItemIndex = 0 then begin
Sql.add('where upper (pecDescricaoFonema) like :pecdesc'+IntToStr(i));
Sql.Add('or upper (pecCompletoFonema) like :pecdesc'+IntToStr(i));
ParamByName('pecdesc'+IntToStr(i)).AsString :='%'+(lista1.Strings[i])+'%';
end else begin
sql.add('where upper('+aCampos[cbxOnde.ItemIndex]+') like :pecdesc'+IntToStr(i));
ParamByName('pecdesc'+IntToStr(i)).AsString :='%'+uppercase(lista1.Strings[i])+'%';
end;
end else begin
if cbxTipoPesquisa.ItemIndex = 0 then begin
Sql.add('and upper (pecDescricaoFonema) like :pecdesc'+IntToStr(i));
Sql.add('or upper (pecCompletoFonema) like :pecdesc'+IntToStr(i));
ParamByName('pecdesc'+IntToStr(i)).AsString :='%'+(lista1.Strings[i])+'%';
end else begin
sql.add('and upper('+aCampos[cbxOnde.ItemIndex]+') like :pecdesc'+IntToStr(i));
ParamByName('pecdesc'+IntToStr(i)).AsString :='%'+uppercase(lista1.Strings[i])+'%';
end;
end;
end;
end else begin