salut,

j'utilise ce code pour une base acces comment faire pour se connecter a une base mysql
merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Data1.DatabaseName = "base1"
Data1.RecordSource = "SELECT DISTINCT a FROM t"
Data1.Refresh
 
Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields(0).Value
Data1.Recordset.MoveNext
Loop