Discussion :

[Sylverx]

Bonjour
Je cherche a créer automatiquement une source de donnée ODBC a partir d'une macro d'un outil sur excel. Car sinon je dois faire du post a post pour configurer les source de donnée à la main. J'ai cherché un code pour le faire mais il ne semble pas correct. Pourrirez vous m'aider sur ce problème?

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub RegDB()
Dim strDSN As String, strAttr As String, strODBCDrv As String
 
strDSN = "MySQL_testdb"
strODBCDrv = "MySQL ODBC 3.51 Driver"
strAttr = "SERVER=NomDuServeur" & vbCr & "DATABASE=testdb" & vbCr & "OPTION=3" & vbCr & "UID=NomUtilisateur"
 
DBEngine.RegisterDatabase strDSN, strODBCDrv, True, strAttr
 
End Sub

[ValPhi]

Je pense qu'il est indispensable d’ajouter les références suivantes : Microsoft DAO 3.6 Object Library et Microsoft ActiveX Data Objects 2. Il faut procéder de la façon suivante : dans l’éditeur Visual Basic, se rendre dans le menu Outils->Références… puis cocher les références.