XL 2019 Combobox et mysql

[Michel91380]

Bonjour à tous, j'ai pu après quelques mois installé ma database sur un dsm de synology et j'interviens sur cette base mysql grâce a des userforms et maintenant pour des raisons pratiques j'aimerai me servir de combobox pour alimenter ma base.
En regardant sur le net j'ai vu qu'en utilisant ADO en vba je pourrais arriver à mes fins quelqu'un aurait une piste pour m'orienter dans cette voie merci d'avance.

 

[chris]

Bonjour

Si tu as un pack Office avec Access, il est beaucoup plus simple de gérer cela par Access

J'ai fait cela à une époque pour gérer une base mysql sur serveur local...

A noter qu'une combobox est en général un objet de userform donc la question n'est pas claire...

 

[Michel91380]

Toutes mes tables sont dans mon modèle de données dans power pivot et je voulais savoir comment utiliser ces données dans un combobox qui est il est vrai sur un userform.

 

[chris]

RE

Le modèle PowerPivot n'est restituable que sous forme de TCD et par fonctions cubes
On doit pouvoir créer en VBA un array à partir de fonctions cube...


Quelle est la source de ce modèle ? La base MySQL ?

 

[Michel91380]

La base MySQL est gérée par phpmyadmin

 

[chris]

RE

phpmyadmin n'est qu'un moyen parmi d'autres de modifier la base

Access est beaucoup plus visuel et simple que de combiner du VBA Excel avec du PowerPivot

 

[Michel91380]

La solution serait de se connecter à la base mysql en vba avec une commande ADO et de récupérer les données à inclure dans mon combo.Je ne suis pas chaud de tout transferer sur access maintenant que j'ai passé des mois à tout ordonner sur mysql.

 

[chris]

RE

Tu ne comprends pas.

Access ne ferait que se connecter à la base MySQL, pas la remplacer

 

[Michel91380]

Si j'ai bien compris, mais je me sert d'excel sur mon service et je n'ai pas access sur tous les PC

 

[dysorthographie]

Bonjour,
j'imagine que tu as un UserForm avec une ComboBox dans la quelle tue veux afficher le résultat d'une requête via Ado et MySql!

c'est bien cela?
si c'est le cas il fau faire une connexion AdoDb sur ta base MySql et retourner le résulta de ta requête dans la propriété Column de ta combobox!

Const PassWord = "XXXX", Server = "localhost", User = "root", DataBase = "toto", Port = 3306
Const Connexion = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=" & Server & ";Port=" & Port & ";Database=" & DataBase & ";User=" & User & ";Password=" & PassWord & ";"
Private Sub UserForm_Initialize()
With CreateObject("ADODB.connection")
    .Open Connexion
    Me.ComboBox1.Column = .Execute("select [Champ] from [MyTable]").getrows
    .Close
End With
End Sub

 

[Michel91380]

Parfait, tout à fait ce que je voulait. j'ai fini par croire que je n'avait pas bien expliqué ma demande, je teste tout ça et je reviens vers vous.
Merci beaucoup

 

[Michel91380]

Trop impatient d'attendre, donc j'ai essayé sur mon tableur et ça fonctionne.Je vous remercie encore pour le temps consacré à mon problème.Bonne soirée.