Problema al conectar VB6 con MySQL

[turco_7]

gente .. tengo problemas cuando creo la conexion a MySQL ...

El codigo que tengo es este ..

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

[turco_7]

Gente .. nadie sabe nada de esto ? me he guiado por todos los ejemplos del foro pero no puedo hacer que funcione ... :(

saludos

[vbx3m]

Especificaste el nombre de la db, el server, el usuario y el pass?? porq en ese codigo de la cadena de conexion no lo veo, solo veo q lo asignas a unos textbox... espero despues lo asignes... si no ese puede ser tu error

[turco_7]

si si .. se los asigno ..

saludos !!!

[vbx3m]

Entonces especifica bien el error... Que te sale en el msgbox...???

[GeoAvila]

así es.. porque lo que podes hacer tambien es crear un DSN para así solo conectarte al DSN y evitarte problemas con la conexión..

nos vemos..

[turco_7]

gente ... encontre esta cadena de conexion que me conecta a la perfección ...

cn.Open "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=usuario;pwd=pwd;datab ase=dbase;connection=adUseClient"

Lo que si quize hacer es listar todas las tablas de la db .. y no tengo idea de como se hace ..

alguien sabe ?

saludos