(Resolvido) Compactar BD access no Delphi com erro

[Aldinei]

Boa tarde pessoal,

 

Estou com problema para compactar meu BD access,  estou usando essa função;

 

if CompactAndRepair('c:\acc2000\bd\tbaccsis.mdb','c:\acc2000\bd\tbaccsisnovo.mdb') Then

     ok;

else o erro é "voce esta tentando abrir um banco de dados que já foi aberto"

Agradeço desde já a todos.

Abraço

 

//--------------------------------------------------------------------------------------
Function TFrm_LimpezaTabela.CompactAndRepair(watualMDB : String; WnovoMDB : String) : Boolean;
const
         sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
         oJetEng   : JetEngine;
begin
         WatualMDB:= sProvider + 'Data Source=' + watualMDB;
         wnovoMDB := sProvider + 'Data Source=' + wnovoMDB;

         try
            oJetEng := CoJetEngine.Create;
            oJetEng.CompactDatabase(watualMDB, WnovoMDB);
            oJetEng := Nil;
            Result  := True;
         except
            oJetEng := Nil;
            Result  := False;
         end;
end;
 

[Jhonas]

erro é "voce esta tentando abrir um banco de dados que já foi aberto"

veja se outro programa esta com o banco de dados aberto. se estiver voce deve fecha-lo

abraço

 

[Aldinei]

1 minuto atrás, Jhonas disse:

erro é "voce esta tentando abrir um banco de dados que já foi aberto"

veja se outro programa esta com o banco de dados aberto. se estiver voce deve fecha-lo

abraço

 

OI Jhonas tudo bem,

 

estou trabalhando em notbook sem rede, só eu usando. agora é o seguinte estou executando esse função dentro do aplicativo 

mas estou fechando o banco antes desse jeite.  FDM_query.ado_conexao.Connected:=false;

mesmo assim ele mantem aberto o BD.

[Jhonas]

então procure no seu código ... ainda existe algum comando abrindo o banco de dados

abraço

[Aldinei]

Desconectei da rede da internet com o reteador funcionou.

Agora me tire  só mais uma duvida eu tenho sempre que criar outro nome do BD, não  pode ser mesmo ? 

ou tenho que renomear. ?

 

JHonas mais uma vez muito obrigado

e boa tarde.

 

 

[Jhonas]

Banco de dados diferentes não podem ter o mesmo nome...

voce pode colocar o nome que quiser, desde que esse nome não tenha caracteres especiais

OBS: arquivos de Backup não podem ter o mesmo nome

voce deve diferencia-los ... exemplo

Backup_12072017.mdb

Backup_13072017.mdb

Backup_14072017.mdb

 

abraço