1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Set rs = New ADODB.Recordset
Set connex = New ADODB.Connection
rs_sql = "SELECT * FROM ma_table"
connex.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serv_db & DATABASE=" & datbase & ";USER=" & user_db & ";PASSWORD=" & pwd_user_db & ";OPTION=" & option_db & ""
rs.ActiveConnection = connex
rs.Open rs_sql, connex
DoEvents 'peut etre inutile mais sait on jamais ... un coup de lag ?
Msgbox rs.RecordCount
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until Not rs.EOF
MsgBox rs("ID")
rs.MoveNext
Loop
End If
rs.Close |
Partager