CONEXION BASE DE DATOS EN RED PLEASE URGENTE
Publicado por EDGAR (193 intervenciones) el 23/01/2005 00:08:29
HOLA COLEGA, TENGO UN GRAN PROBLEMA YA QUE POSEE MI BASE DE DATOS EN ACCESS Y LA CODIFICACION EN MI SISTEMA EN DAO, Y TENGO PROBLEMA AL PODER HACER MI CONEXION DE LA DATA EN LA RED. EL CODIGO QUE TENGO ES EL SIGUIENTE:
Public DATA As DAO.Database
Public OFICI As DAO.Recordset
Public CEDORI As DAO.Recordset
Public CEOBJ As DAO.Recordset
Public Sub Abrir()
On Error GoTo 10
Set DATA = OpenDatabase(".\CEDULACION.mdb")
10
If Err.Number = 3024 Then
Varmsg1 = MsgBox("No es localizada la Base de Datos... Gracias", vbCritical, "Atención")
Exit Sub
End If
End Sub
AHORA BIEN, HE TENIDO DUDAS EL CREAR MI PAQUETE DE INSTALACION YA QUE NO LE AGREGO LA BASE DE DATOS PORQUE SINO AL INSTALARLO EN CADA USUARIO ME INSTALARIA UNA BASE DE DATOS POR MAQUINA. AHORA BIEN HACIENDO EL PAQUETE SIN LA DATA E INSTALANDOLA EN EL SERVIDOR TENDRIA QUE COMPARTIR LA CARPETA DEL PROGRAMA Y CREAR UNA CONEXION DE RED A ESA CARPETA POR CADA USUARIO. EXISTIRIA UNA MEJOR FORMA DE HACERLO??? YA QUE ES PRIMERA VEZ QUE VOY A REALIZAR ESTO Y TENGO MUCHAS DUDAS. AGRADEZCO DE TU AYUDA PARA SABER COMO PUEDO HACER EN ESTOS CASOS.. GRACIAS DE ANTEMANO
Public DATA As DAO.Database
Public OFICI As DAO.Recordset
Public CEDORI As DAO.Recordset
Public CEOBJ As DAO.Recordset
Public Sub Abrir()
On Error GoTo 10
Set DATA = OpenDatabase(".\CEDULACION.mdb")
10
If Err.Number = 3024 Then
Varmsg1 = MsgBox("No es localizada la Base de Datos... Gracias", vbCritical, "Atención")
Exit Sub
End If
End Sub
AHORA BIEN, HE TENIDO DUDAS EL CREAR MI PAQUETE DE INSTALACION YA QUE NO LE AGREGO LA BASE DE DATOS PORQUE SINO AL INSTALARLO EN CADA USUARIO ME INSTALARIA UNA BASE DE DATOS POR MAQUINA. AHORA BIEN HACIENDO EL PAQUETE SIN LA DATA E INSTALANDOLA EN EL SERVIDOR TENDRIA QUE COMPARTIR LA CARPETA DEL PROGRAMA Y CREAR UNA CONEXION DE RED A ESA CARPETA POR CADA USUARIO. EXISTIRIA UNA MEJOR FORMA DE HACERLO??? YA QUE ES PRIMERA VEZ QUE VOY A REALIZAR ESTO Y TENGO MUCHAS DUDAS. AGRADEZCO DE TU AYUDA PARA SABER COMO PUEDO HACER EN ESTOS CASOS.. GRACIAS DE ANTEMANO
Valora esta pregunta


0