Interbase - pegando estatisticas da base nivel de fragmentacao

// pegar statisticas do banco de dados

// para tabelas grandes, o average fill for menor que 60%

// fazer backup e restore para diminuir a fragmentacao

// se nao adiantar, aumente o tamanho da pagina.

    IB1: TIBStatisticalService;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  IB1.Active := True;

  IB1.ServiceStart;

  while not IB1.Eof do

  begin

    Memo1.Lines.Add( IB1.GetNextLine );

  end;

  IB1.Active := False;

end;

// no caoso dos indices se o depth for maior que 3 

// tente reconstrui-lo, ou aumente o tam. da pagina de dados