关于压缩后端数据库

rogertian

看过站长的一个压缩数据库的函数.但我用的时候好象不行....

并且,用什么方法可以在前端压缩后端数据库.

Function Compact()
' 添加一个工具条
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
End Function

rogertian

我记得郑家龙写过一个程序.可以压缩后台数据库.有谁知道实现的原理吗?

bpchan

学习！！！