Buscar por:

Reindexar banco access 2000

Código

Uses

comobj, db, dbtables;

procedure TFormReindexar.Button1Click(Sender: TObject);

var

  dao: OLEVariant;

begin

try

Panel1.Caption:='Compactando Tabela';

Panel1.Repaint;

dao := CreateOleObject('DAO.DBEngine.36');

dao.CompactDatabase(extractfiledir(Application.ExeName)+'banco.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)+'banco.mdb');

Panel1.Caption:='Renomeando Arquivo';

Panel1.Repaint;

if FileExists(extractfiledir(Application.ExeName)+'banco2.mdb') then

RenameFile(extractfiledir(Application.ExeName)+'banco2.mdb',extractfiledir(Application.ExeName)+'banco.mdb');

Panel1.Caption:='Arquivo Banco.mdb Compactado';

Panel1.Repaint;

except

panel1.caption:='Ocorreu um Erro durante a compactação';

end;

DataModule1.ADOConnection1.Connected:=true;

end;