VBA代碼調用Access數據庫系統壓縮和修復數據庫功能

2004-07-30 05:14:00
版主們-Office交流網
原創
2596

如何用VBA代碼調用Access系統壓縮和修復數據庫這一功能.
希望通過標簽的單擊事件調用系統菜單中的壓縮和修復數據庫這一功能.

上傳個文件:qPdhFMoU.rar

1.  ququ 最簡單的辦法  新增一個菜單欄,把這個命令拖到菜單內即可

2. kunlun   在Access窗體上創建 建一個標簽,在標簽的單擊事件中添加如下事件


Private Sub Text1_Click() 
    docmd.RunCommand acCmdCompactDatabase
    docmd.RunCommand acCmdRepairDatabase
end sub


3. Tmtony站長做的壓縮和修復數據庫函數 

Function Compact()  
 With CommandBars.Add(, msoBarFloating, , True)  
 Const CompactId As Long = 2071  
 .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id  
 DoEvents  
 .Visible = True  
 .Controls(1).SetFocus  
 SendKeys "{ENTER}" '模擬擊鍵壓縮  
 End With  
End Function  


4. 李嘯林 修改后的函數

    可以適合97與XP,我沒有安裝過ACCESS 2000,希望你們能給我補上。  


Dim ref As Reference  
Dim i As Byte  
Set ref = References!Access  
'我不用Application.Vertion是由于,這個屬性在Access 97中不存在。  
Select Case ref.Major  
Case 8: i = 6 'Access 97  
Case 9: i = 7 'Access XP  
Case Else  
MsgBox "未知版本,無法使用此功能"  
Exit Sub  
End Select  
With CommandBars.Add(, msoBarFloating, , True)  
  
 .Controls.Add msoControlButton, CommandBars("Tools").Controls(i).CommandBar.Controls(2).Id  
 DoEvents  
 .Visible = True  
 .Controls(1).SetFocus  
 SendKeys "{ENTER}" '模擬擊鍵壓縮  
 End With  


5. zhengjialon  把這個函數拷貝下窗體的模塊里,然后在標簽的單擊事件里寫:Compact


Function Compact()  
 With CommandBars.Add(, msoBarFloating, , True)  
 Const CompactId As Long = 2071    .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id  
 DoEvents  
 .Visible = True  
 .Controls(1).SetFocus  
 SendKeys "{ENTER}" '模擬擊鍵壓縮  
 End With  
End Function  


6. guoya ngw123:連接表壓縮方法建立一個函數,然后在程序中調用


Function zipDB() 
  
    If Right(CurrentProject.Path, 1) <> "\" Then '判斷當前路徑 
        Y = CurrentProject.Path & "\" 
    Else 
        Y = CurrentProject.Path 
  End If 
    x = Y & "data_be.mdb"     'data_be.mdb為后臺數據庫名稱 
          '取得路徑 
     If Dir(x) = "" Then 
     MsgBox "數據未找到" 
     Exit Function 
     ElseIf Dir(x) <> "" Then '確定文件存在 
       DBEngine.CompactDatabase x, Y & "temp.mdb", ";pwd=123", , ";pwd=123" '壓縮為暫存文件 
      ' 假設后臺數據庫密碼為"123"      Kill x '刪除原文件 
      FileCopy Y & "temp.mdb", x  '還原 
        Kill Y & "temp.mdb"   '刪除暫存文件 
     End If 
  MsgBox "完成修補及壓縮" 
End Function



ywg
謝謝huanghai問題解決了,總結一下和各位新手共同學習:

1、用zhengjialon版主提供的Tmtony站長和李嘯林的方法,并在VBE的窗口中菜單欄,工具/引用里請首選引用Microsoft Office X.0 Object Llbrary.這種方法應該適用于沒有拆分的數據庫(拆分后沒試過)。2、用guoya的方法適用于拆分過的數據庫。 



ngw123
如何壓縮修復連接表呢....這個無法通過鏈接表來壓縮,必須 壓縮實際的鏈接數據庫文件

ywg
kunlun你好:      按你所說的方法,系統提示出錯,不能壓縮打開的數據庫,我是希望在界面中屏避系統菜單,在用戶窗體中,做一個標簽,讓用戶通過單擊此標簽實現對本數據庫的壓縮與修復,(數據庫為打開狀態).請幫我想想辦法.謝謝!

zhengjialon
http://www.guizmj.live/thread-17457-1-1.html

ywg
版主沒搞明白?能否詳細說明,"VBA"小弟真是不太認識它



ywg
版主還是要麻煩你.系統提示錯誤運行時錯誤'-2147467259(80004005)':方法'ADD'作用于對象'commandBarControls'時失敗

ngw123
連接表如何壓縮呀..怎么沒人回答...是不是新建一個access實冽,再打開連接表,再壓縮..我去試試...


kunlun
這么復雜,有沒有簡單一點呀。我頭都大了,看不懂了

ywg
還有那位能再次拉我一把呀!

zhengjialon
回樓主:在VBE的窗口中菜單欄,工具/引用里請首選引用Microsoft Office X.0 Object Llbrary

huanghai
找到要操作菜單的位置,然后用代碼執行,具體如:CommandBars("menu bar").Controls("工具(&T)").Controls("數據庫實用工具(&D)").Controls("壓縮和修復數據庫(&C)...").Execute

ywg在 
huanghai按你所說的方法,系統提示出錯,不能壓縮打開的數據庫.


ywg
guoya你所提供的方法,我經試驗發現如果是在沒有用戶登陸及密碼的數據庫中可以正常使用,但如果是在有用戶登陸及密碼的數據庫中在壓縮后會出現錯誤提示運行時錯誤‘3031’密碼無效guoya及各位高手能否幫忙解決這個問題。

guoya
后臺數據是不應該有安全機制的呀

ywg
沒有用系統的安全機制,但有用VBA代碼的用戶登陸密碼,拆分后的后臺數據庫的密碼為123而前臺窗體打開時會出現密碼無效的錯誤,應如何解決呢?去掉代碼中的pwd=123", , ";pwd=123"可以嗎?DBEngine.CompactDatabase x, Y & "temp.mdb", ";pwd=123", , ";pwd=123" '壓縮為暫存文件
      ' 假設后臺數據庫密碼為"123"

(設置_安全_修復-相關文章技巧鏈接):
ACCESS數據庫RunCommand方法參數列表說明說明

分享
北京十一选五基本走势