Access数据库在线压缩的方法

来源：阅读：661 次日期：2014-09-28 10:06:35

温馨提示：小编为您整理了“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技术专栏

上一篇：MySQL的配置文件中关于basedir和datadir的说明

下一篇：怎样预防SQL注入

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

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