Visual Basic - Path de base de datos

Life is soft - evento anual de software empresarial
 
Vista:

Path de base de datos

Publicado por Banner (54 intervenciones) el 18/11/2000 00:00:00
El problema es que tengo una aplicacion de VB ejecutable y la quiero intalar junto a una aplicacion con visualfox.
pero el problema es que no se donde el usuario va a instalar la aplicacion de fox,y por ende los archivos ejecutables .exe no se donde van a quedar, y es que dentro del .exe tengo un path a la base de datos. como podria saber para cambiar el path. pero el problema es que es .exe
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Path de base de datos

Publicado por Moises CC (22 intervenciones) el 18/11/2000 00:00:00
Ok, mira existe un objeto interno en VB que se llama APP, el cual contiene muchas propiedades entre ellas una que es PATH, la cual siempre contendra el camino en el que se encuentra el proyecto, asi este ejecutable o no, por ejemplo lo unico que tienes que hacer es por ejemplo si tienes un data control llamado D1 entonces haces esto:

D1.DatabaseName = app.path + "NOMBRE_BASEDATOS"

ok!!

espero ayudarte, sino, pues buscalo en la ayuda de VB
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Path de base de datos

Publicado por tecnicam (220 intervenciones) el 18/11/2000 00:00:00
Para una base de datos que se llama PEPE y un repor que se llama ANDAYA

Declaraciones:
Dim DatabasePath$
Dim DatabaseName$

Form_Load()
DatabasePath$ = App.Path
DatabaseName$ = AddPath$(DatabasePath$, "PEPE.MDB")
End Sub

Function AddPath (Path$, DatabaseName$) As String
If Mid$(Path$, Len(Path$), 1) <> "\" Then
Path$ = Path$ & "\"
End If
AddPath$ = Path$ & DatabaseName$
End Function

Para llamar al repor:
Sub Command1_Click()
Screen.MousePointer = HOURGLASS
´El control repor se llama rptPrint
rptPrint.Destination = 0
rptPrint.DataFiles(0) = DatabaseName$
rptPrint.ReportFileName = AddPath(DatabasePath$, "ANDAYA.rpt")
rptPrint.Action = 1
Screen.MousePointer = DEFAULT
End Sub

Y con esto puedes poner la base de datos en el directorio que quieras, que siempre la encontrará.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Path de base de datos

Publicado por Banner (54 intervenciones) el 19/11/2000 00:00:00
Gracias por su ayuda amigos
me sirvio de mucho de verdad gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar