Advertisement
Advertisement
| 07.23.2008 at 04:01AM PDT, ID: 23587987 | Points: 500 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: |
The code is taken straight from MS samples thus:
Sub InternetSync(strLocalReplicaPath As String, _
strServerReplicaURL As String)
Dim repLocalReplica As New JRO.Replica
repLocalReplica.ActiveConnection = strLocalReplicaPath
' Synchronize the local replica with the replica on
' the Internet server.
repLocalReplica.Synchronize strServerReplicaURL, jrSyncTypeImpExp, _
jrSyncModeInternet
Set repLocalReplica = Nothing
'InternetSync "c:\Data\OrderEntry.mdb", "www.mycompany.myserver.com/files/Orders.mdb"
End Sub
AND IS INVOKED BY
InternetSync "C:\Documents and Settings\Henry\My Documents\My Web Sites\BPTrial\BPdb\Localdb.mdb", https://securesite/BPdb/remotedb.mdb
|