(鍏跺疄鎴戜笉鏄綉绠★紝璇︽儏璇风湅……) 鍏充簬缃戠涔嬭矾鐨勮鏄

銆愪唬鐮併慉CCESS鏁版嵁搴撳帇缂 vbs浠g爜

绋嬪簭浠g爜 绋嬪簭浠g爜

'/*=========================================================================
' * 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爜涓嬭浇
鍙厑璁镐細鍛樹笅杞 璇ユ枃浠跺彧鍏佽浼氬憳涓嬭浇! 鐧诲綍 | 娉ㄥ唽



鏂囩珷鏉ヨ嚜: 杞浇
Tags: 浠g爜 access vbs
鐩稿叧鏃ュ織:

鐗瑰埆澹版槑锛
鈶 鏈珯鍙戣〃鐨勬棩蹇椾粎灞炰釜浜鸿鐐癸紱
鈶 鏃ュ織涓湭娉ㄦ槑"绂佹杞浇"瀛楁牱鐨勬枃绔狅紝濡傞渶杞浇锛岃娉ㄦ槑鍑哄锛屽苟涓斾繚鐣欐鏃ュ織鐨勯摼鎺ワ紱
鈶 绂佹鐩楅摼鏈珯鎵鏈夊浘鐗囥佽蒋浠躲佸奖闊虫枃浠跺湴鍧锛
鈶 鏈珯鎻愪緵涓嬭浇鐨勮祫婧愶紝浠呬緵鍙傝冩垨娴嬭瘯,涓嬭浇璇疯嚜琛屾潃姣掋傚閫犳垚浠讳綍涓嶈壇鍚庢灉锛屾涓嶈礋璐o紱
鈶 濡傛湁浠讳綍鐤戦棶锛岃闅忔椂涓庣珯闀胯仈绯伙細webmaster#smoile.com | smoile's缃戠涔嬭矾 銆
鈶 JPG鏍煎紡璇蜂娇鐢ACDSee宸ュ叿闃呰锛孭DF鏍煎紡璇蜂娇鐢Adobe Reader闃呰锛孌OC鏍煎紡璇蜂娇鐢∣ffice Word闃呰锛孯AR鏍煎紡璇风敤WINRAR闃呰銆
鍏嶈矗澹版槑:
銆銆姝ら〉闈㈡彁渚涚殑鏂囦欢鍧囬氳繃NOD32鏉姣掕蒋浠舵壂鎻忔棤姣锛岃鏀惧績浣跨敤锛屼絾涔熺儲璇锋偍鍦ㄤ笅杞藉悗鍐嶆煡姣掍竴娆$‘淇濇枃浠跺畨鍏紝濡傛湰鏂囦欢瀵规偍鐨勮绠楁満閫犳垚鍗卞锛屾湰绔欎笉璐熻矗浠汇
銆銆鏈珯鎵鍒婅浇鍐呭鍧囦负涓汉鎾板啓鎴栦粠缃戠粶涓婃敹闆嗘暣鐞嗭紝骞朵笖浠ヨ绠楁満鎶鏈爺绌朵氦娴佷负鐩殑锛屼粎渚涘ぇ瀹跺弬鑰冿紝涓嶅瓨鍦ㄤ换浣曞晢涓氱敤閫斻備笉寤鸿鎮ㄥ皢鍏跺綋浣滄妧鏈缓璁垨鎿嶄綔寮曞鑰屾牴鎹叾鐩存帴琛屼簨銆傝嫢鎮ㄩ渶瑕佹妧鏈湇鍔★紝鎮ㄥ簲褰撴寮忓鎵樹笓涓氬叕鍙镐互淇濋殰鎮ㄧ殑鍚堟硶鏉冪泭銆傝繖浜涗俊鎭湁鍙兘涓嶆槸鏈鏂扮殑銆佸畼鏂圭殑淇℃伅锛屼篃鍙兘鏄负浜嗙爺绌舵煇涓鎶鏈棶棰樿屾彺寮曡嚜浠栧锛屽彲浠ヤ笉缁忛氱煡鑰屾洿鏀广傚鏋滄湰缃戠珯鍐呭涓嶆厧渚电姱浜嗘偍鐨勭増鏉冿紝璇蜂笌鎴戣仈绯伙紝鎴戝皢鍙婃椂澶勭悊锛屾挙涓嬬浉鍏冲唴瀹癸紒
璇勮: 0 | 寮曠敤: 0 | 鏌ョ湅娆℃暟: 4495
灏忔彁绀猴細鏂囦欢涓嬭浇涓嶄簡锛熶负浜嗛槻姝㈢洍閾炬帴锛屾湰绔欏仛浜嗘妧鏈鐞嗭紝闇瑕佷笅杞界殑缃戝弸璇烽槄璇杩欓噷锛岃幏鍙栭閫熶笅杞藉湴鍧銆
鍙戣〃璇勮
涓洪槻姝㈡敞鍐屾満鐨勪娇鐢,鏈郴缁熷凡绂佹UBB浠g爜锛
璇峰湪鐣欒█涓嬁浣跨敤杩欎簺鍏抽敭瀛
鏄点绉:
瀵嗐鐮: 娓稿鍙戣█涓嶉渶瑕佸瘑鐮.
楠岃瘉鐮:
鍐呫瀹:
閫夈椤:
铏界劧鍙戣〃璇勮涓嶇敤娉ㄥ唽锛屼絾杩樻槸寤鸿鎮娉ㄥ唽璐﹀彿(姣忓ぉ0鈥8鐐圭姝㈡敞鍐).
瀛楁暟闄愬埗 1000 瀛 | UBB浠g爜 鍏抽棴 | [img]鏍囩 鍏抽棴