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