VB.NET數(shù)據(jù)庫(kù)壓縮實(shí)現(xiàn)方法介紹
作者：佚名
VB.NET數(shù)據(jù)庫(kù)壓縮的方法可以通過(guò)本文介紹的這樣一段代碼來(lái)實(shí)現(xiàn)。對(duì)于初學(xué)者來(lái)說(shuō)，我們可以以此為參考做一個(gè)實(shí)際編寫(xiě)操作。
數(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#
當(dāng)我們往數(shù)據(jù)庫(kù)中添加數(shù)據(jù)，然后刪除，如此反復(fù)，數(shù)據(jù)庫(kù)就會(huì)變得很大，這樣就需要對(duì)其進(jìn)行壓縮
下面的函數(shù)可以實(shí)現(xiàn)VB.NET數(shù)據(jù)庫(kù)壓縮
- ''' < summary>
- ''' 壓縮數(shù)據(jù)庫(kù)
- ''' < /summary>
- ''' < remarks>< /remarks>
- Private Sub CompactDatabase
(ByVal pFilePath As String) - Dim pFileName As String
- pFileName = GetFileName(pFilePath)
- '檢查數(shù)據(jù)庫(kù)文件是否存在
- If Len(Dir(pFilePath)) Then
- ' 如果需要備份就執(zhí)行備份
- If MessageBox.Show("是否備份？",
"測(cè)試", MessageBoxButtons.YesNo,
MessageBoxIcon.Question) =
Windows.Forms.DialogResult.Yes Then - wsManageGlobalParam.g_ManageFile
Control.SaveFileDialogFile.Title =
"選擇保存目錄" - wsManageGlobalParam.g_ManageFile
Control.SaveFileDialogFile.FileName
= pFileName - Dim pFilter As String =
GetFileExtName(pFileName) - wsManageGlobalParam.g_ManageFile
Control.SaveFileDialogFile.Filter =
"文件(*." & pFilter & ")|*." & pFilter - wsManageGlobalParam.g_ManageFileControl.
SaveFileDialogFile.ShowDialog() - Dim r As DialogResult = wsManage
GlobalParam.g_ManageFileControl.
SaveFileDialogFile.ShowDialog() - If r = Windows.Forms.DialogResult.
Cancel Then - Exit 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數(shù)據(jù)庫(kù)壓縮的具體實(shí)現(xiàn)代碼就為大家介紹到這里。
責(zé)任編輯：曹凱
來(lái)源：
博客園
