Modulo de Conexión a MySQL con Visual Basic 6
1.- Ya saben, es necesario el ODBC 3.51 para poder conectar visual basic 6 y mysql.
2.- Son necesarios los objetos ADODB, uno para la conexion y otro será de tipo recordset para manipular nuestras tablas y sus campos.
3.- La parte ke dice "DRIVER={MySQL ODBC 3.51 Driver..." es la cadena de conexión en ubicará la base de datos que en este kaso es biblioteca, con usuario root y sin password, aunke esto depende de los usuarios y contraseñas ke diste a tu srevidor MySQL
4.- El modulo será llamado en cada formulario, yo específicamente lo llamo en el evento load del formulario.
Public db As ADODB.Connection
Public tabla As ADODB.Recordset
-------------------------------------------
Public Sub Conexion()
' Realiza la conexion con la base de datos
On Error GoTo msgError
Set db = New ADODB.Connection
Set tabla = New ADODB.Recordset
db.CursorLocation = adUseClient
db.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=biblioteca;UID=root;PWD=;"
db.Open
Exit Sub
msgError:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Error"
End Sub
Espero ke les sirva.