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数据库压缩的具体实现代码就为大家介绍到这里。

当前题目:VB.NET数据库压缩实现方法介绍
转载注明:http://www.csdahua.cn/qtweb/news42/29392.html

网站建设、网络推广公司-快上网,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 快上网