在Access97里,我们可以开一个资料库后,利用工具–>资料库公用程式来压缩此一资料库,可是在压缩时,Access会先将此资料库"关闭",再进行压缩,然后再开启压缩后的资料库,那么我该如何在表单的这个按钮做呢??因为DBGird这个控件仍和资料库做连结,所以我无法"关闭"数据库…
这样的话,我们只有先关闭被打开的表和字段,然后再关闭数据库就OK了;
SubUpdate()
Data1.Recordset.Close
Data1.Database.Close
DBEngine.CompactDatabase"SourceDatabase","TargetDatabase"压缩数据库
Endsub
->