Seb_cba
Messages postés11Date d'inscriptionlundi 14 février 2005StatutMembreDernière intervention16 juillet 2008
-
16 juil. 2008 à 20:29
Seb_cba
Messages postés11Date d'inscriptionlundi 14 février 2005StatutMembreDernière intervention16 juillet 2008
-
16 juil. 2008 à 20:32
Je voudrais gerer un evenement status de la class MergeSynchronizationAgent.
Je me suis insprire d'un code ecrit en C.
La synchronisation marche correctement mais je n'arrive pas à savoir son etat.
L'evenement Status intervient lorsque l'on execute la methode "Synchronize".
Ensuite,je voudrais appeler la fonction "StatusSync".
Le message d'erreur quand j'essaye de lier mon evenement me dit d'utiliser la methode "RaiseEvent" et là,je suis perdu.
Si quelqu'un peut m'aider.....
Merci d'avance
Voici mon bout de code:
Private
Sub Button2_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button2.Click
'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,
"x",
"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()
ThenAgentDeSynchro = subscription.SynchronizationAgent
'''''''''''''''Ici se trouve mon erreur'''''''''''''
AgentDeSynchro.Status =
New AgentCore.StatusEventHandler(
AddressOf StatusSync)
With AgentDeSynchro.DistributorLogin "xx".DistributorPassword "xxxxxx".PublisherLogin "xx".PublisherPassword
"xxxxx".Synchronize()
End
With
End
Ifconn.Disconnect()
End
Sub
'fonction recevant l'evenement
Sub StatusSync(
ByVal sender
As
Object,
ByVal e
As StatusEventArgs)
MsgBox(e.MessageStatus)
End
Sub'Mon Message d'erreur:
Erreur 2 'Public Event Status(sender As Object, e As Microsoft.SqlServer.Replication.StatusEventArgs)' est un événement. Il ne peut donc pas être appelé directement. Utilisez une instruction 'RaiseEvent' pour déclencher un événement. G:\MesDocuments\Visual Studio 2005\Projects\EssaiReplication\EssaiReplication\Form1.vb 94 13 EssaiReplication