1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Set conn = New ADODB.connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient 'connexion sur poste utilisateur
conn.ConnectionString = "DRIVER={Mysql ODBC 5.1 Driver};" _
& "SERVER=localhost;" _
& "Database=bddpeleve;" _
& " UID=root;" _
& "PWD=monpass;" _
conn.Open
rs.Open "select matricule,nomeleve from eleve ", conn, adOpenDynamic, adLockBatchOptimistic
Do While Not (rs.EOF)
' je sais pas trop quoi mettre pour remplir ma listbox/listview
rs.MoveNext
Loop
'
Set rs = Nothing
conn.Close
Set conn = Nothing |
Partager