JRO Access MDB komprimieren

Da Access wie auch die meisten anderen Datenbanken im Laufe der Zeit so einiges an Müll ansammeln, der im Betrieb die Datenbank aber heftig aufbläht gibt es in MIcrosoft Access die Funktion Komprimieren und Reparieren, da wir aber das allerdings nicht händisch ausführen wollen macht es Sinn dieses zu automatisieren! Natürlich steht uns diese Funktion auch wieder unter Windows zur Verfügung, wir müssen nur mal wieder wissen wie sie über Free Pascal anzusprechen ist.

Das folgende Beispiel funktioniert so, übergibt man an in der Kommandozeile den Namen der MDB z.B. test.mdb wird diese falls sie im lokalen Ordner existiert komprimiert.

Dafür braucht wir den Import der Type Library "Microsoft Jet Replication Objects 2.6 Library"  und das Package LazActiveX.

Import JRO : Microsoft Jet Replication Objects 2.6 Library C:\Program Files (x86)\Common Files\System\ado\msjro.dll jro 2 6 tlb.pas (13,37 kByte) 21.12.2013 12:10 (13,37 KB)

CompactAccessMDB.lpr Pascal (836 bytes) 26.12.2013 00:46
program CompactAccessMDB;
{$APPTYPE CONSOLE}
{$mode objfpc}{$H+}
uses
  SysUtils,
  Interfaces, // used packages: LazActiveX
  JRO_2_6_TLB; // Microsoft Jet Replication Objects 2.6 Library

procedure CompactMDB(const Filename: string);
var
  jro: JetEngine;
  FilenameNeu: string;
begin
  try
    FilenameNeu := ChangeFileExt(Filename, '~.mdb');
    jro := CoJetEngine.Create();
    jro.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';',
                        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FilenameNeu + ';');
    if FileExists(FilenameNeu) then
    begin
      DeleteFile(PChar(Filename));
      RenameFile(FilenameNeu, Filename);
    end;
  except
    DeleteFile(PChar(filenameNeu));
  end;
  jro := nil;
end;

begin
  CompactMDB(ParamStr(1));
end.

Autor: , veröffentlicht: , letzte Änderung:

Kontakt

Copyright / License of sources

Copyright (c) 2007-2017, Udo Schmal <udo.schmal@t-online.de>

Permission to use, copy, modify, and/or distribute the software for any purpose with or without fee is hereby granted, provided that the above copyright notice and this permission notice appear in all copies.

THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

Service Infos

CMS Info
UDOs Webserver

0.3.1.24

All in one Webserver

Udo Schmal

Sa, 21 Okt 2017 00:30:10
Development Info
Lazarus LCL 1.9.0.0

Free Pascal FPC 3.1.1

OS:Win64, CPU:x86_64
Hardware Info
Precision WorkStation T3500

Intel(R) Xeon(R) CPU W3530 @ 2.80GHz

x86_64, 1 physical CPU(s), 4 Core(s), 8 logical CPU(s), 2800 MHz