asp压缩access数据库

用asp直接压缩access数据库,效果和access工具里的“压缩和修复”相同,找了很多代码测试这个简单而实用。

需要注意的是:
1.压缩数据库之前一定要保证数据库连接已经关闭。
2.如果希望把某表全部数据清空后再压缩可以使用conn.execute "delete * from gangzi"
程序代码 程序代码
<%
dbPath = "#.mdb"
strdbPath = left(Server.MapPath(dbPath),instrrev(Server.MapPath(dbPath),"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(dbPath)) Then
fso.CopyFile Server.MapPath(dbPath),strdbPath & dbPath
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strdbPath & dbPath, _  
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strdbPath & "temp1.mdb"
fso.CopyFile strdbPath & "temp1.mdb",Server.MapPath(dbPath)
fso.DeleteFile(strdbPath & "temp1.mdb")
Set fso = nothing
Set Engine = nothing
response.write "数据库压缩成功!" & vbCrLf
Else
response.write "数据库名称或路径不正确. 请重试!" & vbCrLf
End If
%>



文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.