Fórum IbQuery #179605

03/09/2003

0

Pessoal estou fazendo uma pesquisa e quero colocar o resultado dentro de um edit. O meu código é esse. Não estou conseguindo encontrar o erro.

DmMovimentacao.IBQuery1.Active:=False;
DmMovimentacao.IBQuery1.SQL.Clear;
DmMovimentacao.IBQuery1.SQL.Add(´select desc_Localidade from localidade, Area , patrimonio ´+
´where Area.cod_area=patrimonio.cod_area and area.cod_setor=´+ ´´ +(QuotedStr(intToStr(pcodSetor))) + ´´ +
´and patrimonio.cod_patrimonio=´+ ´´ +(QuotedStr(IntTOStr(pCodPatrimonio))) + ´´ +
´and localidade.cod_localidade=area.cod_localidade and area.st_area=´+ QuotedStr(´V´));
DmMovimentacao.IBQuery1.Active:=True;
//EditLocalidade.Text:=wloc;
with DmMovimentacao do begin
EditLocalidade.Text:=IBQuery1.FieldByName(´Desc_Localidade´).Value;
end;


Mineiro

Mineiro

Responder

Posts

04/09/2003

Nigro

Amigo:
Vamos a alguns testes:
1º) Você já colocou tudo isso dedntro do SQL Explorer para ver o que dá?
2º) Para evitar erros na utilização de aspas, ao invés de colocar o conteúdo dos componentes, coloque isso como parâmetro.
3º) Crie os campos fisicamente dentro do IBQuery
4º) Você não está informando a qual tabela pertence o campo desc_localidade
5º) Nas cláusulas where, coloque parêntes para organizar as condições
6º) Assim... sua cláusula em SQL puro ficaria mais ou menos assim:
select localidade.desc_Localidade
from localidade, Area , patrimonio
where (Area.cod_area = patrimonio.cod_area) and (area.cod_setor = :pcodSetor) and
(patrimonio.cod_patrimonio = :pCodPatrimonio) and (localidade.cod_localidade = area.cod_localidade) and a
(rea.st_area = :QuotedStr)

Nigro


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar