gleiston Postado Junho 25, 2004 Denunciar Share Postado Junho 25, 2004 estou a procura de algum código para reindexar minhas tabelas no inicio da aplicação, em função de constante queda de energia. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Darlan Postado Junho 25, 2004 Denunciar Share Postado Junho 25, 2004 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 dobegin if (Entidade2) then break; application.ProcessMessages; Tabela.close; Tabela.TableName:=List; 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 gleiston Postado Junho 25, 2004 Autor Denunciar Share Postado Junho 25, 2004 na hora de compilar o delphi não encontra o item (Entidade2), o que é isto. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 gleiston Postado Agosto 11, 2004 Autor Denunciar Share Postado Agosto 11, 2004 Darlan, a que se refere o item Entidade2, por favor, está dando erro na compilãção. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
gleiston
estou a procura de algum código para reindexar minhas tabelas no inicio da aplicação, em função de constante queda de energia.
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.