201210120922access 2003 的壓縮方法與例子

access 2003 的壓縮方法與例子

因在access 的限制中 .mdb 的最大檔案是2G, 所以超過2G 就無法儲存,一般的資料厙的設計

應該要超過2G 是不多,也就夠用了,但是access 中刪除個中的資料所占的空間仍是不變的所以沒有辨法

需要使用壓縮的方式才可以讓空間增加,方可容納更多的資料筆數。

sample : 壓縮database .mdb...  設立另一個資料庫名為" 壓縮database .mdb",放置在同一目錄的位置

           


 在表單位置上建立一個壓縮執行按鍵,當執行時,它會將原來的資料庫名稱放在一暫時的名為temp.mdb

完成時放回原位置即巳壓縮空間,再將temp.mdb檔刪除,不佔硬碟的空間。

-------------------------------------------------------------------------------------

方法:  (程式碼)   進入屬性的事件中之 Click() 建立按鍵啟動程序     

Private Sub Command4_Click()
Dim DataPath As String
DataPath = CurrentProject.Path
Set m = CurrentProject.AllForms

'關閉目前作業中的表單
DoCmd.Close
'修護與壓縮位於d:\前甲玉皇宮問事管理系統子目錄中的後端資料庫前甲玉皇宮問事管理系統db1.mdb,並將結果另存為temp.mdb資料庫檔案。
DBEngine.CompactDatabase CurrentProject.Path & "\" & "前甲玉皇宮問事管理系統db1.mdb ", CurrentProject.Path & "\" & " temp.mdb"
'刪除位於database子目錄中的後端資料庫前甲玉皇宮問事管理系統db1.mdb
Kill CurrentProject.Path & "\" & "前甲玉皇宮問事管理系統db1.mdb "
'將D:\amigo\管理系統\前甲玉皇宮問事管理系統\temp.mdb資料庫複製到d:\前甲玉皇宮問事管理系統子目錄中,並更名為前甲玉皇宮問事管理系統db1.mdb。
FileCopy CurrentProject.Path & "\" & " temp.mdb", CurrentProject.Path & "\" & "前甲玉皇宮問事管理系統db1.mdb "
'刪除temp.mdb資料庫檔案
Kill CurrentProject.Path & "\" & " temp.mdb"
'完成後端資料庫修護與壓縮之後,提示完成對話方塊。
MsgBox "系統已完成『後端資料庫』的修復與壓縮"

End Sub

---------------------------------------------------------------------------------------------

"可參考上面的程式碼再修改即可使用,資料庫的名稱皆可改變。

回應

 

我是Amigo 是大家的朋友,我較熱衷台灣的宗教文化,希望有興趣的朋友可以一同研究與探討,我屬於道教文化,但不排斥其他宗教文化。 I am Amigo who is your friend, I 'm  interested in the  religious culture of Taiwan, I wish to  discuss with those are also interested in this topic.  I prefer to  (beliece) in  Taoism's culture, but I  don't  repel other religious .

關鍵字
    沒有新回應!