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

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

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡(jiǎn)單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：國(guó)際域名空間、網(wǎng)站空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、肇源網(wǎng)站維護(hù)、網(wǎng)站推廣。

當(dāng)我們往數(shù)據(jù)庫中添加數(shù)據(jù)，然后刪除，如此反復(fù)，數(shù)據(jù)庫就會(huì)變得很大，這樣就需要對(duì)其進(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("是否備份？", 
    "測(cè)試", 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)容可以對(duì)大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道了解更多相關(guān)知識(shí)。

新聞名稱：VB.NET中怎么實(shí)現(xiàn)數(shù)據(jù)庫壓縮
文章來源：http://bm7419.com/article14/pcejde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、動(dòng)態(tài)網(wǎng)站、品牌網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、網(wǎng)站設(shè)計(jì)公司、定制網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)