Synchroniser des données de plusieurs tables access entres-elles

Question

Bonjour,

Je cherche a synchroniser des donn&#233;es de plusieurs tables access entres-elles
Les tables sont identiques : La table source se trouve dans un repertoire et la table destination dans un autre
Je cherche une routine qui lit tous les champs d'un table et qui les copies automatiquement dans l'autre. Je voudrais que cela soit automatique et que je n'ai pas besoin d'indiqu&#233; le nom des champs (car sinon, quand la table va evoluer je vais devoir revoir ces routines d'export). L'autre petit probleme c'est que cette routine ne doit pas exporter tous les enregistrements, mais seulement ceux repondant &#224; un critere (par exemple Code=5)

acecel · Answer

Dim xField as Field
Dim xRecordsetSource as recordset
Dim xRecordsetCible as recordset
Set xRecordset MaBaseSource.OpenRecordset("Select * from MaTable Where Code 5",dbOpenDynaset)
Set xRecordsetCible = MaBaseCible.OpenRecordset("Select * from MaTable",dbOpenDynaset)

While Not xRecordsetSource.EOF
      xRecordsetCible.AddNew
      For Each xField In MaBaseSource.Fields
            xRecordsetCible(xField.Name) = xField.Value
      Next xField
      xRecordsetCible.Update
      xRecordsetSource.MoveNext
Wend

acecel · Answer

Remplace ca : 
For Each xField In MaBaseSource.Fields
       xRecordsetCible(xField.Name) =  xField.Value
Next xField

Par :

For Each xField In  xRecorsetSource .Fields
      xRecordsetCible(xField.Name)  = xField.Value
Next xField

cs_CanisLupus · Answer

Salut, 2 ex, l'un en DAO, l'autre en ADO.
Je n'aime pas trop les on error resume next, il faudrait un traitement d'erreur un peu plus d&#233;velopp&#233;. L&#224; j'ai suppos&#233; que la table cible n'existait pas et &#231;a peut suffire mais il peut y en avoir d'autres, je te laisse le soin de g&#233;rer &#231;a. 

Private Sub CommandDAO_Click()
Dim dbSource As Database
Dim dbCible As Database


  ' Destruction de la TableCible si elle existe
  Set dbCible = opendatabase("c:	emp\bdCible.mdb")
  On Error Resume Next
  dbCible.Execute "DROP TABLE TableCible"
  On Error GoTo 0
  dbCible.Close
  Set dbCible = Nothing
  
  ' Cr&#233;ation de la TableCible
  Set dbSource = opendatabase("c:	emp\bdSource.mdb")
  dbSource.Execute "SELECT * INTO TableCible IN 'c:	emp\bdCible.mdb' FROM TableSource WHERE Code = 5"
  dbSource.Close
  Set dbSource = Nothing
  
End Sub


Private Sub Command_ADO_Click()
Dim dbSource As New ADODB.Connection
Dim dbCible As New ADODB.Connection


  ' Destruction de la TableCible si elle existe
  dbCible.Open "Provider=" & "Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:	emp\bdCible.mdb;"
  On Error Resume Next
  dbCible.Execute "DROP TABLE TableCible"
  On Error GoTo 0
  dbCible.Close
  Set dbCible = Nothing
  
  ' Cr&#233;ation de la TableCible
  dbSource.Open "Provider=" & "Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:	emp\bdSource.mdb;"
  dbSource.Execute "SELECT * INTO TableCible IN 'c:	emp\bdCible.mdb' FROM TableSource WHERE Code = 5"
  dbSource.Close
  Set dbSource = Nothing


End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Synchroniser des données de plusieurs tables access entres-elles

3 réponses

Discussions similaires