Buscar por:

Reindexando

Código

{Quando cai a "Energia" e suas Tabelas perdem os índices, esta rotina pode ser útil para restauração dos índices.  Para usar você terá que adicionar os componentes:

 Table

Database { se sua aplicação possuir este componente pode usar o mesmo}

 O componente Table a propriedade exclusive tem que ser true. Senão não funciona.}

Procedure Reindexar(DataBase : TDatabase; Tabela : TTable); 

var 

  List : TStrings; 

  i : Integer; 

begin 

  try 

  Database.Connected:=true; 

  except 

  Raise; 

  Exit; 

  end; 

List:=TStringList.create; 

session.GetTableNames(DataBase.aliasName, '', true, false,List); 

for i:= 0 to List.Count - 1 do 

begin 

  if (Entidade2) then 

  break; 

  application.ProcessMessages; 

  Tabela.close; 

  Tabela.TableName:=List[i]; 

  Try 

  Tabela.open; 

  Check(dbiRegenIndexes(Tabela.Handle)); 

  except 

  Raise; 

  end; 

end; 

List.Free; 

Database.Connected:=false; 

end; { Para executar a rotina você pode Incluir quando sua aplicação esta sendo iniciada

 Adicionando a seguinte linha.

 No evento oncreate do Datamodulo}

 Reindexar(Dados,Table1); {Dados Nome imposto por mim ao componente Database e Table1 o componente inserido na aplicação. }