如何用代码压缩当前数据库？？

Kiss-win

试试我这个函数吧，我一直都这样用，没有出现过问题。
Function ComDB()
On Error GoTo err_ComDB

Dim mydb, strPath As String
Dim wenjian
Set wenjian = CreateObject("scripting.filesystemobject")
Set mydb = CurrentDb
strPath = Left(mydb.Name, Len(mydb.Name) - 9)

    DBEngine.CompactDatabase strPath & "BusDown.mdb", strPath & "temp.mdb"
    Kill strPath & "BusDown.mdb"
    Name strPath & "temp.mdb" As strPath & "BusDown.mdb"
    Exit Function
err_ComDB:
    MsgBox Err.Description
ComDB = CVErr(65534)
End Function

Kiss-win

你要将当前数据库变成没有打开状态很容易呀，只要添加一个没有任何数据源的窗体，就在这个窗体中呼叫这个函数来执行数据库的压缩操作，不过要注意的是，在压缩数据库之前要保证当前数据库中没有任何的数据读取动作在发生，而且有限制条件，就是，你正在使用的数据库必须为前端，压缩动作只是对后台数据库压缩。

[此贴子已经被作者于2003-6-13 1:02:32编辑过]