.:thomas:.: DB komprimieren - Falsche Access Version?

Beitrag lesen

Guten Morgen,

ich benutze folgendes Script, um eine Access 97 Datenbank zu komprimieren. Funktioniert auch, nur leider wird meine Access 97 Version, dann in eine Access 2000 Version umgewandelt.
Und ist mit Access 97 nicht mehr zu öffnen.

Kann mir jemand sagen, an was das liegt. Steh absolut im dunkeln.

Danke.

Hier das Script:
<%
Dim strProvider
    strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"

Dim strPath
    strPath = Server.MapPath("./") & ""

Dim strDatabase1
    strDatabase1 = "test.mdb"
Dim strDatabase2
    strDatabase2 = "test_temp.mdb"

Dim strConnect1
    strConnect1 = strProvider & "DATA SOURCE=" & strPath & strDatabase1 & ";"
Dim strConnect2
    strConnect2 = strProvider & "DATA SOURCE=" & strPath & strDatabase2 & ";"

Dim objJetEngine
Set objJetEngine = Server.CreateObject("JRO.JetEngine")

Dim objFileSys
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")

' --- Sichern der Originaldatenbank
    objFileSys.CopyFile strPath & strDatabase1, strPath & "sicherung_" & strDatabase1

' --- Komprimieren der Datenbank
    objJetEngine.CompactDatabase strConnect1, strConnect2

' --- Löschen der Originaldatenbank
    objFileSys.DeleteFile strPath & strDatabase1

' --- Unkopieren der komprimierten Datenbank
    objFileSys.MoveFile strPath& strDatabase2, strPath & strDatabase1

Set objFileSys = Nothing
Set objJetEngine = Nothing
%>