Visual Basic - Sincronizar BD

Life is soft - evento anual de software empresarial
   
Vista:

Sincronizar BD

Publicado por Jordi (11 intervenciones) el 21/10/2008 12:44:08
Hola,
quiero hacer una aplicación que se utilizará en varios portátiles. Cada usuario añadirá datos independientemente y necesito que cuando se llegue a la sede central se sincronizen los datos de cada usuario con los datos de la base de datos central.
La base de datos será la misma en el servidor que en los portátiles.
En teoria se puede hacer utilizando ADO y el JRO (Microsoft Jet and Replication Objects).
Aquí pongo un ejemplo, pero cuando lo ejecuto me aparece el error:
"La operación no está permitida en este contexto"

Aquí está el código:

Dim repreplica As New JRO.replica
Dim rutalocal as String
Dim rutaserver as String

rutalocal = "c:pruebadatos.mdb"
rutaserver = "T:pruebadatos.mdb"

repreplica.ActiveConnection = rutaserver
repreplica.Synchronize rutalocal, jrSyncTypeImpExp, jrSyncModeDirect
repreplica.Synchronize
Set repreplica = Nothing

¿Alguien ha hecho una cosa parecida?

¿Me podeis enviar algún ejemplo?

¡Muchas gracias!

Jordi.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Inventario
- VB-Script
- Juego de los numeros

RE:Sincronizar BD

Publicado por Diego (1 intervención) el 18/02/2009 15:27:24
Yo he hecho esto y funciona en visual basic 6.0
Set Replica = New JRO.Replica
Set cnEscritorio = New ADODB.Connection
cnEscritorio.Mode = adModeReadWrite
cnEscritorio.Provider = "Microsoft.Jet.OLEDB.4.0"
cnEscritorio.ConnectionString = App.Path & "IATE.mdb"
cnEscritorio.Open
Replica.ActiveConnection = cnEscritorio
'cambiar ruta por la de la portatil
Portatil = "C:Documents and SettingsAdministradorEscritorioRIATE.mdb"

Replica.Synchronize Portatil, jrSyncTypeImpExp, jrSyncModeDirect
Set Replica = Nothing
cnEscritorio.Close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar