como conecto mi bd de mysql con vb6

[CarolJohana]

hola compañeros denuevo yo aca,
deseo hacer lo sigiuente, tengo 2 cajas de texto un timer en en form de vb6 y deseo conectar esas cajitas de texto con informacion de la bd para que el timer vaya actualizando una casilla de la tabla¿me hago entender?
bueno el lio es que ni siquiera logro conectar vb con mysql descarge un conector que se llama MySQL Connector/ODBC 5.1 lo instale ,me fui a panel de control y en herramientas administrativas hize la respectiva conexion y en el menu del proyect de vb di click en referencias y active el link de Microsft remote data oject 2.0
he hecho de todo y nisiquiera logro mostratr los datos de la bd

quien me pudiera ayudar se lo agradeceria

bye

gracais

[Genetix]

Debes usar el ODBC de mysql

http://dev.mysql.com/downloads/connector/odbc/5.1.html

Saludos!

[CarolJohana]

oye gracais pero no me sirve el conector OBDC 5.1 que escribi anteriormente?
o no se que hacer
estoy confundida

[GatorV]

Tema trasladado a VB.

[Avellaneda]

Iniciado por CarolJohana

oye gracais pero no me sirve el conector OBDC 5.1 que escribi anteriormente?
o no se que hacer
estoy confundida

¿La versión de MySQL que tienes instalada es la 5.1?

¿La BD es local o remota?

¿Cual es la cadena de conexión que utilizas actualmente?

¿Qué error de conexión te da?

[brunohobbes09]

posible que tu servidor de mysql no soporte conexiones ODBC

o que este restringidoel servicio

to tengo el probema de que no me da mucho tiempo de trabajo y mezclo acces con vb y mysql

[franko1809]

Solo instala el driver y has toda la conexion mediante codigo
Revisa bien los parametros de conexion nombre de la base de datos, usuario, contraseña

Código:

Dim cn As Connection
Dim rs As Recordset

Private Sub Form_Load()

Set cn = New Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost;DATABASE=db_empresa;USER=root;PASSWORD=123456;OPTION=3"
cn.CursorLocation = adUseClient
cn.Open
Set rs = New Recordset
rs.Open "select * from productos", cn, adOpenStatic

Set DataGrid1.DataSource = rs

End Sub