台灣最大程式設計社群網站
線上人數
768
 
會員總數:245619
討論主題:189317
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 線上壓縮及修復資料庫
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
線上壓縮及修復資料庫
價值 : 0 QP  點閱數:812 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員

Dim fso, je

DBPath = "D:\myDB.mdb" ' 欲壓縮的資料庫完整路徑
tempPath = "Z:\myDB.mdb" ' 壓縮後的檔名完整路徑
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(tempPath) Then fso.DeleteFile tempPath, True
Set je = Server.CreateObject("jro.JetEngine")
je.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tempPath & _
";Jet OLEDB:Engine Type=5"
Set je = Nothing
If fso.FileExists(tempPath) And fso.FileExists(DBPath) Then
fso.DeleteFile DBPath, True
fso.MoveFile tempPath, DBPath
End If
Set fso = Nothing

--------------------------------------------------------------------------
假如資料庫檔跟asp同一目錄:
DBPath = Server.MapPath("myDB.mdb") ' 欲壓縮的資料庫完整路徑
tempPath = Server.MapPath("tempDB.mdb") ' 壓縮中的檔名完整路徑

如果是brinkster的空間, 大概是:
DBPath = Server.MapPath("db/myDB.mdb")
tempPath = Server.MapPath("db/tempDB.mdb")

本篇文章發表於2002-04-21 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.