用 ASP 压缩 Access 数据库

作者:vkvi 来源:ITPOW(原创) 日期:2008-11-24

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 默认是安装了的。
  • 压缩前要确保数据库没有被使用。
  • 可以增加代码:删除原文件;然后把压缩后的文件改名为原文件。

相关阅读

相关文章