Abierta BBDD

psycuelgue
01 de Diciembre del 2003
Me gustaria saber como puedo saber mediante codigo si tengo la BBDD abierta.

Gracias ;)

sdemingo
01 de Diciembre del 2003
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