Office: (Office 2010) Datenbanken via VBScript komprimieren und reparieren

flew · 6. Februar 2012

Hallo zusammen,

ich habe ein VBScript geschrieben, welches mir alle Access-DBs in einem Ordner in einen Unterordner zippt, durchnummeriert und somit sichert.
Nun möchte ich, dass dieses Script die DBs auch komprimiert und repariert.

Gefunden habe ich ein funktionierenden Script für .mdbs
http://www.windows-api.com/microsoft...access-db.aspx

Dieses Script gibt den Fehler "Nicht erkennbares Datenbankformat" aus, wenn ich es auf eine Access-2010 Datei anwende.

Wie muss ich das Script abändern ?

:)

Josef P. · 8. Februar 2012

Hallo!

Code:

strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das wirst du vermutlich auf die ACE-Version ändern müssen.
Provider = Microsoft.ACE.OLEDB.12.0

BTW: du kannst das übrigens auch per DAO (ACE) durchführen.

mfg
Josef

flew · 8. Februar 2012

Wenn ich folgendes Script
Code:

'Option Explicit
'*
'* Declare Constants
'*
Const cVBS = "CompactDatabasesACCDB.vbs"
Const cMDB = "Database2.accdb"
'*
'* Declare Variables
'*
Dim strDIR
strDIR = WScript.ScriptFullName
strDIR = Left(strDIR,InStrRev(strDIR,"\"))
Dim strNEW
strNEW = strDIR & cMDB & ".new"
Dim strOLD
strOLD = strDIR & cMDB
Dim strSAV
strSAV = strDIR & cMDB & ".sav"
'*
'* Backup Database
'*
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile strOLD, strSAV, True
'*
'* Compact Database
'*
Dim objJET
Set objJET = CreateObject("JRO.JetEngine")
Dim strDSN
strDSN = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source="
objJET.CompactDatabase strDSN & strOLD, strDSN & strNEW
Set objJET = Nothing
'*
'* Delete Database
'*
objFSO.DeleteFile cMDB
objFSO.MoveFile strNEW, strOLD
Set objFSO = Nothing
'*
'* Finished
'*
MsgBox "Done!",vbInformation,cVBS
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aus obigem Link und deiner Änderung auf die Datei Database2.accdb anwende, bekomme ich leider den Fehler Ungültiges Argument in Zeichen 1 der rot markierten Zeile.

Was meinst du mit DAO (ACE) ?

Josef P. · 8. Februar 2012

Hallo!

Code:

strDSN = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source="
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich schrieb aber nicht Microsoft.Jet.OLEDB.12 sondern Microsoft.ACE.OLEDB.12.0.

Komprimieren per DAO:
VBA:
Code:

Dim dbe As DAO.DBEngine
Set dbe = CreateObject("DAO.DBEngine.120")
dbe.CompactDatabase ScrName, DstName
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VB-Script:
Code:

Dim dbe
Set dbe = CreateObject("DAO.DBEngine.120")
dbe.CompactDatabase ScrName, DstName
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

flew · 8. Februar 2012

Ja ich hatte den Code nochmals angepasst, aber auch mit Microsoft.ACE.OLEDB.12.0 klappt es nicht mit dem Fehler eines ungültiges Arguments in der roten Zeile

Jedoch funktioniert die letzt geschriebene Variante
Code:

Dim dbe
Set dbe = CreateObject("DAO.DBEngine.120")
dbe.CompactDatabase ScrName, DstName
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dankeschön !
Grüße

Office: (Office 2010) Datenbanken via VBScript komprimieren und reparieren

Datenbanken via VBScript komprimieren und reparieren

Datenbanken via VBScript komprimieren und reparieren

Datenbanken via VBScript komprimieren und reparieren

Datenbanken via VBScript komprimieren und reparieren - Similar Threads - Datenbanken via VBScript

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

LostFocus der Datenbank?

Problem Datenstruktur Mitglieds-Datenbank

Auslesen Windowsbenutzer in einer Datenbank

Datenbank "Ausfahrtenerfassung" Rudern

Einfache Datenbank zum Suchen und Öffnen von Dokumentdateien

Datenbank Abfrage - einzelne Datensätze löschen