como se maneja una base de datos a traves de una intranet?
adriana
base de datos
Moderador: Moderadores
Es sencillo, pero un poquito largo de explicar. Resumiendo, te diré que es preciso que crees un objeto , una conexión o un enlace con dicha base. y deberías luego programar dicha conexión.No sé en qué entorno vas trabajar, y qué tipo de base de datos quieres manejar, asi que no puedo ser más específica.Si lo quieres es acceder desde una red cerrada a una misma base, podría ser suficiente que "compartieras dicha base" y activaras las opciones de red oportunas, pero ya te digo que necesitaría más datos para ser más precisa.
wanda
wanda
si lo haces con visual basic no necesitas tanta tarea, para ello debes usar unas funciones de visiual que escribian en el registro la ruta de la aplicacion y de la base, luego cada vez que inicies el programa lea los valores del registro y busque la base. En sintesis, cuando abras el programa configura el camino de la base de datos (ya sea en una maquina local u otra) y luego guarda dichos valores en el registro
ejemplo
Public Function ConfirmarCaminosDeTrabajo(ByRef CaminoBaseDeDatos As String ) As Boolean
'prueba si esta escrito en el registro el camino de la base de datos. 'si da un error, la primera vez, entonces se setea en el registro el camino
Dim FlgConfirmarCaminoBaseDeDatos As Boolean
FlgConfirmarCaminoBaseDeDatos = False
CaminoBaseDeDatos = getSetting"ProyectoDLS", "Camino", "BaseDeDatos")
If Dir(CaminoBaseDeDatos + NombreBaseDatos) <> "" Then
Set DB = dao.OpenDatabase(CaminoBaseDeDatos & NombreBaseDatos)
FlgConfirmarCaminoBaseDeDatos = True
End If
If FlgConfirmarCaminoBaseDeDatos Then
ConfirmarCaminosDeTrabajo = True
Else
ConfirmarCaminosDeTrabajo = False
End If
End Function
y con esta funcion puedes guardar la ruta de la base en el registro
Public Sub SetearCaminosBaseDeDatos(CaminoBaseDeDatos As String)
'guarda donde esta la base de datos en el registro
SaveSetting "ProyectoDLS", "Camino", "BaseDeDatos", CaminoBaseDeDatos
Set DB = dao.OpenDatabase(CaminoBaseDeDatos & NombreBaseDatos, , , "brother/brother")
End Sub
ejemplo
Public Function ConfirmarCaminosDeTrabajo(ByRef CaminoBaseDeDatos As String ) As Boolean
'prueba si esta escrito en el registro el camino de la base de datos. 'si da un error, la primera vez, entonces se setea en el registro el camino
Dim FlgConfirmarCaminoBaseDeDatos As Boolean
FlgConfirmarCaminoBaseDeDatos = False
CaminoBaseDeDatos = getSetting"ProyectoDLS", "Camino", "BaseDeDatos")
If Dir(CaminoBaseDeDatos + NombreBaseDatos) <> "" Then
Set DB = dao.OpenDatabase(CaminoBaseDeDatos & NombreBaseDatos)
FlgConfirmarCaminoBaseDeDatos = True
End If
If FlgConfirmarCaminoBaseDeDatos Then
ConfirmarCaminosDeTrabajo = True
Else
ConfirmarCaminosDeTrabajo = False
End If
End Function
y con esta funcion puedes guardar la ruta de la base en el registro
Public Sub SetearCaminosBaseDeDatos(CaminoBaseDeDatos As String)
'guarda donde esta la base de datos en el registro
SaveSetting "ProyectoDLS", "Camino", "BaseDeDatos", CaminoBaseDeDatos
Set DB = dao.OpenDatabase(CaminoBaseDeDatos & NombreBaseDatos, , , "brother/brother")
End Sub