Problemas com TSQLQuery

Delphi

08/02/2013

Bom dia, estou usando o seguinte comando no TSQLQUery:

for I := 0 to Pred(16) do
  begin
    datasql := StringReplace(DateToStr(IncDay(now, -I)), '/', '.',
      [rfReplaceAll, rfIgnoreCase]);
    sql.CommandText := 'SELECT LC.* FROM LOCA_CONTRATO LC WHERE ' +
      'EXTRACT (MONTH FROM LC.LOCA_DTINICIO) = EXTRACT (MONTH FROM cast(' +
      QuotedStr(datasql) + ' as date)) AND ' +
      'EXTRACT (DAY FROM LC.LOCA_DTINICIO) = EXTRACT (DAY FROM cast(' +
      QuotedStr(datasql) + ' as date)) AND ' +
      'DATEDIFF(YEAR FROM LC.LOCA_DTINICIO TO LC.LOCA_DTTERMINO) > 1 AND ' +
      'LC.LOCA_DTINICIO < cast(' + QuotedStr(datasql) + ' as date) AND ' +
      'LC.LOCA_DTTERMINO > dateadd(month,11,cast(' + QuotedStr(datasql) +
      ' as date)) ' +
      ' AND (SELECT count(*) FROM LOCA_REAJUSTE LR WHERE LR.LOCA_DATA_REAJUSTE = '
      + QuotedStr(datasql) +
      ' AND LR.LOCA_CONTRATOID = LC.LOCA_CONTRATOID) = 0';

      mmo1.Clear;
      mmo1.Lines.Add(sql.CommandText);


    sql.Open;
    if sql.RecordCount > 0 then
    showmessage('Retornou algo');
  end;


Ao executar o trecho de código acima ele da o erro de "Column Unknow" como se tivesse algo errado no meu SQL, porém peguei o conteúdo gerado no SQL dentro do componente mmo1 (TMemo) e executei no Firebird, e funcionou perfeitamente, abaixo segue o SQL gerado pelo trecho que funcionou no firebird:

SELECT LC.* FROM LOCA_CONTRATO LC WHERE
EXTRACT (MONTH FROM LC.LOCA_DTINICIO) = EXTRACT (MONTH FROM cast('08.02.2013' as date))
AND EXTRACT (DAY FROM LC.LOCA_DTINICIO) = EXTRACT (DAY FROM cast('08.02.2013' as date))
AND DATEDIFF(YEAR FROM LC.LOCA_DTINICIO TO LC.LOCA_DTTERMINO) > 1
AND LC.LOCA_DTINICIO < cast('08.02.2013' as date)
AND LC.LOCA_DTTERMINO > dateadd(month,11,cast('08.02.2013' as date))
AND (SELECT count(*) FROM LOCA_REAJUSTE LR WHERE LR.LOCA_DATA_REAJUSTE = '08.02.2013'
AND LR.LOCA_CONTRATOID = LC.LOCA_CONTRATOID) = 0


Porque o mesmo SQL funciona no Firebird e não funciona no TSQLQUery ?
Ronaldo Lanhellas

Ronaldo Lanhellas

Curtidas 0

Respostas

Ronaldo Lanhellas

Ronaldo Lanhellas

08/02/2013

Só uma observação, se eu faço o sql da forma abaixo (Sem o alias, funciona perfeitamente):

sql.CommandText := 'SELECT * FROM LOCA_CONTRATO WHERE ' +
'EXTRACT (MONTH FROM LOCA_DTINICIO) = EXTRACT (MONTH FROM cast(' +
QuotedStr(datasql) + ' as date)) AND ' +
'EXTRACT (DAY FROM LOCA_DTINICIO) = EXTRACT (DAY FROM cast(' +
QuotedStr(datasql) + ' as date)) AND ' +
'DATEDIFF(YEAR FROM LOCA_DTINICIO TO LOCA_DTTERMINO) > 1 AND ' +
'LOCA_DTINICIO < cast(' + QuotedStr(datasql) + ' as date) AND ' +
'LOCA_DTTERMINO > dateadd(month,11,cast(' + QuotedStr(datasql) +
' as date)) ';
GOSTEI 0
Douglas

Douglas

08/02/2013

Ronaldo,

vamos fazer um teste

comente esta linha abaixo e tente executar

a Query novamente para averiguarmos.

AND (SELECT count(*) FROM LOCA_REAJUSTE LR WHERE LR.LOCA_DATA_REAJUSTE =  + QuotedStr(datasql) + AND LR.LOCA_CONTRATOID = LC.LOCA_CONTRATOID) = 0;


Eu acho que o erro esta no seu subselect, mas vamos testar antes.
GOSTEI 0
Ronaldo Lanhellas

Ronaldo Lanhellas

08/02/2013

Comentei a linha e o SQL ficou assim:

sql.CommandText := 'SELECT LC.* FROM LOCA_CONTRATO LC WHERE ' +
      'EXTRACT (MONTH FROM LC.LOCA_DTINICIO) = EXTRACT (MONTH FROM cast(' +
      QuotedStr(datasql) + ' as date)) AND ' +
      'EXTRACT (DAY FROM LC.LOCA_DTINICIO) = EXTRACT (DAY FROM cast(' +
      QuotedStr(datasql) + ' as date)) AND ' +
      'DATEDIFF(YEAR FROM LC.LOCA_DTINICIO TO LC.LOCA_DTTERMINO) > 1 AND ' +
      'LC.LOCA_DTINICIO < cast(' + QuotedStr(datasql) + ' as date) AND ' +
      'LC.LOCA_DTTERMINO > dateadd(month,11,cast(' + QuotedStr(datasql) +
      ' as date)) ';


Porém o erro continua.
GOSTEI 0
Ronaldo Lanhellas

Ronaldo Lanhellas

08/02/2013

Será que alguem sabe como resolver esse problema ?
GOSTEI 0
Marco Salles

Marco Salles

08/02/2013

So uma dúvida

for I := 0 to Pred(16) do

vc esta dando sql.Open quinze vezes seguidamente ????
GOSTEI 0
Ronaldo Lanhellas

Ronaldo Lanhellas

08/02/2013

O problema já foi resolvido !!!

Obrigado pela ajuda.
GOSTEI 0
POSTAR