105.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

压缩MDB文件

_作者:[e-mail]

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

Data1.Recordset.Close
Data1.Database.Close

DBEngine.CompactDatabase "SourceDatabase", "TargetDatabase"

!!!你平常在 Dao 伫怎么用 Database 和 Recordset ，就怎么用 Data.Database 和
Data.Recrodset!!!