在Access97里, 我們可以開一個資料庫后, 利用工具-->資料庫公用程式來壓縮此一資料庫,可是在壓縮時, Access會先將此資料庫"關閉", 再進行壓縮,然后再開啟壓縮后的資料庫,那么我該如何在表單的這個按鈕做呢??因為DBGird這個控件仍和資料庫做連結, 所以我無法"關閉"數(shù)據庫...
這樣的話,我們只有先關閉被打開的表和字段,然后再關閉數(shù)據庫就OK了;
Sub Update()
Data1.Recordset.Close
Data1.Database.Close
DBEngine.CompactDatabase "SourceDatabase", "TargetDatabase" ' 壓縮數(shù)據庫
End sub