| 導購 | 订阅 | 在线投稿
分享
 
 
 

实例讲解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- 王朝網路 版權所有