CSDN博客

img LiYaohui

ASP 压缩 ACCESS 方法(代码)

发表于2005/1/3 21:21:00  583人阅读

Dim DBPath
Dim objFileSystem
Dim objEngine

DBPath = Server.MapPath(conDatabasePath) ' 数据库路径 conDatabasePath 为数据库文件路径常量

Set objFileSystem = CreateObject("Scripting.FileSystemObject")

If objFileSystem.FileExists(DBPath) Then

 Set objEngine = CreateObject("JRO.JetEngine")
 objEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ".temp"
 objFileSystem.CopyFile DBPath & ".temp", tmpPath
 objFileSystem.DeleteFile(DBPath & ".temp")

 Set objEngine = Nothing

End If

Set objFileSystem = Nothing

0 0

相关博文

我的热门文章

img
取 消
img即使是一小步
也想与你分享
打开
img