如果在 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)

　　

Access数据库在线压缩的实现方法的更多相关文章

  1. 64位系统使用Access 数据库文件的彻底解决方法

    最近,有PDF.NET用户问我怎么在64位系统下无法访问Access数据库的问题,我第一反应是我怎么没有遇到呢?今天一看自己的VS和Office都是32位版本的,所以在VS里面调试访问Access是没 ...

  2. Access数据库远程连接的实用方法

    一般在远程文件夹开启文件共享即可通过像平常一样用连接字符串访问,注意共享的读写权限. 远程(如通过互联网)连接access数据库的示例: 首先,需要使用TCP/IP,ADO及XML(需要安装Micro ...

  3. access数据库 top语句失效解决方法

    使用查询语句  select   top 1  *  from  News  order  by  [PublicTime] desc   就不一定管用了,如果News表里面的PublicTime字段 ...

  4. 备份和还原SQL Server及压缩Access数据库

    功能说明:备份和恢复SQL Server数据库 * 作者: 刘功勋; * 版本:V0.1(C#2.0);时间:2007-1-1 * 当使用SQL Server时,请引用 COM组件中的,SQLDMO. ...

  5. win7 64位系统下读写access数据库以及安装了office32位软件再安装64位odbc的方法

    公司一款软件还在读写access数据库. 问题是我的电脑是win7 64位, 运行程序会报错, 出错信息很明显, 大意是ODBC数据源读写出错. 因此,我需要下载Access ODBC 64位数据源 ...

  6. php连接Access数据库错误及解决方法

    <?php $connstr="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . realpath("data.m ...

  7. (转)将access数据库迁移到SQLserver的两种方法

    在实际项目使用中遇到的问题,将原文整理后以备后用. 原文地址(具体链接几次未知):http://www.jb51.net/article/41956.htm 方法1 使用ACCESS2007自带的数据 ...

  8. php连接Access数据库的三种方法

    http://www.php100.com/html/webkaifa/PHP/PHPyingyong/2009/1115/3524.html 虽然不是一个类但先放这儿吧 最近想把一个asp的网站改成 ...

  9. 具体解释VB中连接access数据库的几种方法

    在VB中,连接ACCESS数据库的方法主要有以下三种 使用ADO对象,通过编写代码訪问数据库 Connection 对象 ODBC数据源 使用ADO Data 控件高速创建数据库连接 有三种连接方法 ...

随机推荐

  1. 【原创】alias与export

    最近在看lualua相关的,其中k中有os.getenv('kroot'),看到~/.bashrc理由kroot但是为什么拿不到,后来发现写成了alias了,应该是export的. alias rer ...

  2. Java常用知识点

    1. java不支持默认参数,需要用重载来实现 2. java中要比较字符串是否相等,不能用等号,要用equals函数来比较内容 3. 尽量避免使用try catch来捕获异常,可以使用if语句判断以 ...

  3. Android实例-调用GOOGLE的TTS实现文字转语音(XE7+小米2)(无图)

    注意:在手机上必须选安装文字转语音引擎“google Text To Speech”地址:http://www.shouji56.com/soft/GoogleWenZiZhuanYuYinYinQi ...

  4. ALM11需求和测试覆盖率图解1

    覆盖率分析视图 需求覆盖率选项卡

  5. iOS block的用法

    本章学习目标: 1. 了解何谓block. 2. 了解block的使用方法. Block 是iOS在4.0之后新增的程式语法,严格来说block的概念并不算是基础程式设计的范围,对初学者来说也不是很容 ...

  6. 射频识别技术漫谈(10)——识别号的格式变化【worldsing笔记】

    从事RDID行业的朋友经常会遇到这样的情况,同一张ID卡,在不同厂家生产的读卡器上读出的识别号完全不一样,有时甚至差之千里.ID卡的识别号一般是在出厂时被固化在卡片的ROM里,本身是不会改变的,问题出 ...

  7. PING命令入门详解（转载）

    本文转自http://www.linkwan.com/gb/tech/htm/928.htm 1.Ping的基础知识 ping命令相信大家已经再熟悉不过了,但是能把ping的功能发挥到最大的人却并不是 ...

  8. Oracle- 存储过程和异常捕捉

    这段时间晚上有时候去打打球,回家看看电视剧,日子一天天过…….学了点ORACLE存储过程基础,作一下备注,以便日后需查阅. 创建无参存储过程 create procedure p_myPro1 is ...

  9. SQL 存储过程(学生,课程表,选修表)

    SQL 存储过程(学生,课程表,选修表) 一.存储过程的分类 在SQL Server中存储过程分过两类: 1)系统存储过程("sp_"作为前缀) 2)用户自定义存储过程 二.创建和 ...

  10. 【50】了解new和delete的合理替换时机

    1.有时候,我们替换掉编译器提供的new或者delete.首先思考,为什么想要替换?下面是三个常见理由: a.用来检测运用上的错误,超额分配一些内存,再额外的空间放置一些内存: b.为了强化效能,编译 ...