Erro no SQL de geração do relatório com o QuickReport
Pessoal,
eu estou usando o Delphi 7 + Firebird 1.5 e componentes DBExpress.
Estou tentando montar um relatório que é bem simples, com o seguinte SQL de consulta:
SELECT J.NOME, J.DT_AQUI, J.ESTADO, J.FABRICANTE, J.ORIGINAL, J.ORIGEM,
(SELECT NOME FROM CONSOLE WHERE J.COD_CONSOLE = CONSOLE.COD) AS CONSOLE,(SELECT DESCRICAO FROM DANO WHERE J.COD_DANO = DANO.COD) AS DANO
FROM JOGO J ORDER BY J.NOME ASC
Este SQL roda perfeitamente no IBExpert e no EMS Interbase Manager, porém, quando o coloco no componente TSQLQuery, ele dá o seguinte erro [b:a266983894]em tempo de execução[/b:a266983894]:
´...EDatabaseError with message ´token unknown -line 1, char 65 )´...´
Ou seja, ele não reconhece o parênteses da subconsulta ! Só que sem o parênteses o SQL está errado.
Já tentei montar a consulta dinamicamente (via código), mas, como o SQL é o mesmo, dá o mesmo erro.
Eu consigo trabalhar normalmente com o TSQLQuery, inclusive, eu consigo adicionar todos os campos do meu SQL a ele. Só dá o erro mesmo quando eu tento abrir o relatório.
O relatório é gerado com o seguinte código:
Alguém poderia me ajudar ?
Obrigado desde já !
eu estou usando o Delphi 7 + Firebird 1.5 e componentes DBExpress.
Estou tentando montar um relatório que é bem simples, com o seguinte SQL de consulta:
SELECT J.NOME, J.DT_AQUI, J.ESTADO, J.FABRICANTE, J.ORIGINAL, J.ORIGEM,
(SELECT NOME FROM CONSOLE WHERE J.COD_CONSOLE = CONSOLE.COD) AS CONSOLE,(SELECT DESCRICAO FROM DANO WHERE J.COD_DANO = DANO.COD) AS DANO
FROM JOGO J ORDER BY J.NOME ASC
Este SQL roda perfeitamente no IBExpert e no EMS Interbase Manager, porém, quando o coloco no componente TSQLQuery, ele dá o seguinte erro [b:a266983894]em tempo de execução[/b:a266983894]:
´...EDatabaseError with message ´token unknown -line 1, char 65 )´...´
Ou seja, ele não reconhece o parênteses da subconsulta ! Só que sem o parênteses o SQL está errado.
Já tentei montar a consulta dinamicamente (via código), mas, como o SQL é o mesmo, dá o mesmo erro.
Eu consigo trabalhar normalmente com o TSQLQuery, inclusive, eu consigo adicionar todos os campos do meu SQL a ele. Só dá o erro mesmo quando eu tento abrir o relatório.
O relatório é gerado com o seguinte código:
dModule.sqlRelJogo.Close;
dModule.sqlRelJogo.Open;
if ( FRelJogo = NIL ) then
FRelJogo := TFRelJogo.Create(Application);
FRelJogo.qr.DataSet := dModule.sqlRelJogo;
FRelJogo.qr.PreviewModal;
dModule.sqlRelJogo.Close;Alguém poderia me ajudar ?
Obrigado desde já !
Marcelocda
Curtidas 0