(鍏跺疄鎴戜笉鏄綉绠★紝璇︽儏璇风湅……) 鍏充簬缃戠涔嬭矾鐨勮鏄
銆愪唬鐮併慉CCESS鏁版嵁搴撳帇缂 vbs浠g爜
浣滆:smoile 鏃ユ湡:2007-09-29 08:51:46

'/*=========================================================================
' * Intro 鐩存帴鎶婅鍘嬬缉鐨凙CCESS鏁版嵁搴撴嫋鍒拌繖涓枃浠朵笂,鎸夋搷浣滄潵渚垮彲浠ヤ簡
' * FileName ACCESS鏁版嵁搴撳帇缂.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html
' * LastModify 2007-09-25 13:27:17
' *==========================================================================*/
'====================鍘嬬缉鏁版嵁搴 =========================
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
dbpath = objArgs(I)
boolIs97 = msgbox("97鐗堟暟鎹簱?",vbYesNo)
If dbpath <> "" Then
CompactDB dbpath,boolIs97
End If
Next
'=====================鍘嬬缉鍙傛暟=========================
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath,JET_3X
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 = "鎴愬姛鍘嬬缉! " & vbCrLf
Else
CompactDB = "鏁版嵁搴撳悕绉版垨璺緞涓嶆纭. 璇烽噸璇!" & vbCrLf
End If
Msgbox CompactDB
End Function
浠g爜涓嬭浇





鈶 鏈珯鍙戣〃鐨勬棩蹇椾粎灞炰釜浜鸿鐐癸紱
鈶 鏃ュ織涓湭娉ㄦ槑"绂佹杞浇"瀛楁牱鐨勬枃绔狅紝濡傞渶杞浇锛岃娉ㄦ槑鍑哄锛屽苟涓斾繚鐣欐鏃ュ織鐨勯摼鎺ワ紱
鈶 绂佹鐩楅摼鏈珯鎵鏈夊浘鐗囥佽蒋浠躲佸奖闊虫枃浠跺湴鍧锛
鈶 鏈珯鎻愪緵涓嬭浇鐨勮祫婧愶紝浠呬緵鍙傝冩垨娴嬭瘯,涓嬭浇璇疯嚜琛屾潃姣掋傚閫犳垚浠讳綍涓嶈壇鍚庢灉锛屾涓嶈礋璐o紱
鈶 濡傛湁浠讳綍鐤戦棶锛岃闅忔椂涓庣珯闀胯仈绯伙細webmaster#smoile.com | smoile's缃戠涔嬭矾 銆
鈶 JPG鏍煎紡璇蜂娇鐢ACDSee宸ュ叿闃呰锛孭DF鏍煎紡璇蜂娇鐢Adobe Reader闃呰锛孌OC鏍煎紡璇蜂娇鐢∣ffice Word闃呰锛孯AR鏍煎紡璇风敤WINRAR闃呰銆

銆銆姝ら〉闈㈡彁渚涚殑鏂囦欢鍧囬氳繃NOD32鏉姣掕蒋浠舵壂鎻忔棤姣

銆銆鏈珯鎵鍒婅浇鍐呭鍧囦负涓汉鎾板啓鎴栦粠缃戠粶涓婃敹闆嗘暣鐞嗭紝骞朵笖浠ヨ绠楁満鎶鏈爺绌朵氦娴佷负鐩殑锛屼粎渚涘ぇ瀹跺弬鑰冿紝涓嶅瓨鍦ㄤ换浣曞晢涓氱敤閫斻備笉寤鸿鎮ㄥ皢鍏跺綋浣滄妧鏈缓璁垨鎿嶄綔寮曞鑰屾牴鎹叾鐩存帴琛屼簨銆傝嫢鎮ㄩ渶瑕佹妧鏈湇鍔★紝鎮ㄥ簲褰撴寮忓鎵樹笓涓氬叕鍙镐互淇濋殰鎮ㄧ殑鍚堟硶鏉冪泭銆傝繖浜涗俊鎭湁鍙兘涓嶆槸鏈鏂扮殑銆佸畼鏂圭殑淇℃伅锛屼篃鍙兘鏄负浜嗙爺绌舵煇涓鎶鏈棶棰樿屾彺寮曡嚜浠栧锛屽彲浠ヤ笉缁忛氱煡鑰屾洿鏀广傚鏋滄湰缃戠珯鍐呭涓嶆厧渚电姱浜嗘偍鐨勭増鏉冿紝璇蜂笌鎴戣仈绯伙紝鎴戝皢鍙婃椂澶勭悊锛屾挙涓嬬浉鍏冲唴瀹癸紒
璇勮: 0 | 寮曠敤: 0 | 鏌ョ湅娆℃暟: 4494
灏忔彁绀猴細鏂囦欢涓嬭浇涓嶄簡锛熶负浜嗛槻姝㈢洍閾炬帴锛屾湰绔欏仛浜嗘妧鏈鐞嗭紝闇瑕佷笅杞界殑缃戝弸璇烽槄璇杩欓噷锛岃幏鍙栭閫熶笅杞藉湴鍧銆
鍙戣〃璇勮涓洪槻姝㈡敞鍐屾満鐨勪娇鐢,鏈郴缁熷凡绂佹UBB浠g爜锛
璇峰湪鐣欒█涓嬁浣跨敤杩欎簺鍏抽敭瀛