Access-Datenbanken haben eine "kleine" Eigenart an sich: Werden viele Datensätze hinzugefügt, oder auch viele Datensätze aus der Datenbank gelöscht, wächst die Dateigröße der Datenbank-Datei extrem an. Um die Datenbank-Größe wieder zu reduzieren stellt die Jet-Engine eine entsprechenden Befehl bereit: CompactDatabase Public password As String ' Datenbank komprimieren Public Function dbCompact(ByVal dbName As String) As Boolean Dim Quelle As String On Local Error GoTo dbCompact_Error dbCompact = False ' Prüfen, ob Datei existiert If Dir(dbName) <> "" Then Screen.MousePointer = 11 Quelle = Left$(dbName, InStrRev(dbName, ".") - 1) ' Datenbank komprimieren (ohne Passwort) Err.Number = 0 CompactDatabase dbName, Quelle & ".$$$" ' Fehler: Datenbank passwortgeschützt While Err.Number = 3031 ' Dialog zur Eingabe des Passworts aufrufen Screen.MousePointer = 0 ' Das Passwort wird in der öffentlichen Variablen ' password gespeichert frm_password.Show 1 Screen.MousePointer = 11 ' Neuer Versuch mit Passwort-Angabe Err.Number = 0 CompactDatabase dbName, Quelle & ".$$$", , , _ ";pwd=" & password Wend On Local Error GoTo 0 ' Originaldatei löschen Kill dbName ' Umbenennen der neuen Datei in die Originaldatei Name Quelle & ".$$$" As dbName Screen.MousePointer = 0 MsgBox "Komprimierung erfolgreich abgeschlossen!", 64, _ "Information" dbCompact = True Else MsgBox "Datenbank " & dbName & " nicht gefunden!", _ vbCritical, "Fehler" End If Exit Function dbCompact_Error: If Err.Number = 3031 Then Resume Next If Err.Number <> 32755 Then MsgBox Err.Description & " (" & Err.Number & ")", _ vbCritical, "Fehler" End If Screen.MousePointer = 0 End Function Alles, was Sie jetzt noch selber machen müssen ist das Bereitstellen eines Formulars für die Passwort-Eingabe. Beim Schließen dieses Formulars teilen Sie der aufrufenden Form das Passwort dann mit: frmMain.Password = txtPassword.Text Dieser Tipp wurde bereits 23.133 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |