• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Compact Access Database

Compact Access Database

Compact Access Database

Rate Compact Access Database

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim db As Database
    Set db = OpenDatabase(srcdbPath)
    ' Show the properties of the original database.
    Debug.Print srcdbPath & ": Version:", db.Version
    Debug.Print "  CollatingOrder = " & db.CollatingOrder
    db.Close
    'if the file exist..kill it.
    If Dir(trdbPath) <> "" Then
        Kill trdbPath
    End If
    DBEngine.CompactDatabase srcdbPath, trdbPath, , dbEncrypt
    ' Show the properties of the compacted database
    Set db = DBEngine(0).OpenDatabase(trdbPath)
    Debug.Print trdbPath & ":Version:", db.Version
    Debug.Print "  CollatingOrder = " & db.CollatingOrder
    db.Close
    
End Sub