MassoumAbdelmonaim
Messages postés9Date d'inscriptionsamedi 13 mars 2010StatutMembreDernière intervention 7 avril 2010
-
6 avril 2010 à 12:55
MassoumAbdelmonaim
Messages postés9Date d'inscriptionsamedi 13 mars 2010StatutMembreDernière intervention 7 avril 2010
-
7 avril 2010 à 11:35
[b]Bonjour,
Quelle est la meilleure méthode (s'il en existe une) pour copier des données
provennant de 2 bases de données différentes dans une autres bases de
données.
BASE A table XX
BASE B table YY
Je veus faire cela de manière quotidienne et est ce qu'il est mieux de faire
un export de table XX de base A dans des base B
et finalement la base B il ya 2 tables YY et XX
c148270
Messages postés303Date d'inscriptionmercredi 12 janvier 2005StatutMembreDernière intervention 3 octobre 20131 7 avril 2010 à 08:25
Bonjour
Voici un exemple pour copier une table à l'identique
Function LIAISONUTILISATEUR()
On Error GoTo suite
Dim ConnectStr As String
Dim TableStr As String
Dim MaTableDef As TableDef
Dim ssql
' connexion à UTILISATEUR
TableStr = Nomutilisateur
ConnectStr= ";database=\\soleil\lsd_conso\connexion\utilisateurlsd.mdb"
CurrentDb.TableDefs.Delete TableStr
creat:
Set MaTableDef = CurrentDb.CreateTableDef(TableStr)
MaTableDef.Connect = ConnectStr
MaTableDef.SourceTableName = TableStr
CurrentDb.TableDefs.Append MaTableDef
ssql = "SELECT " & Nomutilisateur & ".* INTO abttbl_reportlist FROM " & Nomutilisateur & ";"
DoCmd.RunSQL ssql
Set MaTableDef = Nothing
Exit Function
suite:
If err.Number = 3011 Then
Interdit
MsgBox "Erreur connexion utilisateur"
Trouve = False
Exit Function
End If
If err.Number = 3265 Then GoTo creat 'la table à supprimer n'existe pas
End Function