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

2/27/2006来源:Visual Basic教程人气:9805

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

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

  SubUpdate()

  Data1.Recordset.Close

  Data1.Database.Close

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

  Endsub

->