返回列表 上一主題 發帖

在EXCEL中用VBA壓縮ACCESS資料庫三種方式

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
2#
發表於 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

TOP

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
3#
發表於 2012-10-27 22:02 | 只看該作者
第一種及第二種方式無法處理 .accdb 檔

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題