Como Conectarse a una Base de datos MySQL usando ADO
A diferencia de otras bases de datos, para conectarse a esta, es necesario bajar un DRIVER ODBC desde la Pagina de MySQL
aqui la URL: MySQL :: MySQL Connector/ODBC
Yo he Instalado la Version «MySQL Connector/ODBC 3.51» (al ultima cuando se escribio este Tema)
Una vez Instalado (Next o Siguiente a todo) ya tendremos el Proveedor instalado 😀
De ahi es el mismo codigo que se usa para conectarse a cualquier Motor Usando ADO
Paso 1.- Hacer la Referencia a la Libreria ADO
Paso 2.- Escribir el Codigo
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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 😉
3 Comentarios. Dejar nuevo
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