Resumen Replicar bases de datos Access

Mensaje enviado por "Pedro Delgado" <pdelgado@mx2.redestb.es>

Primero hay que preparar la base para que sea replicable.

Sub CreaReplica()
     Set BdMiBase = OpenDatabase(App.Path & "\MiBase.mdb", True)
' MiBase es la base que
' quieres replicar
    Set REPPROP = BdMiBase.CreateProperty()
    REPPROP.Name = "replicable"
    REPPROP.Type = dbText
    REPPROP.Value = "T"
    BdMiBase.Properties.Append REPPROP
    BdMiBase.MakeReplica "c:\Temporal.mdb", 0
' Temporal.mdb es el nombre que le quieras dar
' a la base replicada y que te creará.
    BdMiBase.Close
End Sub

Y para que te sincronice la una con la otra:

Sub sincroniza()
    BdMiBase.Synchronize "c:\Temporal.mdb"
' Sincroniza con MiBase.mdb. Yo la tengo en C:\
End sub

También se puede hacer una réplica parcial.
Un consejo: antes de crear la réplica, hazte una copia de la base. En según que condiciones, no podrás modificar la misma.
Prueba y dime como te ha ido. (A mi me funciona de maravilla).

Pedro



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com