平武建站

VB.NET中怎么实现数据库压缩

VB.NET中怎么实现数据库压缩，针对这个问题，这篇文章详细介绍了相对应的分析和解答，希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、网站空间、营销软件、网站建设、肇源网站维护、网站推广。

当我们往数据库中添加数据，然后删除，如此反复，数据库就会变得很大，这样就需要对其进行压缩

下面的函数可以实现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中怎么实现数据库压缩问题的解答就分享到这里了，希望以上内容可以对大家有一定的帮助，如果你还有很多疑惑没有解开，可以关注创新互联行业资讯频道了解更多相关知识。


新闻名称：VB.NET中怎么实现数据库压缩
网站地址：http://pwwzsj.com/article/pcejde.html

其他资讯