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
%>