Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Pirambu!

(Resolvido) Compactar Banco de Dados Access

Question

Preciso criar uma rotina para compactar um banco de Dados do Access.

Tenho um banco de dados Access que tenho que atualizar 4 tabelas toda semana(pega informações de outro tipo de banco para o banco do Access), só que quando faço a primeira atualização o banco fica com x MB quando vou fazer a segunda atualização o banco fica 2x MB (Mesmo que tenha a mesma quantidade de registros), detalhe a cada atualização é é limpa as tabelas então era pra ficar sempre com o mesmo pesso x MB

Alguém sabe como posso criar uma rotina no delphi para ficar compactando o banco de dados antes de cada atualização?

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

pronto conseguir resolver assim

Criei essa função:

function compacta_ADO (const Banco: WideString) : boolean;
 var
 JE : TJetEngine; //Jet Engine
 Temp : WideString; //TEMP database
 Conexao : WideString; //Connection string
 i : integer;
 const
 Provider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
 begin
  Temp := ExtractFileDir(banco) +
 'TEMP' +
 ExtractFileName(banco);
 Conexao := Provider + temp;
 if FileExists(Temp) then
 DeleteFile(Temp);
 JE:= TJetEngine.Create(Application);
 try
 try
 JE.CompactDatabase(Provider + Banco, Conexao);
 DeleteFile(Banco);
 RenameFile(Temp, Banco);
 except
 on E:Exception do
 ShowMessage(E.Message);
 end;
 finally
 JE.FreeOnRelease;
 for i:= 15 to 100 do
 begin
 sleep(10);
 end;
 Result:=True;
 end;
 end;
Acionei um JetEngine da paleta ACTIVEX para Chamar a Função:
Compacta_ado('c:\banco.mdb');

O Banco de dados deve estar fechado

Valeu, até a próxima.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148559
    • Total Posts
      644320
×
×
  • Create New...