Copier une table d'1 bd à une autre bd en vb
Résolu/Fermé
abdelhard
Messages postés
16
Date d'inscription
mardi 23 février 2010
Statut
Membre
Dernière intervention
24 mars 2012
-
23 févr. 2010 à 14:17
dareeef Messages postés 4 Date d'inscription lundi 1 octobre 2007 Statut Membre Dernière intervention 22 septembre 2013 - 22 sept. 2013 à 17:03
dareeef Messages postés 4 Date d'inscription lundi 1 octobre 2007 Statut Membre Dernière intervention 22 septembre 2013 - 22 sept. 2013 à 17:03
A voir également:
- Copier une table d'1 bd à une autre bd en vb
- Table ascii - Guide
- Table des matières word - Guide
- Copier une vidéo youtube - Guide
- Scan bd ✓ - Forum Loisirs / Divertissements
- Télécharger bd pdf gratuit sans inscription ✓ - Forum Téléchargement
4 réponses
Private Sub()
Dim bddAccess As Application
Set bddAccess = CreateObject("Access.Application")
bddAccess.OpenCurrentDatabase "C:\Bases\bd1.mdb"
bddAccess.DoCmd.CopyObject "C:\Bases\bd2.mdb", "Table_Destination", acTable, "Table_Source"
End Sub
PS: Il faut ajouter Microsoft Access 1x.0 Object Library dans tes références.
Dim bddAccess As Application
Set bddAccess = CreateObject("Access.Application")
bddAccess.OpenCurrentDatabase "C:\Bases\bd1.mdb"
bddAccess.DoCmd.CopyObject "C:\Bases\bd2.mdb", "Table_Destination", acTable, "Table_Source"
End Sub
PS: Il faut ajouter Microsoft Access 1x.0 Object Library dans tes références.
dareeef
Messages postés
4
Date d'inscription
lundi 1 octobre 2007
Statut
Membre
Dernière intervention
22 septembre 2013
22 sept. 2013 à 17:03
22 sept. 2013 à 17:03
merci
abdelhard
Messages postés
16
Date d'inscription
mardi 23 février 2010
Statut
Membre
Dernière intervention
24 mars 2012
23 févr. 2010 à 17:49
23 févr. 2010 à 17:49
il me donne un erreur tupe incompatible lorsque il arrive a cette ligne
Set bddAccess = CreateObject("Access.Application")
jai ajouter le reference 12.0 object library
Set bddAccess = CreateObject("Access.Application")
jai ajouter le reference 12.0 object library
