Access 在删除记录时,不会从磁盘上清除记录占用的空间,此时我们可以用 Access 打开文件,在“工具”中清除已经删除的记录占用的空间,这里介绍如何用 ASP 实现这个功能。
dim jro
set jro = Server.CreateObject("JRO.JetEngine")
dim s1, s2
s1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("要压缩的文件.mdb")
s2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("压缩存储位置.mdb")
call jro.CompactDatabase(s1, s2)
set jro = nothing
- JRO.JetEngine 默认是安装了的。
- 压缩前要确保数据库没有被使用。
- 可以增加代码:删除原文件;然后把压缩后的文件改名为原文件。
相关阅读