您正在 access911.net -> 静态资料库

作者：cg1 摘自：access911.net 录入：cg1 时间：2003-7-7 浏览人次：1683

请参考一下代码或者察看Access的帮助,敲入关键字"compact":

This example uses the CompactDatabase method to change the collating order of a database. You cannot use this code in a module belonging to Northwind.mdb.

Sub CompactDatabaseX()
    Dim dbsNorthwind As Database
    Set dbsNorthwind = OpenDatabase("Northwind.mdb")
    ' Show the properties of the original database.
    With dbsNorthwind
        Debug.Print .Name & ", version " & .Version
        Debug.Print "    CollatingOrder = " & .CollatingOrder
        .Close
    End With
    ' Make sure there isn't already.....................
...........

如何用DAO压缩修复数据库