Cuantos TIBDataSet estan abiertos

[defcon1_es]

Hola, el componente IBDataBase tiene dos propiedades heredadas de TCustomConnection, que son DataSetCount y DataSets[x].

Asi que para saber los datasets asociados a un IBDatabase, podría servir esto:

Código Delphi [-]
...
var i: Integer;
...
  for i := 0 to DataSetCount - 1 do
    if (DataSets[i] <> nil) and (DataSets[i].Active) then
    begin
       // Pon tu codigo aqui
    end;
...

NOTA: Si compilas con la directiva "Complete boolean eval" {$B} activada, usa mejor este codigo para prevenir errores:

Código Delphi [-]
...
var i: Integer;
...
  for i := 0 to DataSetCount - 1 do
    if (DataSets[i] <> nil) then 
      if (DataSets[i].Active) then
      begin
         // Pon tu codigo aqui
      end;
...