壓縮access資料庫vba

⑴ 怎樣減少ACCESS資料庫大小

我的下面一些經驗可以為你的問題提供答案。
常規辦法：
1）刪除不必要的數據和無用的ACCESS資料庫對象例如表、查詢、窗體和模塊等；
2）壓縮資料庫
ACCESS2003壓縮舉例：打開資料庫，點擊菜單（工具）——資料庫實用工具——壓縮和修復資料庫

非常規辦法：
ACCESS資料庫經過一段時間添加、更改和刪除資料庫對象後會產生很多代碼及資料庫對象碎片和垃圾，對於這些東西常規辦法是無法清除的。這也是為什麼你的ACCESS數據刪除很多數據後，大小不變的原因所在。

怎麼辦呢？可以這樣做：先建立一個同名空白資料庫，放在另一個文件夾下，接著打開該空白資料庫，導入原資料庫全部有用的對象（包括：表、窗體、查詢、模塊、頁、宏，無用的不要導入）

ACCESS2003導入對象舉例：文件——獲取外部數據——導入 ，打開「導入」對話框選擇需要縮小的資料庫後，點擊導入按鈕，打開「導入對象」對話框 選擇全部有用的資料庫對象，例如表、窗體等等後點擊「確定」按鈕 完成導入全部資料庫對象。
經過上述過程後，所有的資料庫垃圾都會被清除掉。再對其進行一次壓縮操作，ACCESS資料庫將會處在理論上最小狀態。

⑵ 壓縮access資料庫的原理

1.首先你要了解資料庫變大的原因：隨著您不斷添加、更新數據以及更改資料庫設計，資料庫文件會變得越來越大。導致增大的因素不僅包括新數據，還包括其他一些方面：
(1)Access 會創建臨時的隱藏對象來完成各種任務。有時，Access 在不再需要這些臨時對象後仍將它們保留在資料庫中。
(2)刪除資料庫對象時，系統不會自動回收該對象所佔用的磁碟空間。也就是說，盡管該對象已被刪除，資料庫文件仍然使用該磁碟空間。

隨著資料庫文件不斷被遺留的臨時對象和已刪除對象所填充，其性能也會逐漸降低。其症狀包括：對象可能打開得更慢，查詢可能比正常情況下運行的時間更長，各種典型操作通常似乎也需要使用更長時間。

2.所以，壓縮資料庫並不是壓縮數據，而是通過清除未使用的空間來縮小資料庫文件。
3.壓縮資料庫可以防止資料庫變大而引起的執行性能變慢，防止因此造成的資料庫損壞。

⑶ vb怎麼調用access資料庫的壓縮功能

java">
'
這些代碼可放在模塊中，在其他窗體也使用"kernel32"Alias_
"GetTempPathA"(ByValnBufferLengthAsLong,ByVallpBufferAsString)AsLong


PublicConstMAX_PATH=260


Public
Sub
CompactJetDatabase(Location
As
String,
Optional
BackupOriginal
As
Boolean
=True)


OnErrorGoToCompactErr


DimstrBackupFileAsString


DimstrTempFileAsString


'
檢查資料庫文件是否存在IfLen(Dir(Location))Then


'
如果需要備份就執行備份IfBackupOriginal=TrueThen


strBackupFile=GetTemporaryPath&"backup.mdb"


IfLen(Dir(strBackupFile))ThenKillstrBackupFile


FileCopyLocation,strBackupFile


EndIf'
創建臨時文件名strTempFile=GetTemporaryPath&"temp.mdb"


IfLen(Dir(strTempFile))ThenKillstrTempFile'
通過
DBEngine
壓縮資料庫文件DBEngine.CompactDatabaseLocation,strTempFile'
刪除原來的資料庫文件KillLocation'
拷貝剛剛壓縮過臨時資料庫文件至原來位置FileCopystrTempFile,Location

⑷ 怎樣壓縮和修復Access文件

Access軟體本身就具備壓縮和修復功能，如圖：

方法一：單擊 壓縮和修復資料庫 按鈕即可；

⑸ 能不能在EXCEL中用VBA語句執行"壓縮並修復access資料庫

在Access數據文件中設置關閉Access時自動壓縮。然後用VBA打開access資料庫，再關閉。
用語句不穩定。可能會出現引用或位數不兼容原因報錯。

⑹ access資料庫如何壓縮和修復

單擊 access 左上角 office按鈕；

單擊 「管理」選項；

出現的 第一項就是「壓縮和修復資料庫」。

⑺ 如何在access中壓縮當前資料庫

如果想壓縮資料庫，可以在左上角Office圖標--->管理---->壓縮和修復資料庫。
如圖所示，會在右下角顯示正在壓縮，按Esc鍵停止壓縮。

⑻ 怎樣用vb把資料庫（Access)壓縮和修復

以前使用
DAO
時，Microsoft
有提供
CompactDatabase
Method
來壓縮
Microsoft
Access
文件，RepairDatabase
Method
來修復損壞的
Microsoft
Access
文件，。可是自從
ADO
出來之後，好像忘了提供相對的壓縮及修復
Microsoft
Access
文件的功能。
現在
Microsoft
發現了這個問題了，也提供了解決方法，不過有版本上的限制！限制說明如下：
ActiveX
Data
Objects
(ADO),
version
2.1
Microsoft
OLE
DB
Provider
for
Jet,
version
4.0
這是
Microsoft
提出的
ADO
的延伸功能：Microsoft
Jet
OLE
DB
Provider
and
Replication
Objects
(JRO)
這個功能在
JET
OLE
DB
Provider
version
4.0
(Msjetoledb40.dll)
及
JRO
version
2.1
(Msjro.dll)
中第一次被提出！
這些必要的
DLL
文件在您安裝了
MDAC
2.1
之後就有了，您可以在以下的網頁中下載
MDAC
的最新版本！
Universal
Data
Access
Web
Site
在下載之前先到
VB6
中檢查一下，【控制項】【設定引用項目】中的
Microsoft
Jet
and
Replication
Objects
X.X
library
如果已經是
2.1
以上的版本，您就可以不用下載了！
1、新建一個新表單，選擇功能表中的【控制項】【設定引用項目】。
2、加入
Microsoft
Jet
and
Replication
Objects
X.X
library，其中
(
X.X
大於或等於
2.1
)。
3、在適當的地方加入以下的程序代碼，記得要修改
data
source
的內容及目地文件的路徑：
Dim
jro
As
jro.JetEngine
Set
jro
=
New
jro.JetEngine
jro.CompactDatabase
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\
wind2.mdb",
_
'來源文件
在
DAO
3.60
之後，RepairDatabase
Method
已經無法使用了，以上的程序代碼顯示了
ADO
CompactDatabase
Method
的用法，而它也取代了
DAO
3.5
時的
RepairDatabase
method！

⑼ 如何在access2007 打開時壓縮資料庫,用VBA。

有必要嗎？不是在自定義選項那裡就有一個選項，可以在關閉時自動進行壓縮的嗎？在OFFICE安右鍵——選擇自定義按鈕——然後選當前資料庫，那裡有一個關閉時壓縮選項！經常ACCESS的壓縮和備份是非常有必要的。。因為當數據量大的時候很容易出錯，經常壓縮就不會~~~謝謝~

⑽ 怎樣用vb把資料庫（Access)壓縮和修復

以前使用 DAO 時，Microsoft 有提供 CompactDatabase Method 來壓縮 Microsoft Access 文件，RepairDatabase Method 來修復損壞的 Microsoft Access 文件，。可是自從 ADO 出來之後，好像忘了提供相對的壓縮及修復 Microsoft Access 文件的功能。
現在 Microsoft 發現了這個問題了，也提供了解決方法，不過有版本上的限制！限制說明如下：
ActiveX Data Objects (ADO), version 2.1
Microsoft OLE DB Provider for Jet, version 4.0
這是 Microsoft 提出的 ADO 的延伸功能：Microsoft Jet OLE DB Provider and Replication Objects (JRO)
這個功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version 2.1 (Msjro.dll) 中第一次被提出！
這些必要的 DLL 文件在您安裝了 MDAC 2.1 之後就有了，您可以在以下的網頁中下載 MDAC 的最新版本！
Universal Data Access Web Site
在下載之前先到 VB6 中檢查一下，【控制項】【設定引用項目】中的 Microsoft Jet and Replication Objects X.X library 如果已經是 2.1 以上的版本，您就可以不用下載了！
1、新建一個新表單，選擇功能表中的【控制項】【設定引用項目】。
2、加入 Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大於或等於 2.1 )。
3、在適當的地方加入以下的程序代碼，記得要修改 data source 的內容及目地文件的路徑：
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\
wind2.mdb", _ '來源文件
在 DAO 3.60 之後，RepairDatabase Method 已經無法使用了，以上的程序代碼顯示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 時的 RepairDatabase method！