修復及壓縮 ACCESS 的 MDB

修復及壓縮 ACCESS 的 MDB

3 種方式 :

方法 1:

使用 DAO 物件 ( Data Access Object )

設定引用項目 Microsoft DAO x.x Object Library

目前 DAO 物件有 3.51 版的 Microsoft DAO 3.5 Object Library ( For Access 97 以前的 MDB ) 
及 3.6 版 Microsoft DAO 3.6 Object Library  ( For Access 2K 以後的 MDB )

不設定引用 ( Early Binding ) 也可使用 Late Binding 方式來建立 DAO 3.5 或 3.6 版本的 DBEngine
Set dbe = CreateObject("DAO.DBEngine.35") ' 或 Set dbe = CreateObject("DAO.DBEngine.36") 

Compact 壓縮 ( Defragmentation ) 資料庫 動作如下 : 

語法 : 

DBEngine.CompactDatabase OldDb, NewDb, Locale, Options, Password 

   OldDb   :   欲處理之來源 MDB 

   NewDb   :   為處理後之目的 MDB 

   Locale 參數 :
       dbLangGeneral   :   English, German, French, Portuguese, Italian, and Modern Spanish 
       dbLangChineseSimplified   :   Simplified Chinese ( 繁體中文 ) 
       dbLangChineseTraditional   :   Traditional Chinese ( 簡體中文 )

   Options 參數 :
       dbVersion10   :   M$ Jet db engine ver 1.0 file format while compacting. 
       dbVersion11   :   M$ Jet db engine ver 1.1 file format while compacting.
       dbVersion20   :   M$ Jet db engine ver 2.0 file format while compacting.
       dbVersion30   :   M$ Jet db engine ver 3.0 file format (compatible with ver 3.5) while compacting. 

       dbEncrypt   :   Encrypt the database while compacting.
       dbDecrypt   :   Decrypt the database while compacting 

   PS : Jet ( Joint Engine Technology ) 

Sample : 

DBEngine.CompactDatabase "C:\Src.mdb", "C:\Dst.mdb", _
         dbLangChineseTraditional, dbVersion40 + dbEncrypt 

PS : dbVersion40 請調整成適當的版本 

By the way , DAO  3.5 有提供 MDB 修復 ( Repair ) 的方法 : 
DBEngine.RepairDatabase "MDB 路徑 + 檔名"  

PS : 3.5 以後之版本已無此方法 ( 已併入 CompactDatabase )  

 

================================================================

 

方法 2:  

使用 JRO 物件

設定引用項目 Microsoft Jet and Replication Objects X.X library  

語法 : 

JetEngine.CompactDatabase(SourceConnection, DestConnection) 

參數 : 

SourceConnection  :   String 值，指定與欲壓縮之來源資料庫的連接。 
       若 SourceConnection 指定的資料庫已經開啟，就會發生錯誤。 

DestConnection  :   String 值，指定與壓縮後才建立之目的地資料庫的連接。 
       若 DestConnection 指定的資料庫已經存在或已經有相同名稱的其它檔案存在，就會發生錯誤。 

Connection String :
 

屬性	說明
Provider	指示提供者的名稱，用來連接到資料來源。 若未指定此屬性，會採用 Microsoft.Jet.OLEDB.4.0 提供者。 若來源字串的提供者名稱和目的地字串的提供者名稱不同，就會發生錯誤。
Data Source	指示資料庫的名稱。 來源和目的地連接資訊都需要此屬性。
User Id	若來源資料庫設有安全保護時，指示使用者的名稱。
Password	若來源資料庫設有安全保護時，指示使用者的密碼。
Locale Identifier	指示新資料庫的國別 id。 若省略此 id，則目的地資料庫的國別 id 會和來源資料庫相同。 國別指定資料庫字串比較的排列順序。
Jet OLEDB:Database Password	若資料庫設有密保護，指示密碼
Jet OLEDB:Engine Type	指示要開啟或將建立的來源資料庫版本。 您可以使用的 OLE DB 引擎類型為： 1 for JET Version 1.0 2 for JET Version 1.1 3 for JET Version 2.x 4 for JET Version 3.x 5 for JET Version 4.x 若省略目的地資料庫的此資訊，它會預設成 5。 目的地資料庫的值不可以是比來源資料庫的版本還新。
Jet OLEDB:Registry Path	設定 Windows Registry 機碼的資訊，包括 Microsoft Jet Database Engine 的值。
Jet OLEDB:System Database	指示系統資料庫的位置。
Jet OLEDB:Encrypt Database	指示是否加密新的資料庫。若此省略此參數，則新的資料庫會和來源資料庫擁有相同的加密。
Jet OLEDB:Don't Copy Locale on Compact	指示資料庫要使用的排列順序，取代任何每個資料行國別設定。(Boolean.)
Jet OLEDB:Compact Without Relationships	指示是否複製關係至新的資料庫。 (Boolean.)
Jet OLEDB:Compact Without Replica Repair	指示是否試著尋找其它抄本來修復受損複寫式資料庫。(Boolean.)

 

Sample:

Dim jro As New jro.JetEngine

jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 來源MDB", _
                                    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 目的MDB;Jet OLEDB:Engine Type= 4"

 

================================================================

 

 

方法 3:  

 

如果機器上有裝 M$ Access , 也可直接使用 Access 來 Repair / Compact MDB資料庫

 

或寫程式來呼叫 Access來做

 

建立 Access 應用程式物件

    設定引用項目 Microsoft Access X.X Object Library

    Dim objAcc As New Access.Application

或

    Dim objAcc As Object

    Set objAcc = CreateObject("Access.Application")

之後

    Call objAcc.CompactRepair("c:\A.mdb", "C:\B.mdb", False)

即可

 

 

VB.Net 透過 JRO 修復 Access MDB

資料來源處：http://blog.blueshop.com.tw/hammerchou/archive/2006/10/11/42107.aspx

 

VB.Net 透過 JRO Compact / Repair Access MDB

 

Imports System

Imports System.IO

 

Public Class Form1

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' 將C:\db1.mdb 做Compact / Repair

        If Compact_MDB("C:\db1.mdb") Then MessageBox.Show("OK !")

    End Sub

 

    Private Function Compact_MDB(ByVal strFile As String) As Boolean

 

        ' Jet Access (MDB) 連線字串; Jet ( Joint Engine Technology )

        Dim strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0}"

 

        ' 或"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Jet OLEDB:Engine Type=5"

 

        ' Path.GetTempFileName 方法: 在磁碟上建立具命之零位元組的唯一暫存檔案，

        '   然後傳回該檔案的完整路徑。

        Dim strTmpFile As String = Path.GetTempFileName.Replace(".tmp", ".mdb") ' 把tmp 副檔名改成mdb

 

        ' 建立物件陣列存放引數(參數) , 來源, 目的

        Dim objPara As Object() = New Object() {String.Format(strCn, strFile), String.Format(strCn, strTmpFile)}

 

        ' Activator 成員: 包含本機或遠端建立物件型別的方法，或者取得對現有遠端物件的參考。

        ' Activator.CreateInstance 方法(Type)  : 使用最符合指定參數的建構函式，建立指定型別的執行個體。

        Dim objJRO As Object = Activator.CreateInstance(Type.GetTypeFromProgID("JRO.JetEngine"))

        ' Type.GetTypeFromProgID 方法: 取得與指定的程式識別項(ProgID) 關聯的型別；

        '   如果在載入Type 時發生錯誤，則傳回null。

        ' JRO.JetEngine 為Microsoft Jet and Replication Objects X.X library 

 

        ' Type.InvokeMember 方法

        ' Type.InvokeMember (String, BindingFlags, Binder, Object, Object[])

        objJRO.GetType.InvokeMember("CompactDatabase", Reflection.BindingFlags.InvokeMethod, _

                                                                    Nothing, objJRO, objPara)

 

        ' 使用指定的繫結條件約束並符合指定的引數清單，來叫用指定的成員。

        ' BindingFlags 列舉型別,InvokeMethod 指定要叫用方法。

 

        File.Delete(strFile) ' File.Delete 方法: 刪除Compact 前之mdb 檔

        File.Move(strTmpFile, strFile) ' File.Move 方法: 將Compact 過的mdb 檔改成(回)正確檔名

 

        ' Marshal.ReleaseComObject 方法釋放JRO COM 物件

        Runtime.InteropServices.Marshal.ReleaseComObject(objJRO)

        objJRO = Nothing

 

        Return True

 

    End Function

 

End Class