Описание
Объект Database представляет открытую базу данных.

Замечания
Работа с открытой базой данных ведется с помощью объекта Database и его методов и свойств. Для баз данных любого типа пользователь имеет следующие возможности:

1. Использовать метод Execute для запуска запроса на изменение.
2. С помощью свойства Connect установить подключение к источнику данных ODBC.
3. С помощью свойства QueryTimeout ограничить время ожидания выполнения запроса к источнику данных ODBC.
4. Использовать свойство RecordsAffected для определения количества записей, измененных в запросе на изменение.
5. Использовать метод OpenRecordset для выполнения запроса на выборку и создания объекта Recordset.
6. С помощью свойства Version определить версию ядра базы данных, в которой была создана база данных.

В базах данных Microsoft Jet (файлы .mdb) можно использовать другие методы, свойства и семейства для работы с объектом Database, а также для создания, изменения или получения информации о содержащихся в базе данных таблицах, запросах и связях. Например, пользователь имеет возможность:

1. Использовать методы CreateTableDef и CreateRelation для создания таблиц и связей, соответственно.
2. Использовать метод CreateProperty для определения новых свойств объекта Database.
3. Использовать метод CreateQueryDef для создания описания постоянного или временного запроса.
4. Использовать методы MakeReplica, Synchronize и PopulatePartial для создания и синхронизации полных или частичных реплик базы данных.
5. С помощью свойства CollatingOrder указать язык, по правилам которого выполняется сортировка символьных полей.

   В рабочей области ODBCDirect пользователь имеет возможность:
   1. С помощью свойства Connection получить ссылку на объект Connection, соответствующий объекту Database.
   При вызове метода CreateDatabase создается постоянный объект Database, который автоматически добавляется в семейство Databases, что приводит к его сохранению на диске.
   При использовании метода OpenDatabase нет необходимости указывать объект DBEngine.
   Открытие базы данных, содержащей присоединенные таблицы, не приводит к автоматическому установлению связей с указанными внешними файлами или источниками данных ODBC, подключенными к ядру Microsoft Jet. В этом случае требуется либо указать ссылку на соответствующие таблице объекты TableDef или Field, либо открыть для таблицы объект Recordset. Если связи установить не удается, возникает перехватываемая ошибка. К возникновению перехватываемой ошибки приводит также отсутствие необходимых разрешений на доступ к базе данных или попытка установить связь с базой данных, открытой другим пользователем для монопольного доступа.
   Допускается также непосредственное открытие с помощью метода OpenDatabase внешней базы данных (такой как FoxPro, dBASE или Paradox) вместо открытия базы данных с ядром Microsoft Jet с последующим присоединением внешних таблиц.
   Не рекомендуется непосредственно открывать объект Database для источника данных ODBC, подключенного к ядру Microsoft Jet, такого как Microsoft SQL Server, поскольку запрос возвращает данные медленнее, чем присоединенные таблицы. При открытии объекта Database для внешних бах данных с драйверами ISAM, таких как FoxPro или Paradox, проблем с быстродействием не возникает.
   При завершении выполнения процедуры, в которой описан объект Database, этот локальный объект Database закрывается вместе со всеми открытыми объектами Recordset. Любые незавершенные изменения при этом теряются, а незавершенные транзакции свертываются без возникновения перехватываемой ошибки. Чтобы избежать потери изменений пользователь должен в явном виде до выхода из процедуры завершить все транзакции или операции редактирования и закрыть объекты Recordset и объекты Database, описанные в этой процедуре на локальном уровне.
   После применения к объекту Workspace одного из методов управления транзакциями (BeginTrans, CommitTrans или Rollback) эти транзакции применяются ко всем базам данных, открытым в объекте Workspace, в котором был открыт этот объект Database. Для того чтобы выполнить независимую транзакцию, следует предварительно открыть дополнительный объект Workspace, а затем открыть в этом объекте Workspace еще один объект Database.
   Можно открыть источник данных или базу данных несколько раз, создавая повторяющиеся имена в семействе Databases. После этого следует присвоить объекты Database объектным переменным и ссылаться на объекты по именам переменных.
   

   Пример
   Следующая программа создает объект Database и открывает существующий объект Database в стандартном объекте Workspace. Затем печатается семейство Databases и семейство Properties каждого объекта Database.
   

   Sub DatabaseObjectX()
   
   	Dim wrkJet As Workspace
   	Dim dbsNorthwind As Database
   	Dim dbsNew As Database
   	Dim dbsLoop As Database
   	Dim prpLoop As Property
   
   	Set wrkJet = CreateWorkspace("JetWorkspace", "admin", "", dbUseJet)
   
   	' Проверяет, что нет файла, имя которого совпадает с именем
   	' новой базы данных.
   	If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"
   
   	' Создает новую базу данных с указанной
   	' языковой настройкой.
   
   	Set dbsNew = wrkJet.CreateDatabase("NewDB.mdb", dbLangGeneral)
   	Set dbsNorthwind = wrkJet.OpenDatabase("Борей.mdb")
   
   	' Отображает семейство Databases.
   	For Each dbsLoop In wrkJet.Databases
   		With dbsLoop
   			Debug.Print "Свойства " & .Name
   			' Отображает семейство Properties каждого
   			' объекта Database.
   			For Each prpLoop In .Properties
   				If prpLoop <> "" Then Debug.Print "    " &  prpLoop.Name & " = " & prpLoop
   
   			Next prpLoop
   		End With
   	Next dbsLoop
   
   	dbsNew.Close
   	dbsNorthwind.Close
   	wrkJet.Close
   End Sub