Salut,
Voici ce que je fais pour répliquer ma base :
IF HDécritConnexion (NomConnexion,NomUtilisateur,MotDePasse,NomServeur,NomBDD,hAccèsHFClientServeur, hOLectureEcriture) THEN IF HOuvreConnexion(NomConnexion) THEN HCréeRéplicaMaître(CheminReplicaMaitre)
HChangeRep("*", RepertoireBaseLocal) IF HOuvreConnexion (NomConnexionBaseLocal,"","","","",hAccèsHF7) THEN InitBaseDeDonnees(NomConnexionBaseLocal) HCréeRéplicaAbonné (CheminReplicaMaitre,CheminReplicaMaitre+NomBDD,NomUtilisateur,0,... "ListeNumeroChantier"+RC+"ListeSocietes"+RC+"ListeTypeDocument"+RC+ "Images"+RC+"SocieteConsulte") ELSE Erreur(HErreurInfo()) END HOuvreConnexion(NomConnexion) HChangeConnexion("*",NomConnexion)
//Mise a jour de la base de données
HCréeRéplicaTransportable(CheminReplicaMaitre+"ReplicaMaitre.RPM",NomUtilisateur,"") CheminReplicaTransportable = CheminReplicaMaitre + RPL.Fichier
HChangeConnexion("*",NomConnexionBaseLocal) HChangeRep("*", RepertoireBaseLocal)
IF HSynchroniseRéplica(CheminReplicaTransportable,CheminReplicaMaitre+NomBDD+"\Replica_sandy.RPL",rplVersAbonné,rplPlusRecentPrioritaire) THEN Info("Mise à jour effectuée") ELSE Erreur("Erreur lors de la mise a jour") END
HOuvreConnexion(NomConnexion) HChangeConnexion("*",NomConnexion)
Est - ce correct ?
merci |