[firebase-br] FB 2.1

[Renato Miranda]

Senhores,

Alguém saberia dizer porque o código abaixo não funciona no FB 2.1 ?
Funciona perfeitamente no FB 1.5 e no IBExpert (o SQL).

Delphi 7 / DBXPress

function TdmPsw.fPegaQtdSis: integer;
  var sql: TSQLDataSet;
begin
  try
    sql := TSQLDataSet.Create(nil);
    sql.CommandType   := ctQuery;
    sql.SQLConnection := dmBase.sqlConBase;
    sql.Close;
    sql.CommandText := 'SELECT COUNT(*) FROM WSISNOMES';
    sql.Prepared := False;
    sql.Open;
    if sql.Eof then
      Result := 0 else
      Result := sql.FieldByName('COUNT').AsInteger;
  finally
    sql.Free;
  end;
end;


-- 
Abraços,

RMiranda