[vb6] compattare file mdb

[tomhead]

compattare i database mdb via ADOBC?

[Toeke]

Public Function CompattaDB(ByVal PathDBName As String) As boolean
    
  Dim m_Jro                       As New JRO.JetEngine
  Dim m_Fso                       As Object
  Dim DB_Dest                     As String
    
CompattaDB=false
  On Error GoTo ERR_COMPATTADB
  Set m_Fso = CreateObject("Scripting.FileSystemObject")

    ' Database di appoggio
    DB_Dest = Mid(PathDBName, 1, Len(PathDBName) - 4) & "_new.mdb"
      
      ' Compatto il database specificando nuovo e vecchio db
    m_Jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathDBName, _
                          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Dest & " ;Jet OLEDB:Engine Type=5"
      
    m_Fso.DeleteFile PathDBName, True
    m_Fso.CopyFile DB_Dest, PathDBName, True
    m_Fso.DeleteFile DB_Dest, True
      
  End If
    
  CompattaDB=true
  Exit Function

ERR_COMPATTADB:
  CompattaDB=false

End Function 

[tomhead]

quale riferimento inserire per questo oggetto?
JRO.JetEngine

[tomhead]

trovato!

Microsoft Jet And Replication Objects 2.1 Library

grazie e ciao

[tomhead]

Originariamente inviato da Toeke
' Compatto il database specificando nuovo e vecchio db
m_Jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathDBName, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Dest & " ;Jet OLEDB:Engine Type=5"

è possibile indicare anche una password?
ho provato nel seguente modo ma restituisce password non corretta anche se è corretta!

m_Jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathDBName, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Dest & " ;Jet OLEDB:Database Password=prova;Jet OLEDB:Engine Type=5"

[tomhead]

[tomhead]

risolto nel seguente modo:

BD_Original = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathDBName & ";Jet OLEDB:" & "Database Password=" & pwd & ";"
Dest_DB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Dest & ";Jet OLEDB:" & "Database Password=" & pwd & ";"

m_Jro.CompactDatabase BD_Original, Dest_DB