compact and repair database بانک access در محیط vb.net

[abolfazlnabavi]

سلام

قابلیت compact and repair database در برنامه access وجود دارد که باعث می شود حجم بانک که در اثر تراکنش های انجام شده بالا رفته کاهش یابد.

چگونه می توان این قابلیت را در محیط vb.net با کد نویسی بکار برد.

تشکر

[zahedi121]

سلام

Public Function CompactAccess2007(ByVal sDatabase As String) As Boolean
On Error GoTo EndLine
Dim blnRet As Boolean
Dim ObAccess As Object
Dim StrTmp As String
Dim StrSrc As String
blnRet = False
ObAccess = CreateObject("DAO.DBEngine.120")
StrSrc = sDatabase
StrTmp = sDatabase & "x"
Call SetAttr(StrSrc, vbNormal)
Call ObAccess.CompactDatabase(StrSrc, StrTmp, , , ";pwd=1")
Call Kill(StrSrc)
Rename(StrTmp, StrSrc)
ObAccess = Nothing
blnRet = True
EndLine:
CompactAccess2007 = blnRet
If Err.Number Then Call MsgBox(Err.Description, vbExclamation)
End Function
موفق باشید