ACCESS数据库压缩代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】 ACCESS数据库压缩

作者:Dezai.CN / 发布于2011/8/22/ 1935

<div>'/*=========================================================================
' * Intro 直接把要压缩的ACCESS数据库拖到这个文件上,按操作来便可以了
' * FileName ACCESS数据库压缩.vbs
' * Author yongfa365
' * Version v1.0
' * WEB <a href="http://www.yongfa365.com">http://www.yongfa365.com</a>
' * Email yongfa365[at]qq.com
' * FirstWrite <a href="http://www.yongfa365.com/item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html">http://www.yongfa365.com/item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html</a>
' * LastModify 2007-12-11 13:27:17
' *==========================================================================*/</div>
<div>'====================压缩数据库 =========================
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1</div>
<div> dbpath = objArgs(I)
 boolIs97 = msgbox("97版数据库?",vbYesNo+vbDefaultButton2)</div>
<div> If dbpath <> "" Then
 CompactDB dbpath,boolIs97
 End If</div>
<div>Next
'=====================压缩参数=========================
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath,JET_3X
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")</div>
<div>If fso.FileExists(dbPath) Then
 fso.CopyFile dbpath,strDBPath & "temp.mdb"
 Set Engine = CreateObject("JRO.JetEngine")</div>
<div> 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</div>
<div>fso.CopyFile strDBPath & "temp1.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
fso.DeleteFile(strDBPath & "temp1.mdb")
Set fso = nothing
Set Engine = nothing
 CompactDB = "成功压缩! " & vbCrLf
Else
 CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
End If
Msgbox CompactDB 
End Function</div>
<div></div>
<div>调用这个函数就可以了：Function CompactDB(dbPath, boolIs97)</div>
<div></div>

试试其它关键字

　数据库压缩　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)