attacher une table Access à une base Access

Comment attacher une table ACCESS à une base de données ACCESS ?

La méthode à utiliser consiste à rajouter la table que l'on désire
rattacher, à la collection TableDefs de la base de données. Les
propriétés de l'objet TableDef à initialiser sont Connect,
SourceTableName et Name.
Connect doit contenir le type de base de données auquel appartient la
table (à laisser à blanc dans le cas d'une base Access), suivi du nom de
la base de données. SourceTableName doit être initialisé avec le nom réel
de la table à attacher. Et Name peut être initialisé avec n'importe quel
nom; celui-ci désignera la table dans la base de données où elle va être
attachée.


EXEMPLE :

Global Const DB_ATTACHEDTABLE = &H40000000

Sub Command1_Click ()

Dim db As database
Dim td As New tabledef

' Ouverture de la base de données ACCESS où on veut attacher une table
Set db = OpenDatabase("e:\vb3\test2.mdb")

' Pour une base ACCESS, il ne faut pas remplir le premier argument de la
' propriété Connect.
' En effet,si aucun type de base de données n'est spécifié, c'est le type
' de base natif qui est utilisé : base ACCESS
td.Connect = ";database=e:\vb3\biblio.mdb"

' nom de la table à attacher dans sa base d'origine
td.SourceTableName = "authors"

' nom qui servira à désigner la table attachée dans la base réception
td.Name = "AC_authors"

' indique que la table est une table attachée provenant d'une base non '
ODBC.
td.Attributes = DB_ATTACHEDTABLE

'ajoute la table attachée à la collection de tables de la base
db.TableDefs.Append td

' Affiche le nom du premier champ de la table attachée
MsgBox db.TableDefs("AC_authors").Fields(0).Name
db.Close

End Sub