Camino Físico la base de datos del DNS de Usuario
Hola, necesito un código de visual que me muestre la ubicación de la base de datos access, que cree a través de un dns de usuario.
Es decir que me diga que la base de datos es ta en c:\asdlkald.mdb, esa ruta tengo que obtenerla del dns de usuario.
Saludos y gracias.
Es decir que me diga que la base de datos es ta en c:\asdlkald.mdb, esa ruta tengo que obtenerla del dns de usuario.
Saludos y gracias.
1 Respuesta
Respuesta de manusoftar
1
Excelente respuesta, me has solucionado un gran problema
Bueno te aclaro un poco, tengo una conexión realizada a través de windows por odbc, es un dsn de usuario, y lo que necesito es alguna rutina a través de visual basic que me permita conocer el camino de la base de datos de dsn de usuario que cree. Saludos.
Por lo pronto y suponiendo que se trate de un programa en visual basic te envío un ejemplo que escribí:
En este caso yo conecto manualmente con una base que está en mi disco rígido pero tranquilamente podría estar conectando con la base que quiera.
Lo que hago es almacenar el string de conexión que en definitiva va a mencionar la dirección de la base y con un par de procedimientos filtro y aparto el fragmento que me interesa.
A esto le falta el código del módulo en el que declare la conexión.
Private Sub Form_Load()
Set db = New Connection
db.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\sholmes.mdb"
a = db.ConnectionString
MsgBox a
d = InStr(1, a, "DBQ=")
d = d + 4
1 If Mid(a, d, 1) <> ";" Then
c = c + Mid(a, d, 1)
Form1.Caption = c
d = d + 1
GoTo 1
End If
MsgBox c
End Sub
En este caso yo conecto manualmente con una base que está en mi disco rígido pero tranquilamente podría estar conectando con la base que quiera.
Lo que hago es almacenar el string de conexión que en definitiva va a mencionar la dirección de la base y con un par de procedimientos filtro y aparto el fragmento que me interesa.
A esto le falta el código del módulo en el que declare la conexión.
Private Sub Form_Load()
Set db = New Connection
db.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\sholmes.mdb"
a = db.ConnectionString
MsgBox a
d = InStr(1, a, "DBQ=")
d = d + 4
1 If Mid(a, d, 1) <> ";" Then
c = c + Mid(a, d, 1)
Form1.Caption = c
d = d + 1
GoTo 1
End If
MsgBox c
End Sub
Lo probé cargando la base con un dsn y funciona igual, ahora cargo la base así:
Set db = New Connection
db.Open "DSN=MS Access Database; UID=1234; PWD=1234;"
Todo el resto lo dejé igual.
Atentamente. Manuel Fernández.
Set db = New Connection
db.Open "DSN=MS Access Database; UID=1234; PWD=1234;"
Todo el resto lo dejé igual.
Atentamente. Manuel Fernández.
