Como conectarme a MySQL desde VB6

  • 0 Respuestas
  • 2044 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5739
  • Actividad:
    100%
  • Country: ar
  • Reputación 42
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Como conectarme a MySQL desde VB6

  • 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..
« Última modificación: Mayo 12, 2014, 03:16:58 pm por Expermicid »