Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datenbank komprimieren
Autor: Leo
Datum: 15.10.03 21:20
Hallo ich mache das derzeit so: Public Sub CompressMDB() On Error Resume Next Dim fs As New FileSystemObject Dim Cn As New ADODB.Connection Dim cnTemp As New ADODB.Connection Dim dbEng As New JRO.JetEngine Dim DBdaTemp As String Set fs = New FileSystemObject 'Quelldatenbank Cn.Provider = "Microsoft.Jet.OLEDB.4.0" Cn.Properties("Data Source") = DBda 'Temporäre Datenbank mit comprimierten Daten cnTemp.Provider = "Microsoft.Jet.OLEDB.4.0" DBdaTemp = Replace(DBda, "PIM.MDB", "PIMCOMP.MDB", 1) cnTemp.Properties("Data Source") = DBdaTemp 'Komprimierung ausführen dbEng.CompactDatabase Cn, cnTemp 'alte Datenbank löschen If Dir(DBdaTemp) = "PIMCOMP.MDB" Then fs.DeleteFile DBda 'Neue Datenbank umbenennen Name DBdaTemp As DBda MsgBox "Datenbank erfolgreich komprimiert" End If Set fs = Nothing Exit Sub ErrPrt: '***************** Select Case ErrPrtP("Fehler") Case 1: Resume Next Case 2: Exit Sub Case 3: End End Select '****************** End Sub

Datenbank komprimieren	603	Christina	15.10.03 14:59
Re: Datenbank komprimieren	434	Master	15.10.03 17:01
Re: Datenbank komprimieren	438	Stefan Rühl	15.10.03 21:14
Re: Datenbank komprimieren	492	Leo	15.10.03 21:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen