Compact/repair MS Access database fra Delphi

Jeg har ingen anelse om hvad der er bedst.

Men jeg er så doven at jeg bare ville køre msaccess.exe med /compact !

Der er kun den hage ved det at M$ Access så skal være installeret på maskinen. Og det er den nødvenigvis ikke :-)

Så du leder efter en Jet driver only løsning.

Jeg fik nedenstående bakset sammen. Men den kræver selvfølgelig at databasen er lukket ned af alle, ellers kan den ikke låses som påkrævet.

function acCompact(aDB: string): boolean;
var
  JE: TJetEngine;
  Temp: string;
  TempConn: string;
const
  Provider = 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=';
begin
  Temp := ExtractFileDir(aDB) + 'TEMP' + ExtractFileName(aDB);
  TempConn := Provider + Temp;
  FileDeleteIfExists(Temp);
  JE:= TJetEngine.Create(Application);
  try
    try
      JE.CompactDatabase(Provider + aDB, TempConn);
      FileDeleteIfExists(aDB);
      FileRenameIfExists(Temp, aDB);
    except
      on E:Exception do
        begin
          Logfile.Error(E.Message);
        end;
    end;
  finally
    JE.FreeOnRelease;
    Result := True;
  end;
end;

Du maa kunne fange hvis du ikke kan laase databasen.

Derudover ville jeg teste at den nye database eksisterede og var OK inden jeg slettede den gamle.

Jeg disconnecter min UniDAC forbindelse til db'en - så kan jeg se om den er låst/i brug med følgende kode jeg har fra gammel tid
function FileInUse(aFile : string): Boolean;
var
  hFileRes: HFILE;
begin
  Result := False;
  if not FileExists(aFile) then exit;
  hFileRes := CreateFile(PChar(aFile),
                                    GENERIC_READ or GENERIC_WRITE,
                                    0,
                                    nil,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Result := (hFileRes = INVALID_HANDLE_VALUE);
  if not Result then
    CloseHandle(hFileRes);
end;

Jeg renamer med følgende kode. Den checker dog ikke om db'en er OK.
function FileRenameIfExists(Const aOld, aNew: string ): boolean;
begin
  Result:= (FileExists(aOld)) and (FileExists(aNew));
  if Result = True then
    Result := FileDeleteIfExists(aOld);
  if Result = True then
    Result:= SysUtils.RenameFile(aOld, aNew);
end;

Fik som sagt selv bikset noget sammen der ser ud til at fungere