Probleme mit Dim AS
12.06.2014 12:33:21
Alain
habe wieder mal eine Frage.
Ich habe folgenden Code für eine MySQL Datenbankabfrage.
Sub Datenbankabfrage4()
Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection
Dim oRS As Recordset
Set oRS = New ADODB.Recordset
Dim X As String
X = Range("J1").Value
Dim Y As String
Y = Range("J2").Value
oConn.Open "Provider=MSDASQL;Driver={MySQL ODBC 5.2 UNICODE Driver};Server=172.17.11.26; _
User=X;Password=Y;"
oRS.Open "SELECT * FROM test.tasks", oConn
ThisWorkbook.Worksheets("Tabelle1").Range("A8").CurrentRegion.Clear
ThisWorkbook.Worksheets("Tabelle1").Range("A8").CopyFromRecordset oRS
End Sub
Ich möchte also in der Zeile oConn.Open für User und Password die entsprechenden Werte von X und Y eingefügt haben. Es wird mir aber eine Fehlermeldung angezeigt, dass für den User X keine Zugriffsrechte vorhanden sind.
Was muss ich also ändern, damit für X und Y die Inhalte aus den zugeordneten Zellen eingesetzt werden?
Gruß Alain