title image


Smiley Datenbank komprimieren - kein Problem !!
Hallo Andi,Sub DBPacken(DBPfad, DBCompress As String)Dim JRO As JRO.JetEngineDim Pstr1, Pstr2 As StringSet JRO = New JRO.JetEngineScreen.MousePointer = 11If Right$(DBPfad, 1) "\" Then DBPfad = DBPfad + "\"Pstr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + DBPfad + DBCompressPstr2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + DBPfad + "Puffer.mdb"JRO.CompactDatabase Pstr1, Pstr2'alteDB nur löschen, wenn neue erstellt wurdeIf Dir(DBPfad + DBCompress) "" ThenKill DBPfad + DBCompressName DBPfad + "Puffer.mdb" As DBPfad + DBCompressElseAntwort = MsgBox("Die Komprimierung konnte nicht durchgeführt werden, weil die Auslagerungsdatei nicht erstellt werden konnte. Offensichtlich haben Sie nicht ausreichend Festplattenkapazität für diese Aktion!", vbOKOnly + vbInformation, "Komprimieren")End IfScreen.MousePointer = 1End Sub grussr.m.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: