Access-DB auf Access97 konvertieren

[angos]

Zitat von alzaimar:

Wieso willst Du das nicht mit Access selbst machen? Kann es nicht sein, das die Einzigen, die diese funktionalität brauchen, mit Access arbeiten und insofern gar kein externes Tool benötigen?

Hi,

nein das ist leider genau in diesem Fall nicht so. Ich habe das in diesem Thread beschriebene Problem, dass ich von Delphi nicht auf eine Access-DB zugreifen kann. Nun habe ich probiert, die AccessDB in Access97 zu konvertieren, was aus Access heraus auch problemlos klappt. Auf diese Kopie könnte ich problemlos zugreifen, das wäre also eine Lösung für mein ursprüngliches Problem.

[edit sagt]: Folgendes habe ich jetzt probiert,

Delphi-Quellcode:

procedure TForm1.AccessToAccess97(sFileName: String);
var
  JE: IJetEngine;
  sSource: String;
  sDestination: String;
begin
  if sFileName = '' then Abort;

  sSource := Format('Data Source=%s;Jet OLEDB:Engine Type=5', [sFileName]);
  sDestination := Format('Data Source=%s;Jet OLEDB:Engine Type=4', [sFileName + '_converted.MDB']);

  try
    try
      JE := CoJetEngine.Create;
      JE.CompactDatabase(sSource, sDestination);
      MessageDlg('Die Datenbank wurde komprimiert.', mtInformation, [mbOk], 0);
    except
      on E: Exception do
        MessageDlg('Fehler beim Komprimieren der Datenbank: ' +
          E.Message, mtError, [mbOk],0);
    end;
  finally
    JE := nil;
  end;
end;

was leider zu einer Fehlermeldung führt:
Sie Haben nicht die Nötigen Berechtigungen um das Objekt '' zu bearbeiten
Grüße