数据库压缩?
Function CompactDB(DbPath, boolIs97)
Dim fso,Engine,strDbPath,JET_3X,Content
strDbPath = left(DbPath,instrrev(DbPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(DbPath) Then
fso.CopyFile DbPath,strDbPath & "temp.mdb"
Set Engine = CreateObject("JRO.JetEngine")
If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbPath & "temp1.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbPath & "temp1.mdb"
End If
fso.CopyFile strDbPath & "temp1.mdb",DbPath
fso.DeleteFile(strDbPath & "temp.mdb")
fso.DeleteFile(strDbPath & "temp1.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "<li>你的数据库 " & DbPath & "，已经压缩成功！"
Else
CompactDB = "<li>数据库名称或路径不正确！ 请重试！"
End If
End Function
上面是一个实现数据库压缩的函数,
尤其是FSO我不知道是什么东西,
我不明白是怎么实现的
高手指点下,
谢谢!
问题点数：30、回复次数：2Top
1 楼youzi520（釉子-MeChecksV）回复于 2006-05-01 22:57:17 得分 30
http://www.study888.com/computer/web/ASP/fso/200504/25624.htmlTop
2 楼damoney（）回复于 2006-05-02 14:38:41 得分 0
五一大家都去happy拉,
怎么没有高手指点Top
