这样的话,我们只有先关闭被打开的表和字段,然后再关闭数据库就OK了;
SubUpdate()
Data1.Recordset.Close
Data1.Database.Close
DBEngine.CompactDatabase"SourceDatabase","TargetDatabase"压缩数据库
Endsub
->文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!


