Exportation de données d'Excel 2003 vers MySQL

    Dim oConn As ADODB.Connection
    Private Sub ConnectDB()
    	Set oConn = New ADODB.Connection
    	oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
    		"SERVER=localhost;" & _
    		"DATABASE=yourdatabase;" & _
    		"USER=yourdbusername;" & _
    		"PASSWORD=yourdbpassword;" & _
    		"Option=3"
    End Sub



    Dim rs As ADODB.Recordset
    Private Sub InsertData()
    	Set rs = New ADODB.Recordset
    	ConnectDB
    	With wsBooks
    		For rowCursor = 2 To 11
    			strSQL = "INSERT INTO tutorial (author, title, price) " & _
    				"VALUES ('" & esc(.Cells(rowCursor, 1)) & "', " & _
    				"'" & esc(.Cells(rowCursor, 2)) & "', " & _
    				esc(.Cells(rowCursor, 3)) & ")"
    			rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
    		Next
    	End With
    End Sub