Abierta BBDD
Me gustaria saber como puedo saber mediante codigo si tengo la BBDD abierta.
Gracias ;)
Gracias ;)
Hola,
Te refieres a saber si tu conexión con la BBDD está abierta?
En tal caso
If oConexion.Status = adStateOpen Then
'La conexion esta abierta
Else
'La conexion esta cerrada
End If
Si por el contrario, lo que quieres saber si está abirto un mdb de access, lo que puedes hacer es conociendo la ruta donde se encuetre la Base de datos:
Dim fs as Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists "ruta de la base de datosnombreBaseDatos.ldb" Then
' La base de datos de access está abierta
Else
' La base de datos está cerrada
End If
Saludos
sdemingo
Te refieres a saber si tu conexión con la BBDD está abierta?
En tal caso
If oConexion.Status = adStateOpen Then
'La conexion esta abierta
Else
'La conexion esta cerrada
End If
Si por el contrario, lo que quieres saber si está abirto un mdb de access, lo que puedes hacer es conociendo la ruta donde se encuetre la Base de datos:
Dim fs as Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists "ruta de la base de datosnombreBaseDatos.ldb" Then
' La base de datos de access está abierta
Else
' La base de datos está cerrada
End If
Saludos
sdemingo