Question

how to read data and send data from and too a MySQL server, with Mac Excel 2011 net.VB ?

thanks in advance !

Answer 1

Source: http://bit.ly/Qfqvwb

1. install the 3.5.1 odbc driver from mysql: http://dev.mysql.com/downloads/connector/odbc/3.51.html (easy click click)

2. setup an ODBC connection

   Private Sub btnTestReadInMysqlData_Click()
   
   Dim objDB, arrRecord, strRecord, strOutput
   Dim oRS, nRec, oFld
   Dim row
   
   'Database connection & select all from Table
   Set objDB = DBConnect()
   Set oRS = objDB.Execute("SELECT * FROM members")
   
   'Dump Records from Table
   nRec = 0
   row = 1
   Do While Not oRS.EOF
     For Each oFld In oRS.Fields
   
       'WScript.Echo oFld.Name & " = " & oFld.Value
   
       Worksheets("Tabelle1").Cells(row, 1).Value = oFld.Value
   
       'increment
       row = row + 1
   
     Next
     oRS.MoveNext
   Loop
   
   End Sub
   
   
   Function DBConnect()
   Set objDB = CreateObject("ADODB.Connection")
   objDB.Open "websitedata"
   Set DBConnect = objDB
   End Function