Access DB Komprimieren gibt EOleException

[spanier]

Hallo zusammen,

hier wieder mal das leidige Thema Access DB komprimieren via ADO. Ich verwende Access 2003 und Delphi 6 und möchte meine DB komprimieren. Dazu habe ich folgenden Code aus dem Forum verwendet.

...
sTemp := ChangeFileExt(ADb, bak_ext);
JetEngine := CreateOleObject('JRO.JetEngine');
Application.ProcessMessages;
try
JetEngine.CompactDatabase(Format(stAccessDB, [ADb]), Format(stAccessDB, [sTemp]));
Sysutils.DeleteFile(ADb);
RenameFile(sTemp, ADb);
JetEngine := Unassigned;
MessageDlg('Die Datenbank wurde erfolgreich gepackt.', mtInformation,[mbOk], 0);
except
on E:Exception do begin
JetEngine := Unassigned;
MessageDlg('DB Komprimieren Fehler: '+#13#10+e.ClassName+' '+e.Message, mtError, [mbOk], 0);
end;
end;

....

Der Code scheint auch bei den Forum Usern zu funktionieren, aber bei mir gibt es eine EOleException mit der Meldung:

"Fehler bei einem aus mehreren Schritten bestehenden OLE DB-Vorgang. Prüfen Sie die einzelnen OLE DB-Statuswerte, falls vorhanden. Daten wurden nicht verarbeitet."

Eigentlich bin ich der Meinung sowas tritt auf wenn man not NULL Felder nicht füllt oder irgendeine andere DB Regel verletzt.
Das komische ist aber wenn ich das ganze im MS Access manuell anstartet funktioniert es tadellos.


Kann mir bitte jemande helfen !!!

Vielen Dank

[spanier]

Kann mir denn keiner Helfen! Bitte! Bin für jede Idee dankbar

[spanier]

Nachtrag:

Ich habe mit Delphi 2005 das ganz probiert und es funktioniert dort auch nicht. Also liegt es nicht an Delphi sonder wohl an meiner DB. Aber ich habe keine Ahnung woran genau.

Hilfe !!!

[mikhal]

Hast du jede AdoConnection zu deiner Datenbank geschlossen?

Grüße
Mikhal

[spanier]

Ja habe ich. Es ist also keine *.ldb mehr im Datenbankverzeichnis vorhanden.

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, spanier.

Wie bist du mit dem Fehler beim Importieren der JetEngine nach Delphi (6) umgegangen?

Hier findest du neben Erläuterungen auch noch ein Code-Beispiel: klick

Freundliche Grüße vom marabu

[spanier]

Dadurch das ich mit " JetEngine := CreateOleObject('JRO.JetEngine'); " arbeite, muss ich die TypeBibliothek nicht importieren.
Da ich kein Delphi 5 besitze um die alte Unit zu verwenden, dachte ich, ich umgehen den Compiler fehler somit.

Hab ich wohl falsch gedacht ?

Ich habe gelesen das wenn man die Delphi 5 Unit verwendet man von Hand die ADODB.pas Patch muss damit es unter Delphi 6 läuft.
Was aber bedeuted das man keine Laufzeitpackages verwenden kann oder doch ?

Dummerweiße sind Laufzeitpackages Vorraussetzung für mein Projekt und zweitens habe ich die Delphi 5 Unit leider nicht.

Könnte ich mir mit Delphi 2005 weiter helfen?

Danke für eure Hilfe.

Mfg

spanier

[marabu]

Hallo,

leider kann ich weder mit D6 noch mit Access testen. Ich hänge dir mal die Unit JRO_TLB an, damit du den verlinkten Code ausprobieren kannst.

Patchen musst du da nichts, das wäre die Alternative bei fehlendem D5 gewesen.

Freundliche Grüße

[spanier]

Hab die Unit importiert und installiert aber der Fehler bleibt der gleiche

Schade. Aber Danke für die Hilfe.

mfg

spanier

[spanier]

Jetzt hab ich als alternative versucht das ganze über ODBC zu machen aber da bekomme ich die Meldung
"Funktionen dieser Version sind in Datenbanken mit älterem Format nicht verfügbar."

Kann mir vielleicht dazu jemand was sagen ? Meine DB ist im Access2000 Format und der ODBC Treiber für Access Version: 4.00.6304


mfg

spanier