1、我的Access數據庫里面沒存多少數據，為什么體積很大，別人和我存一樣的數據為什么只有我的文件體積的1/10。

2、為什么我刪除了數據，但是數據庫體積沒有減小？

3、為什么我存了幾張圖片到ole字段里面數據庫體積就變大，而且變大的速度超過圖片的總體積？

4、為什么我的數據庫沒有幾條記錄，體積就20多MB

5、每次體積變大后都要手動壓縮？有沒有辦法自動壓縮？

回答：

1、2、你只要在Access里面菜單 工具->數據庫實用工具 -> 壓縮修復數據庫 就可以了

原因是：Access在刪除記錄或者進行其他需要臨時數據的操作后，并不物理刪除這些無用數據，只有壓縮修復數據庫的時候才真正刪除。就象windows中將文件放進回收站中無法增加可用空間必須清空回收站是一個道理。

如何操作請參考以下 FLASH 動畫：

手動壓縮修復數據庫。

3、手動將文件插入ole字段的文件，實際保存在數據庫中時ole引擎會在文件數據的前面增加一段信息，用于讓ole引擎處理你放進去的文件，所以體積會變大。

4、請查看一下，你的數據庫里面是否有包含ole字段的表，ole字段可以存儲體積非常大的文件，導致體積增長很正常。再看一下你的數據庫中窗體、報表中有沒有嵌入使用圖片做背景。Access中的背景圖片全部是以bmp圖片格式存放的，即使你原先指定的是jpg格式，Access也會自動將文件格式轉換為bmp再存放。

無論是背景還是控件，只要有圖片，體積就會不正常地增大。還有，如果你的程序設計成運行時會使用大量臨時數據，用完了再刪除的，也會造成體積暴增。

5、可以設置退出時自動壓縮，步驟如下：

菜單 -> 工具 -> 選項 -> 常規關閉時壓縮 -> 前面打上勾

以上為轉貼，以下為原創。

上面的是幾種數據庫變大后的解決方案。

我想說的是如何防止數據庫變的如此大。

站在程序員的角度來說，所以不一定對各位站長有用。

只是或許可以給各位Asp Access的程序作者一點小小的建議而已。。

采用多個數據庫，而不是一個數據庫。

可以大概指定一定范圍，例如從0到1W使用1號數據庫。

1W到2W使用2號數據庫。

如何使用？。。

con和rs定義多個。。

con1是一號數據庫的，con2是二號數據庫的。。

rs1是一號數據庫的，rs2是二號數據庫的。。

添加：

當數據達到XW條時使用新的conX和rsX。。

修改：

查詢要修改的ID號。。去指定是數據庫執行操作。

刪除：

同修改。

用這個有一個不是很好解決的地方。比如我要查詢用戶排行，查詢積分最大的10個用戶。

由于用的多個數據庫，而且用的多個rs。。

找到了兩種方法，各位依照喜好使用。

第一種：

Private Function UnionRs(rsA As Recordset, rsB As Recordset) As Recordset

Dim rs As New Recordset, i%

For i = 0 To rsA.Fields.Count - 1

'設置記錄集標題列

rs.Fields.Append rsA.Fields(i).Name, rsA.Fields(i).Type, adFldMayBeNull adFldIsNullable adFldUpdatable

Next

'添加rsA到rs

If Not rsA.EOF Then

rsA.MoveFirst

If rs.State = adStateClosed Then rs.Open

While Not rsA.EOF

rs.AddNew

For i = 0 To rs.Fields.Count - 1

rs(i) = rsA(i)

Next

rsA.MoveNext

Wend

rs.UpdateBatch

End If

'添加rsB到rs

If Not rsB.EOF Then

rsB.MoveFirst

If rs.State = adStateClosed Then rs.Open

While Not rsB.EOF

rs.AddNew

For i = 0 To rs.Fields.Count - 1

rs(i) = rsB(i)

Next

rsB.MoveNext

Wend

rs.UpdateBatch

End If

'返回合成后的新的記錄集

Set UnionRs = rs

End Function

'調用合并函數

Private Sub Command1_Click()

Dim rs As Recordset

Set rs = UnionRs(rsA, rsB) '合并rsA和rsB

Set DataGrid1.DataSource = rs

End Sub

1、我的Access數據庫里面沒存多少數據，為什么體積很大，別人和我存一樣的數據為什么只有我的文件體積的1/10。

2、為什么我刪除了數據，但是數據庫體積沒有減小？

3、為什么我存了幾張圖片到ole字段里面數據庫體積就變大，而且變大的速度超過圖片的總體積？

4、為什么我的數據庫沒有幾條記錄，體積就20多MB

5、每次體積變大后都要手動壓縮？有沒有辦法自動壓縮？

回答：

1、2、你只要在Access里面菜單 工具->數據庫實用工具 -> 壓縮修復數據庫 就可以了

原因是：Access在刪除記錄或者進行其他需要臨時數據的操作后，并不物理刪除這些無用數據，只有壓縮修復數據庫的時候才真正刪除。就象windows中將文件放進回收站中無法增加可用空間必須清空回收站是一個道理。

如何操作請參考以下 FLASH 動畫：

手動壓縮修復數據庫。

3、手動將文件插入ole字段的文件，實際保存在數據庫中時ole引擎會在文件數據的前面增加一段信息，用于讓ole引擎處理你放進去的文件，所以體積會變大。

4、請查看一下，你的數據庫里面是否有包含ole字段的表，ole字段可以存儲體積非常大的文件，導致體積增長很正常。再看一下你的數據庫中窗體、報表中有沒有嵌入使用圖片做背景。Access中的背景圖片全部是以bmp圖片格式存放的，即使你原先指定的是jpg格式，Access也會自動將文件格式轉換為bmp再存放。

無論是背景還是控件，只要有圖片，體積就會不正常地增大。還有，如果你的程序設計成運行時會使用大量臨時數據，用完了再刪除的，也會造成體積暴增。

5、可以設置退出時自動壓縮，步驟如下：

菜單 -> 工具 -> 選項 -> 常規關閉時壓縮 -> 前面打上勾

以上為轉貼，以下為原創。

上面的是幾種數據庫變大后的解決方案。

我想說的是如何防止數據庫變的如此大。

站在程序員的角度來說，所以不一定對各位站長有用。

只是或許可以給各位Asp Access的程序作者一點小小的建議而已。。

采用多個數據庫，而不是一個數據庫。

可以大概指定一定范圍，例如從0到1W使用1號數據庫。

1W到2W使用2號數據庫。

如何使用？。。

con和rs定義多個。。

con1是一號數據庫的，con2是二號數據庫的。。

rs1是一號數據庫的，rs2是二號數據庫的。。

添加：

當數據達到XW條時使用新的conX和rsX。。

修改：

查詢要修改的ID號。。去指定是數據庫執行操作。

刪除：

同修改。

用這個有一個不是很好解決的地方。比如我要查詢用戶排行，查詢積分最大的10個用戶。

由于用的多個數據庫，而且用的多個rs。。

找到了兩種方法，各位依照喜好使用。

第一種：

Private Function UnionRs(rsA As Recordset, rsB As Recordset) As Recordset

Dim rs As New Recordset, i%

For i = 0 To rsA.Fields.Count - 1

'設置記錄集標題列

rs.Fields.Append rsA.Fields(i).Name, rsA.Fields(i).Type, adFldMayBeNull adFldIsNullable adFldUpdatable

Next

'添加rsA到rs

If Not rsA.EOF Then

rsA.MoveFirst

If rs.State = adStateClosed Then rs.Open

While Not rsA.EOF

rs.AddNew

For i = 0 To rs.Fields.Count - 1

rs(i) = rsA(i)

Next

rsA.MoveNext

Wend

rs.UpdateBatch

End If

'添加rsB到rs

If Not rsB.EOF Then

rsB.MoveFirst

If rs.State = adStateClosed Then rs.Open

While Not rsB.EOF

rs.AddNew

For i = 0 To rs.Fields.Count - 1

rs(i) = rsB(i)

Next

rsB.MoveNext

Wend

rs.UpdateBatch

End If

'返回合成后的新的記錄集

Set UnionRs = rs

End Function

'調用合并函數

Private Sub Command1_Click()

Dim rs As Recordset

Set rs = UnionRs(rsA, rsB) '合并rsA和rsB

Set DataGrid1.DataSource = rs

End Sub

下載本文示例代碼

Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法Access數據庫體積過大問題的解決方法

閱讀(485) | 評論(0) | 轉發(0) |

總結

以上是生活随笔為你收集整理的服务器自动压缩access数据库代码,Access数据库体积过大问题的解决方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。