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 : 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
Edit : Si possible sans passer par un DSN (mais bon je prends tout ce qui est possible quand même)