MySQL y Visual Basic

[VbOkonly]

Muy buenas a todos, estoy muy cansado de buscar la solucion pero todo lo que me fijo es diferente o no funciona ... quizas encuentre con su ayuda algo acorde a lo que ando buscando :
Tengo un hosting pago, el cual su panel es "cpanel", ya cree la base de datos en phpmyadmin, le puse 3 campos nomás ( para probar y practicar ) asigne usuarios todo ...
Lo que me interesa es el Visual Basic :

Lei por ahi que tengo que usar un conectar ado.
¿ Se necesita algun dll especial ?
Agregue el componente y no funciona ...

> Microsoft ADO Data Control 6.0 (OLEDB) <

Probe con codigos y me tira error de sintaxis o que "no conecta"
La idea principal es que desde vb manipular la bd en mi hosting contratado.(Hosting web)
Tienen algun codigo que funcione ?, hasta probé con codigos completos pero sigue sin conectar :/

Mi web es www.esperameche.com.ar <--- Usa Cpanel y ya tiene creada la bd que se llama "base" ----> esperame_base
Agradeceria la ayuda

Perdon por mi ignorancia en este tema, intente de mil formas ( Ya se que hay que revisar y buscar ) pero probe de mil maneras!. Saludos.

[VbOkonly]

Consegui un codigo, pero me dice "Error de compilacion: No se ha definido el tipo definido por el usuario "

' WWW.ELGURUPROGRAMADOR.COM.AR

Option Explicit

Public WithEvents db As rdoConnection

Private Sub boton_conectar_Click()
Dim cadena_conexion

cadena_conexion = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & servidor & "; DATABASE=" & base_de_datos & " ;PWD=" & password & "; UID=" & usuario & ";OPTION=3"

Set db = New rdoConnection

db.Connect = cadena_conexion
db.CursorDriver = rdUseServer
db.EstablishConnection
End Sub

Private Sub boton_desconectar_Click()
db.Close
End Sub

Private Sub db_Connect(ByVal ErrorOccurred As Boolean)
Dim tabla As rdoTable
Dim hay_tablas As Boolean

hay_tablas = False
cambiar_botones True

For Each tabla In db.rdoTables
tablas.AddItem tabla.Name
hay_tablas = True
Next

If Not hay_tablas Then
MsgBox "La base de datos esta vacia"
boton_desconectar_Click
End If
End Sub

Private Sub db_Disconnect()
cambiar_botones False
End Sub

Private Sub Form_Unload(Cancel As Integer)
If boton_conectar.Enabled = False Then
db.Close
End If
End Sub

Private Sub cambiar_botones(conectado As Boolean)

contenido.Clear
tablas.Clear

boton_conectar.Enabled = Not conectado
boton_desconectar.Enabled = conectado
tablas.Enabled = conectado
contenido.Enabled = conectado

End Sub

Private Sub tablas_Click()
Dim tabla As String
Dim consulta As New rdoQuery
Dim resultados As rdoResultset
Dim contenido_row As String
Dim columna As rdoColumn

contenido.Clear

tabla = tablas.List(tablas.ListIndex)

Set consulta.ActiveConnection = db

consulta.SQL = "SELECT * FROM " & tabla & " WHERE 1"
consulta.Execute

Set resultados = consulta.OpenResultset

While Not resultados.EOF

contenido_row = ""

For Each columna In resultados.rdoColumns
contenido_row = contenido_row & columna.Name & "=" & resultados(columna.Name) & "; "
Next

contenido.AddItem contenido_row
resultados.MoveNext
Wend

resultados.Close
Set resultados = Nothing

End Sub

La interfaz es la siguiente

[URL=http://img830.imageshack.us/i/47767407.jpg/][IMG]http://img830.imageshack.us/img830/1162/47767407.jpg[/IMG][/URL]

Me arte de buscar, ayuda please :D

[mgd]

en que linea te da el error

[VbOkonly]

Aca : Public WithEvents db As rdoConnection

[mgd]

Yo lo hago asi

Código VB6:

Public db As ADODB.Connection
 
 
 
           Set db = New ADODB.Connection
 
        db.Open "Driver={MySQL ODBC 5.1 Driver};" & _
          "Server=" & servidor & ";" & _
          "Port=3306;Database=" & basedatos & ";" & _
          "User=" & usuario & ";Password=" & contraseña & ";Option=3;"
db.Close
 

con db.close cierro la conexion y la voy abriendo a medida que hace falta porque con mysql podes perder la conexion si la tenes abierta durante mucho tiempo sin ejecutar nada y eso genera errores

Ademas uso el conector 5.1.4

[VbOkonly]

Iniciado por mgd

Yo lo hago asi

Código VB6:

Public db As ADODB.Connection
 
 
 
           Set db = New ADODB.Connection
 
        db.Open "Driver={MySQL ODBC 5.1 Driver};" & _
          "Server=" & servidor & ";" & _
          "Port=3306;Database=" & basedatos & ";" & _
          "User=" & usuario & ";Password=" & contraseña & ";Option=3;"
db.Close
 

con db.close cierro la conexion y la voy abriendo a medida que hace falta porque con mysql podes perder la conexion si la tenes abierta durante mucho tiempo sin ejecutar nada y eso genera errores

Ademas uso el conector 5.1.4

Me sigue tirando error :

Public db As ADODB.Connection

No se ha definido el tipo definido por el usuario


Una pregunta, en referencias puse microsoft remote data object 2.0, esta bien ?
Otra cosa mas, me aparece en rojo cuando copie el codigo.
Agradesco la ayuda de antemano

[VbOkonly]

Ya resolví, era el driver, lo puse mal.
mgd Muchas gracias !.