0

Tengo este código en el botón Aceptar del formulario

Private Sub CommandButton1_Click() Dim Ruta As String Ruta = Rutafrm.TextBox1.Value End Sub

Este otro ya es en la macro

'Definir la ruta de la base de datos PathDataBase = Me.Ruta.Text

Y ya esta es la conexión y consulta a la DB

Set cn = CreateObject("ADODB.connection") conexionBD = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathDataBase

'Realizar la consulta a la tabla que queremos consultaSQL = "Select * from Clientes where " & campotabla & complementobusqueda & "'" & nombrecliente & "'" cn.Open conexionBD Set datos = cn.Execute(consultaSQL)

En la linea cn.Open conexionBD me sale error de autentificación al ejecutar la consulta

3
  • Bienvenido a SO en español. Puedes guardar el valor del textbox llamando a su formulario y a l propio control. Algo tipo Ruta = Userform1.Textbox1.Value debería servirte
    – Esei
    el 6 jun. 2022 a las 23:37
  • En la linea cn.Open conexionBD me sale error de autentificación al ejecutar la consulta Eso es que la conexión no está bien. Asegurate que la Path es correcta y que VBA la está cogiendo bien.
    – Esei
    el 7 jun. 2022 a las 22:06
  • Como dije antes, el código funciona, lo único que tienes que hacer es cambiar Me.Ruta.Text por el nombre de tu TextBox, quizá: Me.TextBox1.Text si es que asi se llama, luego desde el botón llamar a esa función solamente Call Test. el 8 jun. 2022 a las 22:03

1 respuesta 1

0

Esto debe servir.

Pones la ruta en una variable y luego la concatenas en la cadena de conexión.

Sub test()
    Dim PathDataBase As String, cnString As String
    Dim cn As Object
    
    PathDataBase = Me.Ruta.Text
        
    Set cn = CreateObject("ADODB.Connection")
    cnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathDataBase
    
    cn.ConnectionString = cnString
    cn.Open
    cn.Close
    
End Sub
7
  • Pero ese PathDataBase necesito obtenerlo de un textbox un un formulario, o sea cuando se abre excel saco un formulario solicitando la ubicación de la base de datos, la ruta en ese formulario necesito guardarla en esa variable PathDataBase
    – tecnimetro
    el 6 jun. 2022 a las 21:58
  • Es correcto, esa línea queda así: PathDataBase = Me.Ruta.Text el 7 jun. 2022 a las 13:52
  • Gracias por las respuestas pero me sigue dando problemas<br/>'Definir la ruta de la base de datos ruta = Rutafrm.TextBox1.Value PathDataBase = Me.ruta.Text <br/>Set cn = CreateObject("ADODB.connection") conexionBD = "Provider=Microsoft.ACE.OLEDB.12.0;" & PathDataBase <br/> me da error de autentificación
    – tecnimetro
    el 7 jun. 2022 a las 16:02
  • Gracias por las respuestas pero me sigue dando problemas: 'Definir la ruta de la base de datos ruta = Rutafrm.TextBox1.Value PathDataBase = Me.ruta.Text 'Definir la conexion, proveedor y ubicación de la BD Set cn = CreateObject("ADODB.connection") conexionBD = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathDataBase me da error de autentificación cuando llamo la consulta
    – tecnimetro
    el 7 jun. 2022 a las 16:07
  • Es porque en tu cadena de conexión falta el Data Source=, observa el código de mi ejemplo, de hecho seria bueno que copies ese código y solo cambies Me.Ruta.Text por el nombre del TextBox de tu formulario. el 7 jun. 2022 a las 17:01

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.