[vb6 mysql]connection mysql en vb6

salut,

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

Code:

---

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

---

Bonsoir,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim conn As ADODB.Connection Set conn = New ADODB.Connection Dim sql As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset   conn.CursorLocation = adUseClient conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER=127.0.0.1;" _ & "DATABASE=XXX;" _ & "UID=XXX;" _ & "PWD=XXX;" _   conn.Open   sql = "select * from matable" rs = conn.Execute(sql)   conn.Close Set conn = Nothing

---