Como conectarme a MySQL desde VB6

Iniciado por ANTRAX, Julio 26, 2010, 01:07:00 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Julio 26, 2010, 01:07:00 PM Ultima modificación: Mayo 12, 2014, 03:16:58 PM por Expermicid
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 No tienes permitido ver los links. Registrarse o Entrar a mi cuenta


3ro. bueno.. el codigo..

Código: vb
        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..