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