(Resolvido) Tibquery - consulta sql

[pimpocvl007]

Boa noite,

Elaborei um código sql no IBEXPERT sem passar parâmetros, funcionou por la. Ao adaptalo para o TIBQUERY sem passar parâmetros ocorre o seguinte erro:

Project abcd.exe raised exception class EIBClienteError with message 'Empty SQL Statement'.

Detalhe, ao inserir o código diretamente no TIBQUERY e ativar o componente no delphi sem executar o aplicativo, o resultado e apresentado no grid. Agora, removo o código do componente e insiro ele numa STRING, adiciono ele em tempo de execução na QUERY, ai ocorre o erro.

Porque?

Editado Novembro 21, 2011 por pimpocvl007

[Jhonas]

mostre o código...

[pimpocvl007]

select distinct

BAS1.NM_PESSOA,

TEL1.NR_DDD,

TEL1.NR_TELEFONE,

END1.NM_CIDADE,

END1.NM_UF,

TEL1.TP_TELEFONE,

BAS1.CD_PESSOA,

item2.ds_itemclas

from

PES_PERFILTELEFONE TEL1,

PES_PERFILENDERECO END1,

PES_PERFILBASICO BAS1 left join

PES_PERFILCLAS CLAS1 on (BAS1.CD_PESSOA = CLAS1.CD_PESSOA) left join

pes_itemclas ITEM2 on (clas1.cd_itemclas = item2.cd_itemclas)

where

BAS1.CD_PESSOA = TEL1.CD_PESSOA

and BAS1.CD_PESSOA = END1.CD_PESSOA

[Jhonas]

adiciono ele em tempo de execução na QUERY, ai ocorre o erro.

agora mostre o erro

[pimpocvl007]

sql2 := 'select distinct BAS1.NM_PESSOA, TEL1.NR_DDD, TEL1.NR_TELEFONE, END1.NM_CIDADE, END1.NM_UF, TEL1.TP_TELEFONE, BAS1.CD_PESSOA ';

sql2 := sql2+'from PES_PERFILTELEFONE TEL1, PES_PERFILENDERECO END1, PES_PERFILBASICO BAS1 left join PES_PERFILCLAS CLAS1 on (BAS1.CD_PESSOA = CLAS1.CD_PESSOA) left join pes_itemclas ITEM2 on (clas1.cd_itemclas = item2.cd_itemclas) ';

sql2 := sql2+'where BAS1.CD_PESSOA = TEL1.CD_PESSOA and BAS1.CD_PESSOA = END1.CD_PESSOA';

showmessage(sql2);

queryConsultaTelefone.Close;

queryConsultaTelefone.SQL.Clear;

queryConsultaTelefone.SQL.Add(sql);

queryConsultaTelefone.Open;

...eu basicamente peguei o primeiro código postado acima, reparti em 3 para não exceder os "255 carácter". ao abrir (open) da o erro que comentei acima.

Att.

Olimpio

Editado Novembro 21, 2011 por pimpocvl007

[Jhonas]

ok... mas voce não entendeu.

mostre o erro como ele aparece na tela, ou seja, a mensagem de erro que é mostrada em ingles.

o seu código mais a mensagem, facilita a correção do erro

abraço

[pimpocvl007]

Veja esta imagens, e necessário ter uma conta do gmail.

https://docs.google.com/open?id=0B8krEpUBy7...DhkNzA2YTI4NTUy

(esta imagem mostra o código inserido diretamente na query, se ativar ela assim não da erro).

https://docs.google.com/open?id=0B8krEpUBy7...mVjY2FiNmMwOGRl

(esta imagem mostra o showmessage da variável "sql2" a qual e agregada a query em tempo de execução).

https://docs.google.com/open?id=0B8krEpUBy7...zNiMjNmZTU4NTQ3

(imagem do erro ao abrir a query "open").

Att.

Olimpio

[Jhonas]

O erro refere-se a que a sentença SQL esta vazia, ou seja, não está sendo atribuida a sentença sql ao componente

queryConsultaTelefone.SQL.Add(sql);

deveria ser

queryConsultaTelefone.SQL.Add(sql2);

abraço

[pimpocvl007]

...mais que sacanagem.

Obrigado

Att.

Olimpio