SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: becker24 en Jueves 3 de Abril de 2003, 15:05
-
Hola amigos, saben tengo la siguiente consulta, tengo lista una parte del programa en visual y la probe para ver como funcionaba, en un equipo funciona bien, pero el problema se presenta cuando trato de ponerla en red, no funciona, en el empaquetado puse la base y el archivo de password compartido, pero no se como hacer el acceso a la base que se encuantra en otro equipo (en este caso servidor),
EL ACCESO A LA BASE ES EL SIGUIENTE Y FUNCIONA BIEN:
If Text1.Text <> vbNullString And Text2.Text <> vbNullString Then
DBEngine.SystemDB = App.Path & "system.mdw"
Set ws = DBEngine.CreateWorkspace("", Text1.Text, Text2.Text)
Set db = ws.OpenDatabase(App.Path & "DATOS.mdb")
Set rs = db.OpenRecordset("historico")
End If
De antemano, muchas gracias
:beer:
-
Mira, Becker24:
El problema que tienes es que Visual a la variable de entorno App.Path la nombra como "C:Directorio de trabajo..."
Cuando tú llamas a la aplicación desde un equipo de cliente en red, va a buscar la base de datos en el disco C:, y claro está, no lo encuentra.
SOLUCION:
Crea un fichero (por ejemplo "Setup.mdb") con un campo de Texto de 50 caracteres, al que llamas "Ruta". Este fichero lo copias en el servidor y en todos los clientes, en un directorio que se llame igual que el directorio del servidor en el que tengas el programa.
En el Servidor ese campo contendrá "C:Directorio de trabajo" (es decir, App.Path) y en el resto de equipos, el nombre del servidor y la ruta del programa (por ejemplo, "ServidorDirectorio de trabajo", o "F:Directorio de trabajo", según tengas definido el nombre del servidor).
Al iniciar el programa lees el fichero "C:Directorio del programaSetup.mdb" y defines una variable a la que llamas por ejemplo cMiPath = contenido del campo Ruta del Setup... Ahora, donde ponías App.Path pon cMiPath, y santas pascuas...
Si generas un formulario al que sólo acceda el Administrador, en el cual pueda definir esa variable en cada uno de los clientes, miel sobre hojuelas.
Saludos y suerte