Bonjour,
Alors voilà mon problème, j'ai cherché sur le net comment créer des tables liées dans Access et j'ai trouvé plusieurs endroits ou ils expliquent comment faire (comme ici http://vb.developpez.com/bidou/adox/?page=table par exemple).
Seulement, partout c'est toujours pareil, le code est pour créer une table liée dans access vers une autres base access !! Seulement moi je veux créer une table liée dans access vers une base mysql...
Est-ce que quelqu'un sais si c'est possible ? Et si oui, qu'est-ce qu'il faut modifier dans le code suivant pour pouvoir faire en sorte que la nouvelle table soit liée à une table dans mysql ?
Merci d'avance.
Edit : Si possible sans passer par un DSN (mais bon je prends tout ce qui est possible quand même)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub CreateAttachedJetTable() Dim Catalogue As ADOX.Catalog, MaTable As ADOX.Table Set Catalogue = New ADOX.Catalog Catalogue.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\ADOX\baseheb.mdb;Jet OLEDB:System database=" & "D:\ADOX\system.mdw;User Id=Admin; Password=" Set MaTable = New ADOX.Table MaTable.Name = "auteurs" Set MaTable.ParentCatalog = Catalogue MaTable.Properties("Jet OLEDB:Create Link") = True MaTable.Properties("Jet OLEDB:Link Datasource") = "D:\adox\Biblio.mdb" MaTable.Properties("Jet OLEDB:Link Provider String") = ";Pwd=password" MaTable.Properties("Jet OLEDB:Remote Table Name") = "auteurs" Catalogue.Tables.Append MaTable Set Catalogue = Nothing End Sub
Partager