MyTetra Share
Делитесь знаниями!
CompactDatabase
12.10.2019
20:37
Текстовые метки: VBA_Access, Compress
Раздел: !Закладки - VBA - Access - Compress

Option Explicit


Const DB_NAME As String = "gestione_energetica_DLR"


Dim JRO As New JRO.JetEngine


Dim sSourceFile As String


Dim sDestinationFile As String




Sub Main


Dim sErr As String

Dim lErr As Long


sSourceFile = GetDataLoggerRecipePath & DB_NAME & ".mdb"


sDestinationFile = GetDataLoggerRecipePath & DB_NAME & "2.mdb"



On Error Resume Next



Kill(sDestinationFile)



On Error GoTo 0



Debug.Print sSourceFile & " database before compacting = " & FileLen(sSourceFile) & "(byte)"






Err.Clear



On Error Resume Next



'Compatta database Programs.mdb



JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sSourceFile,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDestinationFile & ";Jet OLEDB:Engine Type=5"



lErr = Err.Number



sErr = Err.Description



On Error GoTo 0






If lErr <> 0 Then


Debug.Print "Command failed! Error Num = : " & lErr & " - Error Description = " & sErr


Exit Sub


End If



Kill(sSourceFile)


Name sDestinationFile As sSourceFile


Debug.Print sSourceFile & " database after compacting = " & FileLen(sSourceFile) & "(byte)"





End Sub

 
MyTetra Share v.0.52
Яндекс индекс цитирования