Fórum Compactar e Corrigir - BD Access #266052

procedure TMainForm.CompactDataBaseMenuClick(Sender: TObject);
var JROJetEngine: TJROJetEngine;
    strTempDBPath,
    strSource,
    strDest,
    strJetVersion: string;
    iLength: integer;
begin
  if strGlobalAccessVersion = ´2000´ then
    strJetVersion := ´5´ { Access 2000}
  else if strGlobalAccessVersion = ´97´ then
    strJetVersion := ´4´; {Jet 3.x, Access 97}
  strTempDBPath := ExtractFilePath(strGlobalDBPath) + ´TEMP.MDB´;
  strSource := ´Data Source=´ + strGlobalDBPath + ´;Jet OLEDB:Engine Type=´
+ strJetVersion;
  strDest := ´Data Source=´ + strTempDBPath + ´;Jet OLEDB:Engine Type=´ +
strJetVersion;
  try
    try
      Screen.Cursor := crHourGlass;
      if not dbModule.CloseAll then
        begin
          MessageDlg(´Error closing some datasets, unable to compact´,
mtError, [mbOk], 0);
          exit;
        end
      else
        dbModule.ADOConnection1.Close;
      Application.ProcessMessages;
      JROJetEngine := TJROJetEngine.Create(Application);
      JROJetEngine.CompactDatabase(strSource, strDest);
      SysUtils.DeleteFile(strGlobalDBPath);
      RenameFile(strTempDBPath, strGlobalDBPath);
      MessageDlg(´The database has been packed´, mtInformation, [mbOk], 0);
    except
      on E: Exception do
        MessageDlg(´Error packing database: ´ + E.Message, mtError, [mbOk],
0);
    end;
  finally
    JROJetEngine.Free;
    dbModule.ADOConnection1.Open;
    Screen.Cursor := crDefault;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var BD_Old, BD_New: WideString;
    Path_Nome_BD_Old: WideString;
    Path_Nome_BD_New: WideString;
begin

Path_Nome_BD_Old := ´C:\Temp\BDAccess.mdb´;
Path_Nome_BD_New := ´C:\Temp\BDAccess_XXX.mdb´;

BD_Old := ´Provider=Microsoft.Jet.OLEDB.4.0;´ +
          ´Data Source=´ +
           Path_Nome_BD_Old;

BD_New := ´Provider=Microsoft.Jet.OLEDB.4.0;´ +
          ´Data Source=´ +
           Path_Nome_BD_New;


ADOConnection1.Connected := False;
JetEngine1.CompactDatabase(BD_Old, BD_New);
DeleteFile(Path_Nome_BD_Old);
RenameFile(Path_Nome_BD_New, Path_Nome_BD_Old);
ADOConnection1.Connected := True;
end;