压缩被DBGIRD控件正在使用的MDB数据库

核心提示：在access97里,我们可以开一个资料库后,利用工具-->资料库公用程式来压缩此一资料库,可是在压缩时,Access会先将此资料库"关闭",再进行压缩,然后再开启压缩后的资料库,那么我该如何在表单的这个按钮做呢??因为DBGird这个控件仍和资料库做连结,所以我无法"关闭"

在access97里,我们可以开一个资料库后,利用工具-->资料库公用程式来压缩此一资料库,可是在压缩时,Access会先将此资料库"关闭",再进行压缩,然后再开启压缩后的资料库,那么我该如何在表单的这个按钮做呢??因为DBGird这个控件仍和资料库做连结,所以我无法"关闭"数据库...

这样的话,我们只有先关闭被打开的表和字段,然后再关闭数据库就OK了;

SubUpdate()

Data1.Recordset.Close

Data1.Database.Close

DBEngine.CompactDatabase"SourceDatabase","TargetDatabase"'压缩数据库

Endsub

->