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

當(dāng)我們往數(shù)據(jù)庫中添加數(shù)據(jù)，然后刪除，如此反復(fù)，數(shù)據(jù)庫就會變得很大，這樣就需要對其進(jìn)行壓縮

下面的函數(shù)可以實現(xiàn)VB.NET數(shù)據(jù)庫壓縮

1. ''' < summary> 
2. ''' 壓縮數(shù)據(jù)庫  
3. ''' < /summary> 
4. ''' < remarks>< /remarks> 
5. Private Sub CompactDatabase
   (ByVal pFilePath As String)  
6. Dim pFileName As String  
7. pFileName = GetFileName(pFilePath)  
8. '檢查數(shù)據(jù)庫文件是否存在   
9. If Len(Dir(pFilePath)) Then  
10. ' 如果需要備份就執(zhí)行備份   
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數(shù)據(jù)庫壓縮的具體實現(xiàn)代碼就為大家介紹到這里。