VB.NET中怎么实现数据库压缩
VB.NET中怎么实现数据库压缩,针对这个问题,这篇文章详细介绍了相对应的分析和解答,希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:国际域名空间、网站空间、营销软件、网站建设、肇源网站维护、网站推广。
当我们往数据库中添加数据,然后删除,如此反复,数据库就会变得很大,这样就需要对其进行压缩
下面的函数可以实现VB.NET数据库压缩
''' < summary>
''' 压缩数据库
''' < /summary>
''' < remarks>< /remarks>
Private Sub CompactDatabase
(ByVal pFilePath As String)Dim pFileName As String
pFileName = GetFileName(pFilePath)
'检查数据库文件是否存在
If Len(Dir(pFilePath)) Then
' 如果需要备份就执行备份
If MessageBox.Show("是否备份?",
"测试", MessageBoxButtons.YesNo,
MessageBoxIcon.Question) =
Windows.Forms.DialogResult.Yes ThenwsManageGlobalParam.g_ManageFile
Control.SaveFileDialogFile.Title =
"选择保存目录"wsManageGlobalParam.g_ManageFile
Control.SaveFileDialogFile.FileName
= pFileNameDim pFilter As String =
GetFileExtName(pFileName)wsManageGlobalParam.g_ManageFile
Control.SaveFileDialogFile.Filter =
"文件(*." & pFilter & ")|*." & pFilterwsManageGlobalParam.g_ManageFileControl.
SaveFileDialogFile.ShowDialog()Dim r As DialogResult = wsManage
GlobalParam.g_ManageFileControl.
SaveFileDialogFile.ShowDialog()If r = Windows.Forms.DialogResult.
Cancel ThenExit Sub
End If
FileCopy(pFilePath, wsManageGlobalParam.
g_ManageFileControl.SaveFileDialog
File.FileName)End If
wsDataSet.SetNothing()
Dim jro As JRO.JetEngine
Dim pTempPath As String = GetTempPath()
jro = New JRO.JetEngine()
jro.CompactDatabase(wsManageGlobalParam.
g_Connection & pFilePath, wsManage
GlobalParam.g_Connection & pTempPath
& "\" & pFileName)Kill(pFilePath)
FileCopy(pTempPath & "\" & pFileName,
pFilePath)Kill(pTempPath & "\" & pFileName)
End If
关于VB.NET中怎么实现数据库压缩问题的解答就分享到这里了,希望以上内容可以对大家有一定的帮助,如果你还有很多疑惑没有解开,可以关注创新互联行业资讯频道了解更多相关知识。
新闻名称:VB.NET中怎么实现数据库压缩
标题路径:http://myzitong.com/article/pcejde.html