access数据库在线压缩的方法法
来源:易贤网 阅读:712 次 日期:2014-11-07 15:23:23
温馨提示:易贤网小编为您整理了“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>

<body bgcolor=e0f8ef>

<div>

<div align=center><font color=#3300ff>

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

</div>

<div><br>

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

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

(filesystemobject)权限并安装的access最新驱动!

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

</div><br>

<div align=center>运行环境:在win98se+pws、win2000+iis5.0 <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>

</div>

<form name=compact method=post action=compact.asp>

<div align=center>

<font size=2><b><font color=#ff0000>

压缩选项,请仔细填写!</font></b><br>

<br>

输入数据库全称:

<input type=text name=dbpath>

(包括扩展名,如mdb、asa、asp等)<br>

<br>

<input type=checkbox name=boolis97 value=true>

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

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

<br>

<input type=submit name=submit value=确认压缩>

</font></div>

</form>

<div align=center><font size=2>

<%

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数据库在线压缩的方法法
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 云南省教育厅备案号:云教ICP备0901021 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标