Underc0de

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 01:07:00 pm

Título: Como conectarme a MySQL desde VB6
Publicado por: ANTRAX en Julio 26, 2010, 01:07:00 pm
1ro. Tener instalado un servidor Mysql con el puerto 3306 abierto y tener configurado el usuario correctamente para poder acceder remotamente o bien sea via localhost.

2do. Tener instalado en la computadora Cliente el Mysql ODBC Driver 3.51, que lo pueden descargar de Mysql.com


3ro. bueno.. el codigo..

Código: (vb) You are not allowed to view links. Register or Login
        Dim Cxn As ADODB.Connection
        Dim AdoS As ADODB.Recordset
Dim CxnFac As String
Set Cxn = New Connection
Cxn.CursorLocation = adUseClient
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=IpServer;Port=3306;Option=131072;Stmt=;Database=recepfac;Uid=root;Pwd=TuContrasena;"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New Recordset
AdoS.Open "Select * From clientes", Cxn, adOpenStatic, adLockOptimistic ' Abrimos el REcordset y esta listo para usar
MsgBox AdoS!nombre

Bueno basta decir que este caso tenemos una tabla llamada clientes que posee un campo llamado nombre..