標題: 在EXCEL中用VBA壓縮ACCESS資料庫三種方式 [打印本頁]

---

作者: ltc    時間: 2012-2-29 18:32     標題: 在EXCEL中用VBA壓縮ACCESS資料庫三種方式

請問各位大大有人知道這三種方式的優缺點嗎?
小弟第一次要用不知道要採用哪一種比較好?
ACCESS資料庫一般約5~20MB
謝謝

有三种方法：

1.引用DAO3.6压缩

Private Sub Command1_Click()
On Error GoTo Err_Handle
    Dim dbE As New DAO.DBEngine
    dbE.CompactDatabase "C:\要压缩的.mdb", "B:\压缩后的.mdb"
    Exit Sub
Err_Handle:
    MsgBox Err.Description
    Exit Sub
End Sub

2.用jet引擎压缩数据库

工程-引入 Microsoft Jet and Replication Objects Library  

Private Sub Command1_Click()

Dim FIXDB As New JRO.JetEngine
FIXDB.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aa.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aac.mdb"
End Sub

’CompactDatabase 第一个参数是原始数据库，第二个是目标数据库

3.引用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:\要压缩的.mdb", "C:\压缩后的", False)

原文出處
http://club.excelhome.net/thread-359331-1-1.html

---

作者: ltc    時間: 2012-10-27 21:31

3.引用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:\要压缩的.mdb", "C:\压缩后的", False)

PS.使用前需安裝ACCESS

---

作者: ltc    時間: 2012-10-27 22:02

第一種及第二種方式無法處理 .accdb 檔

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)