- En el IDE de Visual Basic, en el menú proyecto , haga clic en referencias .
- Agregar Microsoft Jet y biblioteca Replication Objects X.X , donde (X.X es mayor o igual a la 2.1).
- Agregue las siguientes líneas de código para Visual Basic, reemplazar las rutas de base de datos de origen y destino de datos si es necesario:
Código:
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb;Jet OLEDB:Database Password=test", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4;Jet OLEDB:Database Password=test"
El tipo de OLEDB:Engine Jet = 4 es sólo para los archivos MDB de Jet 3.x formato. Si este valor se deja, la base de datos se actualiza automáticamente a la versión 4.0 (Jet OLEDB:Engine tipo = 5). Consulte la tabla siguiente para los valores adecuados para Jet OLEDB:Engine tipo:
Contraer esta tablaAmpliar esta tabla
Tipo de OLEDB:Engine JetX.x archivos MDB con formato de Jet1JET102JET113JET2X4JET3X5JET4X