access数据库在线压缩的方法法

来源：易贤网阅读：996 次日期：2014-11-12 15:03:33

温馨提示：易贤网小编为您整理了“access数据库在线压缩的方法法”,方便广大网友查阅！

access数据库在线压缩的方法

如果在 access 数据库中删除数据或对象，或者在 access 项目中删除对象，access 数据库或 access 项目可能会产生碎片并会降低磁盘空间的使用效率。压缩 access 数据库或access项目实际上是复制该文件，并重新组织文件在磁盘上的存储方式。压缩同时优化了 access 数据库和 access 项目的性能。

所以我们在对日益增大的数据库导致的asp程序慢得无法忍受的时候，就想到了要压缩他。但常规的做法把他下载到本地然后用msaccess来完成压缩操作，然后再上传！

需要注意的是：本程序其实是通过fso权限和jet引擎连接，因此在使用之前请确认你的服务器支持fso（filesystemobject)权限并安装的access最新驱动！从安全出发，请在压缩之前备份原始数据库！已经测试通过的运行环境：

win98se+pws、win2000+iis5.0

下面是我整理后的源代码，复制另存为compact.asp并上传到数据库所在目录即可正常使用。

<html>

<head>

<title>access数据库压缩程序</title>

</head>

<div>

<b><font size=5>通用access数据库在线压缩程序</font></b></font><br>

</div>

本程序其实是通过fso权限和jet引擎连接，

因此在使用之前请确认你的服务器支持fso

（filesystemobject)权限并安装的access最新驱动！

从安全出发，请在压缩之前备份原始数据库！

</div><br>

const jet_3x = 4

function compactdb(dbpath, boolis97)

dim fso, engine, strdbpath

strdbpath = left(dbpath,instrrev(dbpath,))

set fso = createobject(scripting.filesystemobject)

if fso.fileexists(dbpath) then

set engine = createobject(jro.jetengine)

if boolis97 = true then

engine.compactdatabase provider=microsoft.jet.oledb.4.0;data source= & dbpath, _

provider=microsoft.jet.oledb.4.0;data source= & strdbpath & temp.mdb; _

& jet oledb:engine type= & jet_3x

else

engine.compactdatabase provider=microsoft.jet.oledb.4.0;data source= & dbpath, _

provider=microsoft.jet.oledb.4.0;data source= & strdbpath & temp.mdb

end if

fso.copyfile strdbpath & temp.mdb,dbpath

fso.deletefile(strdbpath & temp.mdb)

set fso = nothing

set engine = nothing

compactdb = 你的数据库, & dbpath & , 已经被压缩 & vbcrlf

else

compactdb = 你输入的数据库路径或名称未找到，请重试 & vbcrlf

end if

end function

</div>

压缩选项，请仔细填写！</font></b><br>

<br>

输入数据库全称：

（包括扩展名，如mdb、asa、asp等）<br>

<br>

检查是否为access97数据库<br>

(默认为access2000的数据库)<br>

<br>

</font></div>

</form>

dim dbpath,boolis97

dbpath = request(dbpath)

boolis97 = request(boolis97)

if dbparesponse.write(compactdb(dbpath,boolis97))

end if

<br>

</font></div></body></html>th <> then

dbpath = server.mappath(dbpath)

更多信息请查看IT技术专栏

上一篇：access模糊查询

下一篇：解决access数据库被恶意下载的方法

易贤网手机网站地址：access数据库在线压缩的方法法

由于各方面情况的不断调整与变化，易贤网提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！