日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

創(chuàng)新互聯(lián)建站專(zhuān)注于越秀網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供越秀營(yíng)銷(xiāo)型網(wǎng)站建設(shè)，越秀網(wǎng)站制作、越秀網(wǎng)頁(yè)設(shè)計(jì)、越秀網(wǎng)站官網(wǎng)定制、小程序開(kāi)發(fā)服務(wù)，打造越秀網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供越秀網(wǎng)站排名全網(wǎng)營(yíng)銷(xiāo)落地服務(wù)。

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

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

1. ''' < summary> 
2. ''' 壓縮數(shù)據(jù)庫(kù)  
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ù)庫(kù)文件是否存在   
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  

好了，VB.NET數(shù)據(jù)庫(kù)壓縮的具體實(shí)現(xiàn)代碼就為大家介紹到這里。

分享標(biāo)題：VB.NET數(shù)據(jù)庫(kù)壓縮實(shí)現(xiàn)方法介紹
地址分享：http://m.5511xx.com/article/dhpioic.html