|网页制作|网络编程|图形图象|操作系统|冲浪宝典|软件教学|网络安全|认证考试|通信技术|电子商务|业内动态|书籍教程|原码|
最近更新 文章分类 多媒体类 精品软件
这样的话,我们只有先关闭被打开的表和字段,然后再关闭数据库就OK了;
SubUpdate()
Data1.Recordset.Close
Data1.Database.Close
DBEngine.CompactDatabase"SourceDatabase","TargetDatabase"'压缩数据库
Endsub