网络编程
位置:首页>> 网络编程>> Asp编程>> asp压缩access数据库方法代码

asp压缩access数据库方法代码

 来源:asp之家 发布时间:2008-08-08 12:22:00 

标签:数据库,压缩,access,asp


用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 
%>
0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com