數據庫在程序代碼編寫中往往都是形影不離的。一個數據完善的數據庫支撐著程序的運行。如果數據過于龐大的話，就需要對這些必要的不可刪除數據進行壓縮。那么下面我們就來對VB.NET數據庫壓縮方法進行一個詳細解讀。#t#

當我們往數據庫中添加數據，然后刪除，如此反復，數據庫就會變得很大，這樣就需要對其進行壓縮

下面的函數可以實現VB.NET數據庫壓縮

1. ''' < summary> 
2. ''' 壓縮數據庫  
3. ''' < /summary> 
4. ''' < remarks>< /remarks> 
5. Private Sub CompactDatabase
   (ByVal pFilePath As String)  
6. Dim pFileName As String  
7. pFileName = GetFileName(pFilePath)  
8. '檢查數據庫文件是否存在   
9. If Len(Dir(pFilePath)) Then  
10. ' 如果需要備份就執行備份   
11. If MessageBox.Show("是否備份？", 
    "測試", MessageBoxButtons.YesNo,
     MessageBoxIcon.Question) = 
    Windows.Forms.DialogResult.Yes Then  
12. wsManageGlobalParam.g_ManageFile
    Control.SaveFileDialogFile.Title = 
    "選擇保存目錄" 
13. wsManageGlobalParam.g_ManageFile
    Control.SaveFileDialogFile.FileName 
    = pFileName 
14. Dim pFilter As String = 
    GetFileExtName(pFileName)  
15. wsManageGlobalParam.g_ManageFile
    Control.SaveFileDialogFile.Filter = 
    "文件(*." & pFilter & ")|*." & pFilter  
16. wsManageGlobalParam.g_ManageFileControl.
    SaveFileDialogFile.ShowDialog()  
17. Dim r As DialogResult = wsManage
    GlobalParam.g_ManageFileControl.
    SaveFileDialogFile.ShowDialog()  
18. If r = Windows.Forms.DialogResult.
    Cancel Then  
19. Exit Sub  
20. End If  
21. FileCopy(pFilePath, wsManageGlobalParam.
    g_ManageFileControl.SaveFileDialog
    File.FileName)  
22. End If  
23. wsDataSet.SetNothing()  
24. Dim jro As JRO.JetEngine  
25. Dim pTempPath As String = GetTempPath()  
26. jro = New JRO.JetEngine()  
27. jro.CompactDatabase(wsManageGlobalParam.
    g_Connection & pFilePath, wsManage
    GlobalParam.g_Connection & pTempPath 
    & "\" & pFileName)  
28. Kill(pFilePath)  
29. FileCopy(pTempPath & "\" & pFileName, 
    pFilePath)  
30. Kill(pTempPath & "\" & pFileName)  
31. End If  

好了，VB.NET數據庫壓縮的具體實現代碼就為大家介紹到這里。