如果在 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. 【Kafka入门】搭建Kafka本地环境

    本博文介绍如何一步步搭建起Kafka本地环境. 下载Kafka 0.9.0.0 并配置软链接 下载好后,放入电脑本地安装目录,mac下我放在/usr/local下,解压Kafka. -0.9.0.0. ...

  2. Mongodb 和 普通数据库 各种属性 和语句 的对应

    SQL to MongoDB Mapping Chart In addition to the charts that follow, you might want to consider the F ...

  3. hdu5773--The All-purpose Zero（LIS变形）

    题意:给一个非负整数的数列,其中0可以变成任意整数,包括负数,求最长上升子序列的长度. 题解:LIS是最简单的DP了,但是变形之后T^T真的没想到.数据范围是10^5,只能O(nlogn)的做法,所以 ...

  4. opencv 图像轮廓

    图片解析: 原图: code: #include <opencv\cv.h> #include <opencv\highgui.h> #include <opencv\c ...

  5. Winform- 界面开发之布局控件"WeifenLuo.WinFormsUI.Docking"的使用

    布局控件"WeifenLuo.WinFormsUI.Docking"是一个非常棒的开源控件,用过的人都深有体会,该控件之强大.美观.不亚于商业控件.而且控件使用也是比较简单的. 实 ...

  6. Moebius实现Sqlserver集群~介绍篇

    今年是一个不平凡的一年,接触到了很多新艳的,让人兴奋的东西,虽然自己的牙掉了两颗,但感觉自己又年青了两岁,哈哈!进入正题,今年公司开始启用数据库集群,对于Sqlserver来说,实现方式并不是很多,一 ...

  7. Start-Process传递变量

    如果$b="aa,bb" Start-Process PowerShell.exe -Argumentlist "d:\w.ps1 $a $b $c" Star ...

  8. Design Pattern Explained 读书笔记二——设计模式序言

    设计模式的由来: 20 世纪 90 年代初,一些聪明的开发者偶然接触到 Alexander(Christopher Alexander 的建筑师) 有关模式的工作.他们非常想知道,在建筑学成立的理论, ...

  9. 几种sap增强的查找方法

    ***方法一**************************************** 通过SE30,运行TCODE后,点Evaluate后,查看运行时间分析评估:命中清单. 找以“exit”开 ...

  10. android118 上拉下拉刷新列表listView实现

    MainActivity.java package com.heima52.pullrefresh; import java.util.ArrayList; import com.heima52.pu ...