A diferencia de otras bases de datos, para conectarse a esta, es necesario bajar un DRIVER ODBC desde la Pagina de MySQL
aquí la URL: MySQL :: MySQL Connector/ODBC
Yo he instalado la versión “MySQL Connector/ODBC 3.51” (al ultima cuando se escribió este tema)
Una vez Instalado (Next o Siguiente a todo) ya tendremos el Proveedor instalado 😀
De ahí es el mismo código que se usa para conectarse a cualquier Motor Usando ADO
Paso 1.- Hacer la Referencia a la librería ADO
Paso 2.- Escribir el código
Dim cn As Connection
Dim rs As Recordset
Private Sub Form_Load()
Const strServidor = "localhost"
Const strBaseDatos = "basededatos"
Const strPassword = "mypassword"
Const strUsuario = "root"
Set cn = New Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & strServidor & _
"; DATABASE=" & strBaseDatos & _
"; User=" & strUsuario & _
"; Password=" & strPassword & "; OPTION=3"
cn.Open
Set rs = New Recordset
rs.Open "select * from Tabla", cn, adOpenStatic
Me.Caption = rs.Fields(0).Value
cn.Close
End Sub
Eso es todo :), un poderoso motor de base datos y gratuito 😉
Gracias!!
Me sirvió, solo que cambié la versión de ODBC 5.1 pero lo que no puedo es crear un nuevo registro en la base de datos
y otra cosa es que no puedo acceder a la base de datos de un servidor online pero eso será para otro momento.
Me interesaría poder crear un nuevo registro ya que me dice “el recordset actual no admite actualizaciones” cuando llego a rs.addnew
también probé con adOpenDynamic
Que referencia debo habilitar, al correr el codigo me dice que “El uso de la palabra clave New no es valido”. Ya habilite la referencia Microsoft ActiveX Data 2.8
Alguien que me pase un proyecto hecho en visual basic sobre una empresa y mediante eso me conecte a una base de datos. lo ocupo mucho. me urge