gente .. tengo problemas cuando creo la conexion a MySQL ...
El codigo que tengo es este ..
Cita: Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim servidor As String
Dim dbase As String
Dim pwd As String
Dim usuario As String
Private Sub cmdconectar_Click()
conectar
End Sub
Private Sub cmddesconectar_Click()
desconectar
End Sub
Public Sub inicializar()
cmdconectar.Enabled = True
cmddesconectar.Enabled = False
shestado.BackColor = &HFF&
txtserver.Text = "localhost"
txtdb.Text = "calendario"
txtusuario.Text = "root"
txtpwd.Text = "123456"
End Sub
Public Sub conectar()
On Error GoTo mal
Set cn = New ADODB.Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & servidor & "; DATABASE=" & dbase & " ;PWD=" & pwd & "; UID=" & usuario & ";OPTION=3"
cn.Open
cmdconectar.Enabled = False
cmddesconectar.Enabled = True
cargar_arbol
Exit Sub
mal:
MsgBox "Error en la conexion"
shestado.BackColor = &HFF&
End Sub
Public Sub deconectar()
Set cn = Nothing
Set rs = Nothing
shestado.BackColor = &HFF&
End Sub
Active la referencia para el ADODB
Microsoft ActiveX Data objects 2.8 Library
El problema esta cuando llega al
cn.open
Ahi sale y me muestra el msgbox con el error ...
Tengo instalado el MySQL Connector/ODBC 3.51
Lo descargue de
aqui
Saludos