用ASP代码实现对access数据库的在线压缩处理，注意压缩前请备份数据库。
我们知道每个一段时间压缩一下access数据库，可以减少数据库的体积，提高数据库的性能。
<%
dim fso, engine, strdbpath
datapath="a.mdb" '这里是数据库存放地址
strdbpath = left(datapath,instrrev(datapath,"\"))
set fso = Server.createobject("scripting.filesystemobject")
IF fso.fileexists(datapath) then
Set Engine = CreateObject("JRO.JetEngine")
Engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & datapath," provider=microsoft.jet.oledb.4.0; data source=" & strdbpath & "temp.mdb"
fso.copyfile strdbpath & "temp.mdb",datapath
fso.deletefile(strdbpath & "temp.mdb")
set fso = nothing
set Engine = nothing
response.write"数据库压缩成功!"
else
response.write "数据库没有找到!"
end IF
%>
dim fso, engine, strdbpath
datapath="a.mdb" '这里是数据库存放地址
strdbpath = left(datapath,instrrev(datapath,"\"))
set fso = Server.createobject("scripting.filesystemobject")
IF fso.fileexists(datapath) then
Set Engine = CreateObject("JRO.JetEngine")
Engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & datapath," provider=microsoft.jet.oledb.4.0; data source=" & strdbpath & "temp.mdb"
fso.copyfile strdbpath & "temp.mdb",datapath
fso.deletefile(strdbpath & "temp.mdb")
set fso = nothing
set Engine = nothing
response.write"数据库压缩成功!"
else
response.write "数据库没有找到!"
end IF
%>
站长工具
相关文章
请稍等，评论加载中...