Conectar....

[Carol_84]

Hola:
tengo el siguiente problema.
Estoy utilizando VBA para hacer una interfaz desde el excel.
Resulta que tengo qur conectar vba con Mysql y para eso he hecho lo siguiente:

Código vb:

Private Sub CommandButton1_Click()
    'Check to see if data is entered into the UserName combo box
    If IsNull(cboUser) Or cboUser = "" Then
        MsgBox "You must enter a User Name.Required Data"
        Me.cboUser.SetFocus
        Exit Sub
    End If
    
    'Check to see if data is entered into the password box
    If IsNull(txtPassword) Or txtPassword = "" Then
        MsgBox "You must enter a Password.Required Data"
        Me.txtPassword.SetFocus
        Exit Sub
    End If
    
  
   Dim oConn As ADODB.Connection
   Dim rs As ADODB.Recordset
 
   oConn = New ADODB.Connection
   oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
               "SERVER=localhost;" & _
               "DATABASE=MYBD;" & _
               "USER=root;" & _
               "PASSWORD=1234;" & _
               "Option=3"
End Sub
 

Pero no me funciona.
Puedes ayudarme , por favor? he instalado el driver MySQL ODBC 5.1 Driver pero nada, no me funciona. El error que me da es :


user-defined type not defined. Y en concreto me da en la linea Dim oConn As ADODB.Connection
gracias

[leonardo_josue]

Hola Carol_84:

no recuerdo exactamente, pero creo que en lugar de USER y PASSWORD debes utilizara las palabras reservadas UID y PWD, es decir algo asi:

Código:

Server=127.0.0.1;
Port=3306;
Database=tuBaseDeDatos;
Uid=tuUsuario;
Pwd=tuContraseña

Si no es así, dale un vistazo a esta página:

http://www.connectionstrings.com/mysql

Ahí aparecen todos los string's de conexión para MySQL y otras BD's,

Saludos
Leo.