[firebase-br] FB 2.1
Renato Miranda
renato.smiranda em gmail.com
Ter Fev 3 11:38:20 -03 2009
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
Mais detalhes sobre a lista de discussão lista