RE:bibliotecas de complementos?
En el ejemplo siguiente se usa la función CodeDb para devolver un objeto Database que se refiere a una base de datos de biblioteca. La base de datos de biblioteca contiene una tabla llamada Errores y el código que se está ejecutando. Cuando la función CodeDb determina esta información, la función ObtenerCadenaError abre un conjunto de registros de tipo tabla basado en la tabla Errores, y extrae un mensaje de error de un campo llamado DatosError según el valor de tipo Integer pasado a la función.
Function ObtenerCadenaError(ByVal intError As Integer) As String
Dim dbs As Database, rst As RecordSet
´ La variable se refiere a la base de datos en la que se está ejecutando el código.
Set dbs = CodeDb
´ Crea un conjunto de registros de tipo tabla.
Set rst = dbs.OpenRecordSet("Errores", dbOpenTable)
´ Establece el índice como clave principal (campo IdError)
rst.Index = "PrimaryKey"
´ Busca el número de error pasado a la función ObtenerCadenaError.
rst.Seek "=", intError
´ Devuelve el mensaje de error asociado.
ObtenerCadenaError = rst.Fields!DatosError.Value
rst.Close
End Function
Si la base de datos contiene código de Visual Basic, al guardar la base de datos como un archivo MDE se compilan todos los módulos, se quita todo el código de origen editable y se compacta la base de datos de destino. El código de Visual Basic continúa ejecutándose, pero no puede verse ni editarse, y el tamaño de la base de datos se reduce debido a la eliminación del código. Además, se optimiza el uso de la memoria, lo que mejora el rendimiento.