access datei komprimieren

[Erich Ziegenhagen]

Ich benötige Hilfe
Wie im Forum gefunden kann mann aus Delphi heraus eine Access Datei komprimieren.
Ich habe also die Microsoft Jet and Replication Objekts importiert und die JRO_TBL.pas eingebunden.
Bei genauer Verwendung des Codes, beschrieben von Herrn Andreas Kosch erhalte ich beim Aufruf von je.CompactDatabase(cs,cs1) immer den Fehler "Installierbares ISam nicht gefunden"
Es fehlt also sicher etwas auf meinen Rechner(Windows 2000)
Bitte, was fehlt und wo kann ich diese holen

Herzlichen Dank

[Andreas Kosch]

Hallo,

der Teil <i>Jet OLEDB:Engine Type=x'</i> der Verbindungszeichenfolge legt fest, welche Version der Microsoft JET Engine für das Schreiben der Datenbankdatei verwendet werden soll. Die Engine Type-Nummer 5 steht dabei zum Beispiel für das ACCESS2000-Datenbankformat der JET Engine 4.0. Wenn nur die JET Engine 3.51 vorliegt, darf diese Type-Nummer nicht genutzt werden.

Microsoft dokumentiert auf der Hilfeseite <i>Appendix C: Microsoft Jet 4.0 OLE DB Provider-Defined Property Values</i> die folgenden Type-Nummern:
<pre>
Global Const JET_ENGINETYPE_UNKNOWN = 0
Global Const JET_ENGINETYPE_JET10 = 1
Global Const JET_ENGINETYPE_JET11 = 2
Global Const JET_ENGINETYPE_JET20 = 3
Global Const JET_ENGINETYPE_JET3X = 4
Global Const JET_ENGINETYPE_JET4X = 5
Global Const JET_ENGINETYPE_DBASE3 = 10
Global Const JET_ENGINETYPE_DBASE4 = 11
Global Const JET_ENGINETYPE_DBASE5 = 12
Global Const JET_ENGINETYPE_EXCEL30 = 20
Global Const JET_ENGINETYPE_EXCEL40 = 21
Global Const JET_ENGINETYPE_EXCEL50 = 22
Global Const JET_ENGINETYPE_EXCEL80 = 23
Global Const JET_ENGINETYPE_EXCEL90 = 24
Global Const JET_ENGINETYPE_EXCHANGE4 = 30
Global Const JET_ENGINETYPE_LOTUSWK1 = 40
Global Const JET_ENGINETYPE_LOTUSWK3 = 41
Global Const JET_ENGINETYPE_LOTUSWK4 = 42
Global Const JET_ENGINETYPE_PARADOX3X = 50
Global Const JET_ENGINETYPE_PARADOX4X = 51
Global Const JET_ENGINETYPE_PARADOX5X = 52
Global Const JET_ENGINETYPE_PARADOX7X = 53
Global Const JET_ENGINETYPE_TEXT1X = 60
Global Const JET_ENGINETYPE_HTML1X = 70
</pre>
Wenn die Microsoft JET Engine überhaupt nicht auf dem Rechner installiert ist, hilft der Download <i>Jet 4.0 Service Pack 8 (SP8) for Windows 2000 (KB829558) - Deutsch</i> (siehe <i>http://www.microsoft.com/downloads/details.aspx?displaylang=de&FamilyID=1e268b39-533e-48b0-b8d7-1781befde1f8</i>) weiter

[Erich Ziegenhagen]

Vielen Dank, ich habe jetzt den Fehler gefunde