纯编码实现Access数据库的建立或压缩(4) "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb" End If
fso.CopyFile strDBPath & "temp.mdb",dbpath fso.DeleteFile(strDBPath & "temp.mdb") Set fso = nothing Set Engine = nothing
CompactDB = "你的数据库, " & dbpath & ", 已经压缩成功!" & VBCrLf
Else CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf End If
End Function%>