Création tables liées Access mais pas vers Access
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.
Code:
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 |
Edit : Si possible sans passer par un DSN (mais bon je prends tout ce qui est possible quand même)
