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

sunredday

Private Sub 命令0_Click()
Dim dbNWD As DAO.Database
Set dbNWD = CurrentDb
DBEngine.CompactDatabase "C:\材料信息系统\材料信息系统", "C:\材料信息系统\材料信息系统"
Quit

End Sub
???????????????????????????????????????????????

5574916

以前在论坛学习的方法，access2003 已测试可用

'关闭主窗体并修复压缩数据库
MsgBox ("压缩数据库并重新打开窗口")
CommandBars("Tools").Controls("数据库实用工具(&D)").Controls("压缩和修复数据库(&C)...").accDoDefaultAction

gdjdyyj

学习!!!

Kiss-win

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

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

sunredday

一比较，才知道
WITH CommandBars.Add(, msoBarFloating, , True） 的含义
要引用OFFCE OBJECT
另外
Controls(7).CommandBar.Controls(2).ID
这些号如何搞来？
多谢了。

[此贴子已经被作者于2003-6-12 21:39:36编辑过]

sunredday

Dim bbb As CommandBar

Set bbb = CommandBars.Add(, msoBarFloating, , True)
     bbb.Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).ID
     bbb.Visible = True
     bbb.Controls(1).SetFocus
     SendKeys "{ENTER}"

eio

这是压缩一个没有打开的数据库函数！

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

李寻欢

With CommandBars.Add(, msoBarFloating, , True)
     .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).ID
     .Visible = True
     .Controls(1).SetFocus
     SendKeys "{ENTER}"
   End With