压缩数据库可以,数据库块压缩

2020-11-11 阅读 田濮存整理

内容简介:为什么要压缩和修复数据库access数据库在线压缩的实现:如果删除access数据库中的数据或对象或access项目中的对象,access数据库或access项目可能会产生碎片,降低磁access数据库压缩...

Access数据库在线压缩的实现:如果在Access数据库中删除数据或对象,或者在Access项目中删除对象,Access数据库或Access项目可能会产生碎片并会降低磁盘空间的使用效率。

压缩Access数据库或Access项目实际上是复制该文件,并重新组织文件在磁盘上的存储方式。

压缩同时优化了Access数据库和Access项目的性能。

所以我们在对日益增大的数据库导致的ASP程序慢得无法忍受的时候,就想到了要压缩他。

但常规的做法把他下载到本地然后用MSaccess来完成压缩操作,然后再上传!后来我想是否可以在线实现对ACCESS数据库的压缩呢?

为此我查了一些资料,但还是不得要领。

我在本机测试获得成功,又上网对自己的动网论坛实施了压缩操作结果也完全正常,数据库从原来的3.7M压缩到了2.1M从而证实是可行的。

需要注意的是:本程序其实是通过FSO权限和JET引擎连接,因此在使用之前请确认你的服务器支持FSO(filesystemobject)权限并安装的ACCESS最新驱动!从安全出发,请在压缩之前备份原始数据库!已经测试通过的运行环境:WIN98SEPWS、WIN2000IIS5.0下面是我整理后的源代码,复制另存为compact.asp并上传到数据库所在目录即可正常使用。

htmlheadtitleACCESS数据库压缩程序/title/headbodybgcolor=e0f8efdivdivalign=centerfontcolor=#3300FFbfontsize=5通用ACCESS数据库在线压缩程序/font/b/fontbr/divdivbr本程序其实是通过FSO权限和JET引擎连接,因此在使用之前请确认你的服务器支持FSO(filesystemobject)权限并安装的ACCESS最新驱动!从安全出发,请在压缩之前备份原始数据库!/divbrdivalign=center运行环境:在WIN98SEPWS、WIN2000IIS5.0br%ConstJET_3X=4FunctionCompactDB(dbPath,boolIs97)Dimfso,Engine,strDBPathstrDBPath=left(dbPath,instrrev(DBPath,))Setfso=CreateObject(Scripting.FileSystemObject)Iffso.FileExists(dbPath)ThenSetEngine=CreateObject(JRO.JetEngine)IfboolIs97=TrueThenEngine.CompactDatabaseProvider=Microsoft.Jet.OLEDB.4.0;DataSource=dbpath,_Provider=Microsoft.Jet.OLEDB.4.0;DataSource=strDBPathtemp.mdb;_JetOLEDB:EngineType=JET_3XElseEngine.CompactDatabaseProvider=Microsoft.Jet.OLEDB.4.0;DataSource=dbpath,_Provider=Microsoft.Jet.OLEDB.4.0;DataSource=strDBPathtemp.mdbEndIffso.CopyFilestrDBPathtemp.mdb,dbpathfso.DeleteFile(strDBPathtemp.mdb)Setfso=nothingSetEngine=nothingCompactDB=你的数据库,dbpath,已经被压缩vbCrLfElseCompactDB=你输入的数据库路径或名称未找到,请重试vbCrLfEndIfEndFunction%/div/divformname=compactmethod=postaction=compact.aspdivalign=centerfontsize=2bfontcolor=#FF0000压缩选项,请仔细填写!/font/bbrbr输入数据库全称:inputtype=textname=dbpath(包括扩展名,如MDB、ASA、ASP等)brbrinputtype=checkboxname=boolIs97value=True检查是否为ACCESS97数据库br(默认为ACCESS2000的数据库)brbrinputtype=submitname=submitvalue=确认压缩/font/div/formdivalign=centerfontsize=2%Dimdbpath,boolIs97dbpath=request(dbpath)boolIs97=request(boolIs97)IfdbpathThendbpath=server.mappath(dbpath)response.write(CompactDB(dbpath,boolIs97))EndIf%br/font/div

作者给您推荐的内容
  1. 刀妹是英雄联盟中的一个战士英雄,拥有较高的机动性和爆发性,合理的符文与出装更能显著提高她的能力。那么,刀妹要怎么选择符文与出装呢?01、携带精密系的征服者加上凯旋、传说·欢欣和...

  2. excel下拉菜单怎么做类(一级列信息):类ID(自动编号)、类名(列名)、nclass(二级列信息)、nclassid(自动编号)、nclassname(列名)、parentid(一excel数据有效性二级菜单...

  3. 如何设置和优化SSD硬SSD硬盘怎么设置与优化盘?下载三星魔术。三星官方网站将跳过安装。安装完成后,打开软件并输入。你应该能认出硬盘。我的选择是250GB。有几个预置模板。一般来说,选择性...

  4. 01、XperiaEarDuo是索尼在之前的NWC发布的概念开放式无线耳机,当然,在会议上发布之后也表示XperiaEa...

  5. 有时候我们打开程序时,会提示我们程序无法启动,其原因就是计算机中丢失 MSVCR110.dll,所以下面给大家说说计算机中缺少mfc110.dll怎么办?请看下面01、首先我们打开Microsoft官网后在搜索框输入“...

  6. excel隔多行插行插入行时,直接按最后一个操作(F4),Excel将始终插入新行,但如果插入100行?1000行?你总是按F4?手指会骨折。因此,批量插入多行的方法不会太痛苦。批excel最多多少...

  7. 小编在需要图片素材的时候,一般都是直接在网上搜索高清图片,然而网上很多图片下载下来都带有水印,最气的是刚好自己需要的那张图片有水印!如果可以照片类似的图片代替还好,遇到只想...

  8. 初三数学知识点归纳一。字体是什么?字体是文本的外部形式。这是文本的风格。这是课文的大意。例如,行书、楷书和草书都是一种字体。每个人都可以用不同的方式写同一个词。可...

  9. 在使用ps做设计的时候,我们可以为文件制作印章,今天我们就来看看使用ps是如何制作印章的吧。01、打开ps然后按下Ctrl N键新建一个文件,然后在工具箱内找到多边形选项,如图所示:02、点击多...

  10. PPT幻灯片在我们现在的生活中越来越普及使用,如:小孩子在学校,老师要求家长制作简单的幻灯片;拍照后想做成一个简单的PPT播放。下面我们介绍一下如何用WPS演示制作PPT幻灯片。01、首先,我...