VB.NET数据库压缩实现方法介绍

数据库在程序代码编写中往往都是形影不离的。一个数据完善的数据库支撑着程序的运行。如果数据过于庞大的话，就需要对这些必要的不可删除数据进行压缩。那么下面我们就来对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数据库压缩的具体实现代码就为大家介绍到这里。