Error en Tiempo de Ejecución -2147467259(8004005) ≈ Office 2019

Question

Hola, me comunico por que trate de realizar una UDF para conectarme con MYSQL, la estructura del codigo es la siguiente:

1. Codigo del Formulario

          Private Sub CommandButton1_Click()

              Conectar "root", "gilberto1997", "basecontabilidad"

         End Sub

2.Modulo General(Funciones)

          Public Function Conectar(usuario, contraseña, nombrebasedatos)

                   Dim Conect As Object

                   Dim cnx As New DdConecion

                   Dim x As String

                    With cnx

        .            .usuario = usuario

                     .contraseña = contraseña

                     .basedatos = nombrebasedatos

                      End With

          Set Conect = CreateObject("ADODB.Connection")

     x = "DSN=localhost;DRIVER(MySQL ODBC 8.0 Unicode Driver);SERVER=localhost;USER= '" & usuario & "' ;PASSWORD=  '" & contraseña & "' ;DATABASE='" & nombrebasedatos & "'  "

    Conect.ConnectionString=x

    Conect.Open

End Function  

Modulo de Clase (DdConecion)

              Private user As String

              Private pass As String

             Private bdatos As String

      Private Sub Class_Initialize()

      End Sub

     Public Property Let usuario(value As String)

             user = value

     End Property

    Public Property Get usuario() As String

              usuario = user

     End Property

    Public Property Let contraseña(value As String)

         pass = value

   End Property

  Public Property Get contraseña() As String

     contraseña = pass

  End Property

   Public Property Let basedatos(value As String)

      bdatos = value

  End Property

  Public Property Get basedatos() As String

      basedatos = bdatos

  End Property

Ese es todo mi codigo cuando ejecuto me aparece:

                           Se ha producido el error '-2147467259(8004005)' en tiempo de ejecución :[MySQL][ODBC 8.0(w) Driver]  UnKnown database "nombre de la base de datos".

Espero que me puedan ayudar

Answer 1

Un cordial saludo.

Muchas Gracias por proporcionarme el link del foro.

Answer 2

Hola, Gilberto.

Mi nombre es Dante Martino, asesor de la Comunidad.

Para encontrar respuesta a este problema, es mejor que realices la consulta en los foros técnicos de Microsoft, donde la comunidad avanzada podrá darte soporte de forma más detallada y precisa:

Microsoft TechNet:

https://social.technet.microsoft.com/Forums/es-...