Kann mir einer sagen ob man aus einer MySQL-Datenbank in Excel importieren kann ? Wenn ja was brauche ich dazu ?
Danke scon mal im Voraus & Grüße
Stefan
Sub Importieren()
Dim conn As New Connection
Dim rec As New Recordset
Dim sql As String
Dim Ws As Worksheet
Dim Mldg
On Error GoTo Fehlerbehandlung
Set Ws = ThisWorkbook.Worksheets("Dummydaten")
conn.Open _
"Provider=MSDASQL;Driver=MySQL;Server=localhost;UID=root;PWD=database=""Dummybank"""
sql = "SELECT * FROM Dummies;"
rec.Open sql, conn
Fehlerbehandlung:
If Err.Number <> 0 Then
Mldg = "Fehler # " & Str(Err.Number) & " wurde ausgelöst von " _
& Err.Source & Chr(13) & Err.Description
MsgBox Mldg, , " Fehler", Err.HelpFile, Err.HelpContext
End If
End Sub