Visual Basic - servicio

Life is soft - evento anual de software empresarial
 
Vista:

servicio

Publicado por luis carlos (2 intervenciones) el 11/02/2006 18:56:31
buenas..
Cree un servicio a partir de un ejecutable.
Este ejecutable busca un archivo en una ruta de red de local (\\).
Cuando lo ejecuto como servicio no encuentra el archivo.
Cuando lo ejecuto normal si lo encuentro.

debe haber alguna manera de decirle al servicio que tenga pueda acceder a la red.
debe ser como otro valor en la clave Parameters del servicio pero no se cual es.

gracias, cualquier idea es bien recibida. (las malas tambien, llevo tiempo con esto.)
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:servicio

Publicado por Lucyfer (140 intervenciones) el 13/02/2006 15:33:31
Un ejemplo para cuando varia el equipo o la red por lo cual la base de datos puede estar en diferentes paths, lo soluciono haciendo que antes que nada el programa busque la base de datos que se va a trabajar, tanto en unidades de red como en el mismo equipo donde se instala la aplicacion

Primero declaro un areglo y lo lleno con los diferentes posibles paths
Despues busco si existe la base de datos "SI.MDB" con la funcion DIR, y donde la encuentro, guardo el path en una variable global para toda la aplicacion

xlPath(1) = "Z:\SI-N31\" ' normal z: es \marin y tiene como sub a \sivb\
xlPath(2) = "C:\marin\SI-N31\" ' cuando se trabaja desde el servidor
xlPath(3) = "Z:\sivb\" ' z: es \marin y tiene como sub a \sivb\
xlPath(4) = "Y:\sivb\" ' y: es \marin y tiene como sub a \sivb\
xlPath(5) = "F:\marin\sivb\" ' tipo notaria 29 y/o colonial
xlPath(6) = App.Path + "\" ' si estuviese en el mismo que la aplicacion
xlPath(7) = "C:\Documents and Settings\Oem\Mis documentos\Marin\SIVB\" ' en equipo personal

For xi = 1 To 7
xBase = xlPath(xi) + "si.mdb"
If Len(Dir(xBase)) > 0 Then ' si tiene datos, en este path esta
zPath = xlPath(xi)
xBase = zPath + "si.mdb"
Exit For
End If
Next
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