Discussion :

[Elwe]

Bonjour,

Je voudrai creer des tables liées dynamiquement par le code
C'est possible ? si oui comment ?

Merci d'avance

[fdraven]

Tu peux passer par le code vba. Voici un exemple :

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
16
17
18
19
20
Dim db As Database
Dim tabdef As TableDef
Dim Chemindb As String
 
Chemindb = "D:\Matable.mdb"
' Ouvre la base de données courante.
Set db = CurrentDb
 
Set tabdef = db.CreateTableDef("NomdeMatable")
 
tabdef.Connect = ";DATABASE=" & Chemindb
tabdef.SourceTableName = "Nomdelatableàlier"
 
db.TableDefs.Append tabdef
 
tabdef.RefreshLink
 
db.Close
Set db = Nothing
Set tabdef = Nothing

En espérant t'avoir aidé.

[Elwe]

Merci,

ça ne fonctionne pas avec les autre type de base, exemple MySQL ?
Ci-joint ma chaine de connection:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DRIVER={MySQL ODBC 3.51 Driver};SERVER=Tls-pc3012-2k;DATABASE=Basename;PORT=3306;UID=machin;PASSWORD=toto;OPTION=3;STMT=;

Merci encore

[fdraven]

Dans ta question, rien ne précisait que tu voulais faire des liaisons avec une base de données mysql. Comme on est sur le forum access, j'ai supposé que tu voulais lier 2 bases Access.


Tu peux peut-être passé par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tabdef.connect = "UID=" & NomUtilisateur &";PWD=" & MotDePasse & ";" & "DRIVER={MySQL ODBC 3.51 Driver}; Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"

[Elwe]

ça veut pas !
Je peux consulter ma base mysql mais impossible d'y attacher les tables...

Peut-on faire la connection avec un fichier dsn?

merci

[fdraven]

On peut faire la connexion avec un dsn.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tabdef.connect ="DSN=" & NomDuDSN & ";UID=" & NomUtilisateur & ";PWD=" & MotDePasse & ";"

En espérant t'avoir aidé.

[Elwe]

ça marche pas

J'ai ce message :
Erreur 3170 : Pilote ISAM introuvable !!!!!

[fdraven]

Tu as peut-être un problème de dll.

1- ouvre une fenetre avec du code vba
2- fais menu outils --> références
3- si tu vois un "manquant", il faut mettre à jour le fichier DLL et refais le lien sur celui-ci.

[Elwe]

PAs de DLL Manquant.

Je laisse tomber et m'en vais trouver autre chose.....

Merci encore