Estou tentando conectar a uma base de dados Mysql via VBA do Excel, mas retorna um erro informando falha catastrófica. Fiz um teste colocando a senha errada, ou o nome do database errado, e ele informa que o acesso foi negado ou o database não existe, então parece que está funcionando, o Mysql está respondendo, só não consegue efetivar a conexão.
Estou utilizando:
- Mysql Server 4.1
- ODBC connector 3.51
Nota: Não posso mexer na versão do Mysql Server por algumas questões. Pensei em tentar atualizar o connector para uma versão 5, mas fiquei na dúvida se não iria gerar algum outro problema com o MysqlServer.
Abaixo o codigo que estou utilizando. Tentei outras variações, mas é sempre o mesmo erro. Tem alguma solução para este problema?
Set Cn = New ADODB.Connection
With Cn
.ConnectionString = _
"driver={mysql odbc 3.51 driver};" & _
"server=localhost;database=oswau;" & _
"uid=root;pwd=;"
.CursorLocation = adUseClient
.Open
End With
Adicionando mais algumas informações: Com as informações passadas pelos colegas, atualizando o connector para versão 5 ele comunicou, porém apenas com o localhost. Quanto tento comunicar com o servidor Mysql na rede, ocorre o erro indicando:"O driver ODBC não oferece suporte para as propriedades solicitadas. Abaixo o código que estou executando para fazer a consulta. O erro ocorre quando ele tenta abrir a consulta na parte rs.open, ultima linha do código abaixo.
SQLStr = "Select Count(cd_tecnico) as 'Total' from Suporte_tecnico_nacional
where dt_suporte between '2014-06-01' and '2014-06-02' and cd_tecnico=23370"
Set Cn = CreateObject("ADODB.Connection") 'NEW STATEMENT
Cn.Open "Driver={MySQL ODBC 5.2 Unicode Driver};Server=" & _
Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"
rs.Open SQLStr, Cn, adOpenStatic