| 订阅 | 在线投稿
分享
 
 
 

实例讲解Access数据库在线压缩的实现方法

来源:互联网  宽屏版  评论
2008-08-07 07:34:55

如果在 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 dbpath <> "" Then

dbpath = server.mappath(dbpath)

response.write(CompactDB(dbpath,boolIs97))

End If

%>

<br>

</font></div></body></html>

如果在 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 dbpath <> "" Then dbpath = server.mappath(dbpath) response.write(CompactDB(dbpath,boolIs97)) End If %> <br> </font></div></body></html>
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
王朝网络微信公众号
微信扫码关注本站公众号wangchaonetcn
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有