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 馃槈
2 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