压缩被DBGIRD控件正在使用的MDB数据库
这样的话,我们只有先关闭被打开的表和字段,然后再关闭数据库就OK了;
Sub Update()
Data1.Recordset.Close
Data1.Database.Close
DBEngine.CompactDatabase "SourceDatabase", "TargetDatabase" ' 压缩数据库
End sub
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆] 设为首页 加入收藏 总编信箱投稿或申请专栏请先 [登 陆]
