Ver Mensaje Individual
  #15 (permalink)  
Antiguo 02/03/2011, 08:55
Avatar de Pablus00
Pablus00
 
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 11 meses
Puntos: 11
Compactar BD Access desde Excel con ADO

  1. En el IDE de Visual Basic, en el menú proyecto , haga clic en referencias .
  2. Agregar Microsoft Jet y biblioteca Replication Objects X.X , donde (X.X es mayor o igual a la 2.1).
  3. 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"

Nota: 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



__________________
-- Nunca te des por vencido, aún vencido -- Web