ActiveDelphi

[rudineirosa]

Boa noite,

Tenho um sistema com banco de dados access 2000, e preciso criar um reindexador, estou usando o código abaixo, mas o mesmo sempre entra na except, começa a reindexar, mas logo apresenta a mensagem de erro do except.

Se alguém puder me ajudar desde já agradeço, meu e-mail rudineirosa@gmail.com

procedure TFrmIndexar.BitBtn1Click(Sender: TObject);
var
dao: OLEVariant;
begin
try
Panel1.Caption:='Compactando Tabela';
Panel1.Repaint;
dao := CreateOleObject('dao.DBEngine.36');
dao.CompactDatabase(extractfiledir(Application.ExeName)+'\Bancodedados.mdb', extractfiledir(Application.ExeName)+'\banco2.mdb','',0,';pwd=1203583');
Panel1.Caption:='Apagando Arquivo Temporário';
Panel1.Repaint;
if FileExists(extractfiledir(Application.ExeName)+'\banco2.mdb') then DeleteFile(extractfiledir(Application.ExeName)+'\bancodedados.mdb');
Panel1.Caption:='Renomeando Arquivo';
Panel1.Repaint;
if FileExists(extractfiledir(Application.ExeName)+'\banco2.mdb') then
RenameFile(extractfiledir(Application.ExeName)+'\banco2.mdb',extractfiledir(Application.ExeName)+'\bancodedados.mdb');
Panel1.Caption:='Banco de Dados.mdb Compactado';
Panel1.Repaint;
except
panel1.caption:='Ocorreu um Erro durante a compactação';
end;
DataModule1.ADOConnection1.Connected:=true;
end;