Microsoft Excel

Herbers Excel/VBA-Archiv

Excel VBA MySQL-Datenbank anzeigen

Betrifft: Excel VBA MySQL-Datenbank anzeigen von: Detlef
Geschrieben am: 17.11.2012 13:11:49

Hallo,

ich bin am verzweifeln und brauche dringend Hilfe.

Warum bekomme ich immer einen Laufzeitfehler:
'-2147467259 (80004005)' [mysql][odbc 3.51 driver] access denied for user

Private Sub mysql_show()
    
 Dim Cn As New ADODB.Connection
   
 Dim Server As String
 Dim database As String
 Dim Username As String
 Dim password As String
 Dim tableDN As String
 Dim sql As String
 
    Server = "localhost"
    database = "usr_webxxx-y"
    Username = "webxxx"
    password = "*******"

    
    
    With Cn
    'Meistens Cursor auf Client außer für SEHR große Arbeiten
        .CursorLocation = adUseClient

    ' Sperrungen (hier keine bei Multiuser)
        .Mode = adModeShareDenyNone

    ' DB-Provider
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" & _
        "Server=" & CStr(Server) & ";UID=" & CStr(Username) & _
        ";PWD=" & CStr(password) & ";database=" & CStr(database) & _
        ";Option=3"
        .Open
    End With
End Sub

  

Betrifft: AW: Excel VBA MySQL-Datenbank anzeigen von: ChrisL
Geschrieben am: 19.11.2012 15:16:09

Hi Detlef

Ich würde den String mal ganz genau wie im Link empfohlen aufbauen. Ob es einen Unterschied macht, kann ich allerdings nicht sagen.
http://connectionstrings.com/mysql#p30

Ansonsten mal prüfen, ob das Passwort etc. stimmt.

cu
Chris


 

Beiträge aus den Excel-Beispielen zum Thema "Excel VBA MySQL-Datenbank anzeigen"