Valen
29 de Agosto del 2003

Hola muy buenas!
Quiero poner en mi proyecto la BD en el mismo directorio donde tengo el proyecto. Luego a la hora de poner mediante codigo la BD, lo que quiero es utilizar la instruccion app.path para que cuadno ponga en marcha el proyecto en cualquier ordenador no tenga problemas con la ruta de la BD. La cuestion esque esto no lo consigo. Yo hago lo siguiente:
With mibase

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="app.Path" & "IncidenciasIDC.mdb;Persist Security Info=False"

La cuestion esque no me sale me da un error de sintaxis y queria ver si me podrias ayudar. Gracias de antemano

sdemingo
29 de Agosto del 2003

Hola, yo que tu lo haría así:

Sub AbreBD ()

Global oConexion as New ADODB.Connection
Dim rutaBD as String

rutaBD = App.Path & "BD.mdb"
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open ruta

End Sub

Luego te recomiendo que cada vez que utilices App.Path, compruebes sin el String que te devuelve contiene como último carácter la barra invertida "". Dependiendo de la versión de windows a veces la incluye y otras no. Yo lo hago así cada vez que utilizo la orden:

Dim strbarra as String
strbarra = Right(App.path, 1)
If strbarra = strBarraDir Then
ruta = App.path + "BD.mdb
Else
ruta = App.path + "" + BD.mdb
End If

Un saludo

sdemingo