ASPでAccessファイルを圧縮・修復する方法

<% 
oldDB = server.mappath("db.mdb") ’DBアドレスを変更 
newDB = server.mappath("db_new.mdb") ’臨時ファイルを作成 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Engine = Server.CreateObject("JRO.JetEngine") 
prov = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
Engine.CompactDatabase prov & OldDB, prov & newDB 
set Engine = nothing 
FSO.DeleteFile oldDB ’臨時ファイルを削除
FSO.MoveFile newDB, oldDB 
set FSO = Nothing 
response.write "OK" 
%> 

コメントを残す

メールアドレスが公開されることはありません。