mysql auslesen mit Excel
Roco
möchte mit Excel eine Online mySQL Datenbank auslesen.
Habe den MySQL ODBC 3.51 Driver installiert.
Unter Systemsteuerung -> Verwaltung -> ODBC
habe ich schon eine System-DNS mit den Namen TSC erstellt
und es wird auch eine Verbindung aufgebaut.
Allerdings funktioniert folgendes Skript nicht.
Wie bekomme ich denn nun eine direkte Verbindung oder eine
DNS Verbindung um die Daten ins Excel zu bekommen.
Danke für die Hilfe.
Roco
Sub Datenbank()
Dim Conn, RS
Set Conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Conn.Provider = "MSDASQL"
Conn.Mode = adModeRead
Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=tsc;SERVER=217.***.***.***;UID=***;PWD=***"
Conn.CursorLocation = adUseClient
RS.CursorLocation = adUseClient
RS.Open "Select * from tsc_news", Conn, adOpenForwardOnly, adLockReadOnly
While Not oRS.EOF
Tabelle1.Cells(zeile, 1) = oRS.Fields("title").Value
zeile = zeile + 1
oRS.MoveNext
Wend
End Sub
Anzeige