VB.NET中怎么實(shí)現(xiàn)數(shù)據(jù)庫壓縮

VB.NET中怎么實(shí)現(xiàn)數(shù)據(jù)庫壓縮，針對這個(gè)問題，這篇文章詳細(xì)介紹了相對應(yīng)的分析和解答，希望可以幫助更多想解決這個(gè)問題的小伙伴找到更簡單易行的方法。

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

下面的函數(shù)可以實(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  

關(guān)于VB.NET中怎么實(shí)現(xiàn)數(shù)據(jù)庫壓縮問題的解答就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關(guān)注億速云行業(yè)資訊頻道了解更多相關(guān)知識(shí)。