[Doublon] Mise a jour table access via autre table d une autre base

Fermé
abdo78 Messages postés 66 Date d'inscription mercredi 6 février 2008 Statut Membre Dernière intervention 27 novembre 2015 - 5 mai 2012 à 10:37
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 5 mai 2012 à 15:08
bonjour
j ai 2 bases de données access, compta et compta1 je voudrais faire la mise a jour du champ C2 de la table cpc de la base compta par les données du champ C1 de la table cpc1 de la base compta1

voila mon code :

Set dbasesté = DBEngine.Workspaces(0).OpenDatabase(chemin du premier base)
Set Rec1 = dbasesté.OpenRecordset("parst")
Set DBasestéEP = DBEngine.Workspaces(0).OpenDatabase(Rec1!exprecedent)
Set rec3 = dbasesté.OpenRecordset("select * from cpc order by code ")
Set Rec2 DBasestéEP.OpenRecordset("select code,c1,c2,zc1 from cpc1 where '" & rec3!code & "' cpc1.code and '" & rec3!ZC1 & "' = cpc1.zc1")

If rec3.RecordCount > 0 Then rec3.MoveFirst
While Not rec3.EOF
rec3.Edit

3 réponses

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
5 mai 2012 à 14:35
Bonjour,

DAO est actuellement fortement déprécié, on lui préfère ADO.
"dbasesté", il est d'usage d'éviter les caractères spéciaux et non standards dans les noms de variable.

Si tes 2 bases sont dans des fichiers différente, il faudra que tu fasse le tout "à la main".

En faisant une requête SQL dans la deuxième base pour mettre à jour chaque enregistrement conformément à ce que tu désire de la première base.
Tu auras donc autant de requête SQL que de ligne à mettre à jour.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
0
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 6
5 mai 2012 à 14:54
Bonjour NHenry,

la même question est ouverte par le même auteur sur un autre topic.
Il vaut mieux n' en conserver qu' un.



[] Ce qui va sans dire. va mieux en le disant.
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
5 mai 2012 à 15:08
Bonjour,

Merci Libre_max, je ferme celui-ci.
Pour la suite allez sur :
http://www.vbfrance.com/forum/sujet-MISE-JOUR-TABLE-ACCESS-VIA-AUTRE-TABLE-AUTRE_1589452.aspx

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
0
Rejoignez-nous