Discussion :

[bailamos]

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

[hugoclo]

Bonsoir,

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 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