Primero, tengo un sistema en vb 6 usando datas, cuando termino de ejectutar el asistente de empaquetado y distribucion e instalo el sistema en otra maquina me aparece un error diciendo que la ruta de la base de datos no es la correcta. como le puedo hacer para que busque la base de datos en la carpeta donde se instala el programa. y Segundo, para los reportes uso el dataenviroment y el datareport y cuando los quiero mostrar en el programa instalado en otra maquina, marca error y sale del sistema. que es lo que me falta hacer para que funcione correctamente?
Gracias por su ayuda
La propiedad Path del objeto App te da la ruta de acceso al programa. A partir de eso se podría crear una función como la siguiente:
Property Get AppPath() As String
AppPath = App.Path
'Agrega completa el directorio con la barra al final
'por si no la tiene.
'
If Not Right$(AppPath,1) Like "\" Then AppPath = AppPath & "\"
End Property
De esa forma vas a poder abrir la bd que puede estar en la misma ruta de acceso del programa o en una subcarpeta. Por ej:
Dim sBDFilename$
sBDFilename = AppPath & "bd1.mdb"
sBDFilename = AppPath & "datos\bd1.mdb"
En los dos ejemplos anteriores bd1.mdb es el nombre de la base de datos y en el segundo caso "datos" es un subdirectorio.
Saludos.
gracias por tu ayida... sobre el problema de el dataenviroment y el datareport que cuando instalo la aplicacion en otra maquin no muestra los reportes y manda un error... que puedo hacer o que me falta empaquetar?? ???