Discussion :

[shub]

Bonjour,
je vais vous demander si ceci est réalisable.
Pour mon stage, je dois developez une toute bête base de donnée Access que je mettrais sur le serveur de l'entreprise. Mais on maitre de stage souhaite aussi avoir la base sur son ordinateur(vu qu'il est souvent en deplacement). Le but recherché serait de "synchroniser" les 2 bases, autrement dit d'ajouter les données ajoutées dans l'une et dans l'autre séparément, et ceci à chaque fois que mon maitre de stage se connecte au réseau. Je voulais juste savoir si cela était possible sachant que je suis obligé d'utiliser Access.
Merci à ceux qui me répondront

[marot_r]

Oui, c'est possible va voir Replication dans outils.

Ca marche bien dans le cas de base simple et peux utilisées mais c'est une source de problèmes divers et variés et une garantie de frustration dans la vie réel.

Attention une fois que tu as fais un réplicat de ta base, il est assez difficile d'inversé le processus. Ne fais le réplicat que quand ta base est défnitive ou presque.

A+

[Heureux-oli]

Pour éviter les problèmes de réplication, je choisis une des deux bases comme étant la principale, et à l'aide de requêtes, je mets les enregistrement à jour.
J'utilise ce principe pour des DB qui sont sur des serveurs avec des utilisateurs appartenant à des arbres différents et où la connexion des utilisateurs et difficile voire pas possible d'un arbre à l'autre.

(Arbre dans la Forêt d'active Directory en Win 2003)

[shub]

Excusez moi j'ai pas exactement compris coment cela fonctionnait.
Je ne comprend pas grand chose sur la documentation qui est fourni avec access. Est-ce que je dois créer la base principale( celle qui se trouve sur le serveur) en tant que réplica maitre et la base sur le portable en autre réplica?
Est ce que l'action de synchronisation peut s'effectuer automatiquement à chaque ouverture d'une des 2 bases?
Merci encore

[shub]

Je vies de lire un tuto interessant sur le sujet
J'ai donc compris que la base "de base(si je puis me permettre) est le réplica maitre, puis on fait des copies de cette base que l'on installe sur chacun des postes ou on veut travailler dessus.
Lorsqu'une personne travaille sur son réplica la synchronisation se fait elle automatiquement?
Si non, est ce qu'il est possible de faire une synchronisation (qui a ce que j'ai vu est manuelle) de facon automatique à chaque ouverture de base.
Merci

[EE]

je synchronise via ADO c'est plus facile
peut etre peux tu mettre la fonction de synchro des tables dans un load..

[shub]

et comment fait tu pour synchronier avec ADO?
je pensais le faire effectivement sur le load

[EE]

je t'envoie mon script brut ... j'ai pas le temps de modifier
c'est pour te donner une idée... je l'ai également dan sl'autre sens ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 'Transfert de tampon station vers receive----------------------------------------------------------------------------------------------------------------------------------------------
Dim interval As String
Dim table1 As ADODB.Recordset
Dim table As ADODB.Recordset
 Dim cx As ADODB.Connection
 Dim cx1 As ADODB.Connection
Set cx = New ADODB.Connection
cx.Open "provider=microsoft.jet.oledb.4.0;data source=" & Me!lien & "pointeur_v1.mdb ; User Id=Admin; Password="
 
Set table = New ADODB.Recordset
table.CursorLocation = adUseClient
table.ActiveConnection = cx
table.Open "select * from tampon_pointstation ", , adOpenStatic, adLockBatchOptimistic, adCmdText
 
 If Not table.EOF Then
 'premier enregistrement
 
    table.MoveFirst
 
 
 
  Do Until table.EOF
  Set cx1 = CurrentProject.Connection
  Set table1 = New ADODB.Recordset
 
'MsgBox table!time_pointstat & Chr(10) & timeplus & " " & timemoins
 table1.Open "select * from receive where  (matricule_h=" & Right(table!cbarre_pointstat, 5) & " and date_h=#" & Left(table!time_pointstat, 10) & "# and h_h='" & table!h_pointstat & "');", cx1, adOpenDynamic, adCmdTable
 
 
 If Not table1.EOF Then
      Else
   'ajout à la table receive
           table1.AddNew
         table1.Fields("date_h") = Left(table!time_pointstat, 10)
         table1.Fields("matricule_h") = Right(table!cbarre_pointstat, 5)
         table1.Fields("point_h") = table!time_pointstat
         table1.Fields("equipe_h") = Right(table!equipe_pointstat, 2)
         table1.Fields("h_h") = table!h_pointstat
 
    table1.update
          End If
'passer a l'enregistrement de pointageh1 suivant
 table.MoveNext
'retour de la boucle
Loop
'si boucle finie fermer la table
table.Close
table1.Close
Set table = Nothing
Set table1 = Nothing
End If
 
 
MsgBox "Récuperation des données du pointeur "

[shub]

je suis désloé de te prendre de ton temps mais pourrait tu expliquer coment marche ton code?
j'ai pour l'instant bien compris que tu déclare tes 2 bases et que tu parcourt les enregistrements de tes table. j'ai bien compris la première requete mais pas la deuxième. Est ce que tu changes seulement les choses qui ont été modifié depuis la dernière connexion entre les 2 bases?

et si c'est possible pourrait tu mettre les structure de tes bases MERCI BEAUCOUP!

[EE]

j'appelle la table tampon_pointstation de la base distante, je viérifie que la valeur existe pas dans la table local receive, si la valeur existe pas je la crée...

[shub]

En fait c'est plutot ce code que je ne comprend pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
table1.Open "select * from receive where  (matricule_h=" & Right(table!cbarre_pointstat, 5) & " and date_h=#" & Left(table!time_pointstat, 10) & "# and h_h='" & table!h_pointstat & "');", cx1, adOpenDynamic, adCmdTable
 
 
 If Not table1.EOF Then
      Else
   'ajout à la table receive
           table1.AddNew
         table1.Fields("date_h") = Left(table!time_pointstat, 10)
         table1.Fields("matricule_h") = Right(table!cbarre_pointstat, 5)
         table1.Fields("point_h") = table!time_pointstat
         table1.Fields("equipe_h") = Right(table!equipe_pointstat, 2)
         table1.Fields("h_h") = table!h_pointstat

[EE]

je vérifie que dans la table local receive il n'existe pas le meme d'enrigrement pour un matricule_h et une heure et un edate dans la table distante

[shub]

Je me suis decidé a metre les choses sur papier.
pour l'instant je me suis fait un raisonnement en disant que la base sur le portable ajoute les valeurs présente sur le serveur et non sur la sienne, à la base du portable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
BD2 sur serveur
BD1 sur portable
 
BD1 se connecte
On selectionne l'enemble des informations de BD2
On se place sur le premier enregistrement
Jusqu'a ce qu'on arrive à la fin des enregistrements(BD2):
	On selectionne l'ensemble des informations de BD1
	On se place sur le premier enregistrement
	Jusqu'à ce qu'on arrive à la fin des enregistrement(BD1):
		On compare les champs de BD1 et BD2
		Si ils sont identiques
			on passe à suite enregistrement(BD1)
		Sinon
			Si clé primaire identique mais reste different
				on alerte l'utilisateur
				et on passe à enregistrement suivant BD2
			Sinon
				Si different
					on passe à suite enregistrement (BD1)
	Alors on ajoute l'enregistrement de BD2 à BD1
Synchronisation terminée

Dites moi si vous trouvez une faille

[EE]

excuse pour le retard , j'ai survolé je crois que c'est ca
je pense qu'on peut utiliser les union