Results 1 to 2 of 2
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts
    I use this routine to compact mdb but when (with pf8 to debug) the code got in: Set JRO = New JRO.JetEngine... mistery !!!!! start the setup of my BytDefender Antivirus!!!!!!!!!!????



    Sub COMPACT()

    Dim JRO As JRO.JetEngine
    Dim strSource As String
    Dim strDest As String

    On Error GoTo errore

    Set JRO = New JRO.JetEngine

    If Len(Dir$("C:\APPLICAZIONI\DB_PAST_DUE.ldb")) > 0 Then
    GoTo FINE
    Else
    strSource = "C:\APPLICAZIONI\DB_PAST_DUE.mdb"
    strDest = "C:\APPLICAZIONI\DB_PAST_DUE_BK.mdb"

    JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\APPLICAZIONI\DB_PAST_DUE.mdb", _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\APPLICAZIONI\DB_PAST_DUE_BK.mdb;Jet OLEDB:Engine Type=5"

    Kill strSource
    Name strDest As strSource

    FINE:

    Set JRO = Nothing

    End If

    Exit Sub

    errore:
    MsgBox "Errore Numero: " & CStr(Err.Number) & vbCrLf & _
    "Descrizione: " & Err.Description & vbCrLf & _
    "Sorgente dell'Errore: " & Err.Source

    Err.Clear

    End Sub

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts
    It looks like there is something wrong with your installation of BitDefender. Try uninstalling and reinstalling it.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •