AW: Import aus MySQL nach Excel
22.08.2006 15:52:03
Peter
Hallo Stefan,
ich habe das beigefügte Makro, wobei mir da eine Fehlermeldung geliefert wird.
Du musst dir ein Tabellenblatt mit Namen 'Dummydaten' anlegen.
Vielleicht kannst du den Fehler analysieren und die fehlenden Datenquellennamen bzw. Standardtreiber ausfindig machen.
Option Explicit
''==============================================================================================
''Bibliothek ADO (Microsoft ActiveX Data Objects 2.8 Library)
''Wobei 2.8 die Versionsnummer ist, die variieren kann!
''==============================================================================================
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
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.