Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: JIM76 en 17 Junio 2005, 20:02 pm



Título: Problemas con el empaquetado
Publicado por: JIM76 en 17 Junio 2005, 20:02 pm
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


Título: Re: Problemas con el empaquetado
Publicado por: Slasher-K en 17 Junio 2005, 21:50 pm
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:

Código:
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:

Código:
       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.


Título: Re: Problemas con el empaquetado
Publicado por: JIM76 en 20 Junio 2005, 19:09 pm
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?? ???