Conectar VB6 con MySQL

Middrel · #1 (**permalink**) 19/08/2009, 21:57

Hola buenas noches,

He visto este tipo de error en varias páginas, incluso en este foro (un poco variado pero sobre el mismo tema). Sin embargo, no he visto una solución para el caso que les presento.

Tengo una forma hecha en VB6 la cual servirá para conectarme a una base de datos de MySQL. La base de datos ya la tengo hecha, ya tiene tablas creadas, ya hay un par de usuarios creados con todos los privilegios.

Tengo el Conector ODBC 3.51 y ya realicé la conexión a la base de datos de MySQL y en el test funcionó correctamente.

El código usado es:

Código:

Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset

En un botón para conectarme coloco:

Código:

Private Sub Command1_Click()
On Error GoTo Ver

Set BD = New ADODB.Connection
BD.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" & _
"Server=" & Text1 & ";" & _
"Port=" & Text2 & ";" & _
"Database=" & Text3 & ";" & _
"User=" & Text4 & ";" & _
"Password=" & Text5 & ";" & _
"Option=3;"

BD.Open

MsgBox "Conexión establecida!!!", vbExclamation, "Conexión"

Exit Sub
Ver:
 MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
 Err.Clear
End Sub

Aunado a ello, cuando trato de hacer la conexión pasa lo siguiente, me genera este error:

Cita:

No de error: -2147467259 | [MySQL] [ODBC 3.51 Driver] Can´t connect to MySQL server on '3306' (10060)

Se me hace algo raro, debido a que el puerto está funcionando bien, o por lo menos puedo conectarme a la base de datos de MySQL. Tengo instalada la versión 5.1.37 de MySQL, la más actual.

Al parecer el código debe funcionar bien, ya que en otros sitios he visto que si funciona, pero se me hace raro.

Bueno, espero y alguien tenga algún conocimiento sobre esto, saludos a todos.

Perón se me olvidaba comentar, uso las referencias Microsoft DAO 3.51 Object Library
y Microsoft ActiveX Data Objects 2.0 Library.

David · #2 (**permalink**) 20/08/2009, 06:49

¿Qué datos colocas en Text1...Text5?

fesero · #3 (**permalink**) 20/08/2009, 07:22

Si Text1 a Text5 son textbox te falto poner la propiedad text, es decir

"Server=" & Text1.text & ";" & _
"Port=" & Text2.text & ";" & _
"Database=" & Text3.text & ";" & _
"User=" & Text4.text & ";" & _
"Password=" & Text5.text & ";" & _
"Option=3;"

David · #4 (**permalink**) 20/08/2009, 07:35

Hola, fesero. En realidad no es necesario, ya que la propiedad Text es la propiedad por defecto en caso de que no se especifique ninguno.

franko1809 · #5 (**permalink**) 20/08/2009, 13:03

Coloca la informacion que pones en los textbox ahi esta el error, lee esto, quizas ahi esté tu error

saludos

nonpublic · #6 (**permalink**) 20/08/2009, 13:17

Si haz puesto correctamente los nombres de la BD, Usuario y contraseña verifica el lado del servidor, debe tener los atributos necesarios para "%" en la BD. Puedes probar la conexion usando MySqlAdministrator.

Middrel · #7 (**permalink**) 20/08/2009, 13:50

Hola, disculpen la demora voy lleganfo a la oficina y voy viendo sus comentarios. Gracias.

Bueno, de hecho lo que coloco en los textbox es el nombre del puerto, del servidor, de la base de datos, del usuario y de la contraseña. Estoy usando los de fault para ver el funcionamiento (Servidor: localhost, Usuario: root, Contraseña: 123456, Puerto: 3306 y Base de Datos: franquicias) Algo sencillo solo para ver el funcionamiento.

Ahora, tengo el administrador de MySQL instalado y funciona correctamente. De hecho entro a cada rato a cargar tablas, nuevas bases etc., por ese lado no hay ningún problema.

nonpublic · #8 (**permalink**) 20/08/2009, 14:10

Si tienes el MySql Administrator selecciona User administration, luego el usuario y luego asignales todos los permisos al usuario con el que te vas a conectar. Usualmente "root" solo tiene acceso local. Y si lo administras a traves de PhpMyAdmin genera un usuario y brindale accesos a la BD. Tambien prueba con el Firewall de Windows desactivado. Si te estas conectando a un servidor LAMP o WAMP edita tambien el archivo

Cita:

my.cnf

en el servidor y comenta la linea bind_address

Cita:

# bind_address

y reinicia el apache

ema21del9 · #9 (**permalink**) 20/08/2009, 14:47

Cita:

Iniciado por nonpublic

Si tienes el MySql Administrator selecciona User administration, luego el usuario y luego asignales todos los permisos al usuario con el que te vas a conectar. Usualmente "root" solo tiene acceso local. Y si lo administras a traves de PhpMyAdmin genera un usuario y brindale accesos a la BD. Tambien prueba con el Firewall de Windows desactivado. Si te estas conectando a un servidor LAMP o WAMP edita tambien el archivo en el servidor y comenta la linea bind_address y reinicia el apache

Donde esta esa linea? en el archivo "my" de la carpeta de MySQL no aparece esa palabra.

nonpublic · #10 (**permalink**) 20/08/2009, 14:51

Ahora si puedo poner links

http://www.forosdelweb.com/f86/conex...s-wamp-531779/

Middrel · #11 (**permalink**) 20/08/2009, 15:15

Hola, no uso el WAMP, ni Apache. Solo es una conexión local de MySQL.

, aunque, a futuro es probable la implementación.

Por cierto, si cree otro usuario con todos los privilegios y aún así manda el mismo error.

Saludos

ema21del9 · #12 (**permalink**) 20/08/2009, 15:24

Cita:

Iniciado por nonpublic

Ahora si puedo poner links

http://www.forosdelweb.com/f86/conex...s-wamp-531779/

No quiero ser hincha compañero pero no entendi lo que se explica en ese thread, yo no uso phpmyadmin ni ninguna otra aplicacion, solo tengo instalado MySQL 5.1 y las GUI Tools, como hago para conectarme desde otro host a dicha base de datos?

nonpublic · #13 (**permalink**) 20/08/2009, 15:37

Si tu conexion es local debes estar poniendo mal algun dato.
Prueba tambien con las librerias:

Cita:

Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects Recordset 2.8 Library.

y prueba con este codigo

Cita:

'variables de conexion
dbSrv = "SERVER=x.x.x.x;"
dbNmb = "DATABASE=midb;"
dbPwd = "PASSWORD=mipwd;"
dbUsr = "USER=miusr;"
dbPto = "PORT=3306;"
dbOpc = "OPTION=3;"
cnxString = "DRIVER={MySQL ODBC 5.1 Driver};" _
+ dbSrv + dbNmb + dbPto + dbUsr + dbPwd + dbOpc
On Error GoTo Error
'cn.Open
Set cn = rs.ActiveConnection
On Error GoTo Error
'cn.Open
Set cn = rs.ActiveConnection
Set rs = New ADODB.Recordset
rs.Open "SELECT DATE_FORMAT( now( ) , '%r') AS hora", cnxString, adOpenStatic, adLockOptimistic
MsgBox "Conexión establecida!!!" + rs.Fields(0), vbExclamation, "Conexión"
'cerramos la conexion
rs.Close
' Liberamos los objetos para limpiar la memoria.
Set rs = Nothing
Set cn = Nothing

Exit Sub
Error:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear

P.D. Prueba la conexion de manera local y si funciona vamos a ver la parte remota luego

ema21del9 · #14 (**permalink**) 20/08/2009, 15:45

La parte local me funciona hace tiempo, lo que no logro es conectarme remotamente, por donde empiezo?

nonpublic · #15 (**permalink**) 20/08/2009, 15:48

Sorry, me confundi con el comentario que hizo Middrel

Probaste lo que decia en el link? lo tuyo es solo asignar permisos y agregar al Firewall de windows una excepcion para que escuche en el puerto 3306

Middrel · #16 (**permalink**) 20/08/2009, 16:45

Hola nonpublic, probé el código que proporcionas en tu respuesta y me aparece el siguiente error: N° de error 424 | Se requiere un objeto.

nonpublic · #17 (**permalink**) 20/08/2009, 17:05

Cita:

Iniciado por Middrel

Hola nonpublic, probé el código que proporcionas en tu respuesta y me aparece el siguiente error: N° de error 424 | Se requiere un objeto.

Revisa que tengas todas las referencias mencionadas anteriormente y logicamente reemplaza los campos necesarios tanto en la consulta como en los datos de conexion. Tambien verifica que tengas instalado MySQL ODBC 5.1 Driver

franko1809 · #18 (**permalink**) 20/08/2009, 18:21

Cita:

Iniciado por ema21del9

La parte local me funciona hace tiempo, lo que no logro es conectarme remotamente, por donde empiezo?

Para conectarte remotamente debes hacerlo atravez de las IP`s

Código:

DRIVER={MySQL ODBC 5.1 Driver}; SERVER=192.168.1.40;DATABASE=db_ventas;USER=root;PASSWORD=123456;OPTION=3

Ademas debes tener todos los permisos habilitados para el usuario o almenos los principales.
En phpmyadmin se puede manejar mejor los permisos de los usuarios que en los GUI Tools de mysql

+

saludos

Middrel · #19 (**permalink**) 20/08/2009, 19:49

LAs referencias ya están correctas, pero tengo duda con el Conector ODBC... Me mencionas el 5.1, yo tengo el 3.51, entonces intento con este otro conector?

Bueno, lo haré y veré que sucede.

Saludos

nonpublic · #20 (**permalink**) 20/08/2009, 20:13

Ujum, descarga la ultima version del ODBC connector y no olvides hacerle la referencia en el codigo a la misma version

Cita:

"DRIVER={MySQL ODBC X.x Driver};"

Middrel · #21 (**permalink**) 21/08/2009, 11:25

Mmmmmnnop... ya probé con el conector ODBC 5.1 y sigue exactamente el mismo error, que podrá ser?

nonpublic · #22 (**permalink**) 21/08/2009, 12:13

Prueba estas cosas:

1- Verifica que estas librerias esten presentes en las referencias del proyecto

Cita:

Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects Recordset 2.8 Library.

2.- Verifica que en el firewall de windows (ya que tienes instalada la version para windows sin web) tengas una excepcion para el puerto que mencionas en el codigo. Si no la tienes creala. Ojo que si cambiaste el puerto de escucha al momento de la instalacion, tienes que considerar ese cambio.

Cita:

dbPto = "PORT=3306;"

3.- Verifica que la cadena de conexion haga referencia al driver que tienes instalado

Cita:

cnxString = "DRIVER={MySQL ODBC 5.1 Driver};" _
+ dbSrv + dbNmb + dbPto + dbUsr + dbPwd + dbOpc

4.- Verifica que los datos que estes pasando a tu cadena de conexion sean correctos

Cita:

dbSrv = "SERVER=x.x.x.x;" ' Pon el ip asignado al equipo que corre el MySql Server
dbNmb = "DATABASE=midb;" 'Pon el nombre exacto de la BD
dbPwd = "PASSWORD=mipwd;" ' Pon el PWD case sensitive
dbUsr = "USER=miusr;"

' Pon el usuario que tiene acceso GLOBAL a tu BD.

Si todo esto es correcto deberia funcionar. En caso contrario reinstala tu servidor Mysql.

franko1809 · #23 (**permalink**) 21/08/2009, 14:33

Haber tio revisando el inicio del post tu error dice

error: -2147467259 | [MySQL] [ODBC 3.51 Driver] Can´t connect to MySQL server on '3306' (10060)

Es decir que no se puede conectar al servidor llamado 3306, ahi me parece que esta el error, tienes una confusion en los textbox, estas poniendo el puerto en lugar del nombre del servidor y viceversa

Te sugiero que pruebes directamente sin utilziar textbox de esta manera para ver si ahi esta tu famoso error

Código:

DRIVER={MySQL ODBC 5.1 Driver}; SERVER=192.168.1.40;DATABASE=db_ventas;USER=root;PASSWORD=;OPTION=3

....Nuevamente te sugiero, "prueba directamente la conexion sin utilizar textbox"

La version del conector no influye en nada puedes utilizar cualquiera el 3 o 5

saludos

Middrel · #24 (**permalink**) 22/08/2009, 20:58

Hola franko1809... Ya hice esa parte, de colocar los valores en lugar de los textbox... sin embargo lo que me comentas sobre ver si no tengo alguna confusión en los valores que coloco en los textbox no lo he verificado... lo hago y les comento, pero será hasta el día lunes, el fin de semana no dispongo de mi equipo

Saludos y probaré lo último que me han comentado.

ema21del9 · #25 (**permalink**) 25/08/2009, 08:08

Gente probe todo lo propuesto en este topico pero me dice que no me puedo conectar a 201.235.57.27 con el siguiente error:

Por si acaso aca dejo una imagen de los permisos el codigo de conexion:

Código VB:

Ver originalSub funcion_conectar()
'Definimos las variables de conexion:
servidor = "201.235.57.27"
puerto = 3306
base_de_datos = "hdm_tech"
usuario = "hdm_tech"
contraseña = "********"
 
'Creamos la cadena de conexión:
Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" & _
"Server=" & servidor & ";" & _
"Port=" & puerto & ";" & _
"Database=" & base_de_datos & ";" & _
"User=" & usuario & ";" & _
"Password=" & contraseña & ";" & _
"Option=3;"
 
'Establecemos la conexión:
BD.Open
End Sub

franko1809 · #26 (**permalink**) 25/08/2009, 13:10

Parece que tienes todo en orden, lo unico que se me ocurre es que estas utilizando la ip de tu conexion a internet 201.235.57.27, deberias utilizar la IP de tu red local interna vete a:

inicio/ejecutar/escribes CMD/ipconfig/pulsas enter y obtendras tu ip local

saludos

ema21del9 · #27 (**permalink**) 25/08/2009, 13:24

Cita:

Iniciado por franko1809

Parece que tienes todo en orden, lo unico que se me ocurre es que estas utilizando la ip de tu conexion a internet 201.235.57.27, deberias utilizar la IP de tu red local interna vete a:

inicio/ejecutar/escribes CMD/ipconfig/pulsas enter y obtendras tu ip local

saludos

Mira esto es lo que me tira, que deberia usar de aca:

Middrel · #28 (**permalink**) 25/08/2009, 13:44

Como ha crecido esto!!

Hola franko1809, al parecer ya funciona bien mi conexión, tenías razón había una
confusión entre los textbox

Saludos y muchas gracias al apoyo de todos.

Ema21del9, tu IP es 192.168.1.102.

Saludos a todos.

ema21del9 · #29 (**permalink**) 25/08/2009, 14:13

Ya esta gente lo logre, muchas gracias.

Ahora bien, me queda una duda, en el caso que este intentando entrar de un host externo, osea desde la WAN, ahi si usaria el ip indicado arriba?

zxs23 · #30 (**permalink**) 25/08/2009, 22:15

Para hacer una conexion WAN me parece que es otro tema y la conexion es diferente por ahi escuche que se debe utilizar el programa hamachi?, abre otro tema para intentar resolverlo, saludos

Tanto alboroto y era un confusion en los textbox