amirlol
Well-Known Member
مدتی پیش یکی باهام تماس گرفت و این کد رو درخواست کرد !! خودش میدونه کیه !!
قرار شد یاداوری کنه که نکرد !! من امروز تا آیدیشو دیدم یادش افتادم !!
ای رفیقی که می خواستی دیتابیستو تو سرور کامپک و ترمیم کنی !!
قرار شد یاداوری کنه که نکرد !! من امروز تا آیدیشو دیدم یادش افتادم !!
ای رفیقی که می خواستی دیتابیستو تو سرور کامپک و ترمیم کنی !!
کد:
DbPathAndName01 =db
Dim oJetEngine
Set oJetEngine = Server.CreateObject("JRO.JetEngine")
MdbFilePath = "c:\g.mdb"
DbstrCon01 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MdbFilePath
DestCon = DbstrCon01 &"2"
With oJetEngine
.CompactDatabase DbstrCon01, DestCon
End With
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile db
oFSO.CopyFile db & "2", db , true
oFSO.DeleteFile db & "2"
Set oFSO = Nothing
Set oJetEngine = Nothing
