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