服务器自动压缩access数据库代码,Access数据库在线压缩的方法（附代码）

通用ACCESS数据库在线压缩程序

本程序其实是通过FSO权限和JET引擎连接，

因此在使用之前请确认你的服务器支持FSO

(filesystemobject)权限并安装的ACCESS最新驱动！

从安全出发，请在压缩之前备份原始数据库！

运行环境：在WIN98SE+PWS、WIN2000+IIS5.0

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

%>