dotNetHell.it - Forum - Codice Sorgente

Username: Password:

Login
Registrati ora!
Recupera Password

        Dim jro As JRO.JetEngine
        jro = New JRO.JetEngine

        jro.CompactDatabase("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Compatta db\AZIENDALE 2012.mdb;Jet OLEDB:Engine Type=5", _
        "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Compatta db\AZIENDALE 2012 compact.mdb;Jet OLEDB:Engine Type=5")