[firebase-br] Porque ???????

[Clovis]

Bom dia Pessoal
Saudações

Trabalho com D7, dbExpress e Firebird 1.5. Qual o motivo desta situação não estar sendo suportada por uma query?

        vSQL := 'SELECT * FROM LEIS WHERE ANOREV  ='+quotedstr(fDm1.CDS1.FieldByName('Ano').AsString)       +
                                 'and NUMEROREV   ='+quotedstr(fDm1.CDS1.FieldByName('Numero').AsString)   +
                                 'and ARTIGOREV   ='+quotedstr(fDm1.CDS1.FieldByName('Artigo').AsString)   +
                                 'and INCISOREV   ='+quotedstr(fDm1.CDS1.FieldByName('Inciso').AsString)   +
                                 'and PARAGRAFOREV='+quotedstr(fDm1.CDS1.FieldByName('Paragrafo').AsString);


  fDm1.Qy2.Close;
  fDm1.Qy2.SQL.Clear;
  fDm1.Qy2.SQL.Add(vSQL);
  fDm1.Qy2.Open;
  if fDm1.Qy2.RecordCount > 0 then
  begin
No RecordCount diz que não suporta essa condição, pois até pouco tempo funcionava
Obrigado
Clovito



Que a Paz do Grande Arquiteto 
do Universo nos Ampare
clovito.ferreira em itelefonica.com.br 
Msn-> clovitoferreira em cgmnet.com.br
Dourado      SP