[原创] Access 数据库压缩

最新推荐文章于 2022-01-07 14:43:51 发布

原创最新推荐文章于 2022-01-07 14:43:51 发布 · 832 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#access #数据库 #function #qq

ASP 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种使用ASP脚本进行Access数据库(.mdb)文件压缩的方法。通过创建临时文件并利用JRO.JetEngine对象实现数据库文件的压缩操作，最后替换原始数据库文件。此过程包括错误处理确保了操作的安全性。

If AccessCompact("/data/db1.mdb") = True Then
Response.Write("Access 数据库压缩成功！！！")
Else
Response.Write("Access 数据库压缩失败......")
End If

Function AccessCompact(AccessDataPath)
AccessCompact = True
'Power by Love_Computer [ QQ 12358163 ]
'Create by 2005-02-10
'http://www.56390.com/
Dim fso, Engine, strAccFullPath,AccFullPath,strTempFile
On Error Resume Next
Err = 0
AccFullPath=Server.MapPath(AccessDataPath)
strAccFullPath = Left(AccFullPath,InStrRev(AccFullPath,"/"))
strTempFile = "AccTempData.mdb"
SET fso = Server.CreateObject("Scripting.FileSystemObject")
If Err <> 0 Then
  AccessCompact = False
  Err = 0
  Exit Function
End If
If fso.FileExists(AccFullPath) = False Then
  AccessCompact = False
  Exit Function
End If

SET Engine = CreateObject("JRO.JetEngine")
If Err <> 0 Then
  AccessCompact = False
  Err = 0
  Exit Function
End If
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccFullPath," Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strAccFullPath & strTempFile
fso.CopyFile strAccFullPath & strTempFile,AccFullPath
fso.DeleteFile(strAccFullPath & strTempFile)
SET fso = Nothing
SET Engine = Nothing
If Err <> 0 Then
  AccessCompact = False
End If
Err = 0
End Function