sub Replicat()
'Le publisher et le distributor se trouve sur le meme serveur
' Crée une connection sur l'abonné
Dim conn As ServerConnection = New ServerConnection(subscriberName, "xx", "xxxxx")
' Connection à l'abonné
conn.Connect()
Dim AgentDeSynchro As MergeSynchronizationAgent
' Definit l'abonnement de fusion sur l'abonné.
subscription = New MergePullSubscription(subscriptionDbName, publisherName, publicationDbName, "Table2", conn)
If subscription.LoadProperties() Then
AgentDeSynchro = subscription.SynchronizationAgent
'''''''''''''''''''c'est ici que je voudrais creer l'evenement''''''''''''''''''''
AgentDeSynchro.Status = New AgentCore.StatusEventHandler(AddressOf StatusSync) ''Ligne en erreur
With AgentDeSynchro
.DistributorLogin = "xx"
.DistributorPassword = "xxx"
.PublisherLogin = "xx"
.PublisherPassword = "xxx"
.Synchronize()
End With
End If
conn.Disconnect()
end sub
'Fonction a appeler quand evenement
Sub StatusSync(ByVal sender As Object, ByVal e As StatusEventArgs)
MsgBox(e.MessageStatus)
End Sub
Partager