thorsten1304
Benutzer
- Beiträge
- 10
Hallo zusammen,
Ich habe bereits mehrere unserer mySQL Datenbanken via VBA in meiner Excel eingebunden. Ich versuche nun eine weitere anzusprechen. Über phpMyAdmin funktioniert das folgende SQL Statement einwandfrei:
Wenn ich dies jedoch per VBA einbinde kriege ich einen 80004005er Fehler mit "Can't connect to MySQL server on ... ".
Es handelt sich bei dem Objekt um einen View und keine Tabelle. Das funktioniert aber mit dem Code auch in anderen Datenbanken auf unseren Servern.
Habt ihr vielleicht eine Idee was ich ändern muss. Vielen Dank vorab.
Gruss Thorsten
Ich habe bereits mehrere unserer mySQL Datenbanken via VBA in meiner Excel eingebunden. Ich versuche nun eine weitere anzusprechen. Über phpMyAdmin funktioniert das folgende SQL Statement einwandfrei:
Code:
"Select Sum(TIMESTAMPDIFF(MINUTE, conf_time, disconnect_time)) as minutes FROM rep_ba WHERE product Like 'BusinessAudio Flat' and start_time >= '2013-07-01' and start_time <= '2013-07-31' and dialout = '0' and conf_time is not null and company_name NOT like 'Schmidt%'"
Wenn ich dies jedoch per VBA einbinde kriege ich einen 80004005er Fehler mit "Can't connect to MySQL server on ... ".
Es handelt sich bei dem Objekt um einen View und keine Tabelle. Das funktioniert aber mit dem Code auch in anderen Datenbanken auf unseren Servern.
Code:
Sub WriteBA(month, from, upto As String)
Dim strconnectstr66 As String
Dim abf As String
strconnectstr66 = "Provider=MSDASQL;Driver={MySQL ODBC 5.2 Unicode Driver};Server=192.168.200.01;Database=pool;User=user;Password=password;Option=3;"
'Nutzung
abf = "Select Sum(TIMESTAMPDIFF(MINUTE, conf_time, disconnect_time)) as minutes FROM rep_ba WHERE product Like 'BusinessAudio Flat' and start_time >= '" & from & "' and start_time <= '" & upto & "' and dialout = '0' and conf_time is not null and company_name NOT like 'Schmidt%'"
Call WriteNumber(abf, month & "109", strconnectstr66)
End Sub
Sub WriteNumber(qry, zelle, strconnect As String)
Dim cnt As New ADODB.Connection
Dim rst As New Recordset
cnt.Open strconnect
rst.Open qry, cnt
Sheets("Daten").Select
Range(zelle).CopyFromRecordset rst
End Sub
Habt ihr vielleicht eine Idee was ich ändern muss. Vielen Dank vorab.
Gruss Thorsten