Описание
В рабочей области Microsoft Jet для объекта
DBEngine возвращает используемую версию объектов доступа к данным
(DAO). Для объекта Database возвращает версию ядра базы данных
Microsoft Jet, в которой был создан файл .mdb.
В рабочей
области ODBCDirect для объекта DBEngine возвращает используемую
версию объектов доступа к данным. Для объекта Database возвращает версию
используемого драйвера ODBC.
Значение
Возвращаемое значение является выражением типа String,
значением которого является номер версии в следующем формате.
В рабочей
области Microsoft Jet номер версии представляется в виде
"номер.выпуск", например, "3.0". Номер версии любого продукта состоит из номера
основной версии (3), точки и номера выпуска (0).
В рабочей области
ODBCDirect представляется номер версии объектов доступа к данным
(DAO) в виде "номер.выпуск" или номер версии драйвера ODBC в виде
"основной.дополнительный.выпуск". Например, значение «3.5» свойства
DBEngine.Version указывает версию DAO 3.5. Значение "2.50.1032"
свойства Version объекта Database указывает, что текущий экземпляр
DAO подключен к драйверу ODBC версии 2.5 выпуска 1032.
Замечания
В рабочей области Microsoft Jet значение свойства
Version объекта Database соответствует версии ядра базы данных
Microsoft Jet и может при этом не совпадать с номером версии продукта
Microsoft, включающего ядро базы данных. Например, свойство Version
объекта Database, созданного в Microsoft Visual Basic 3.0, будет
иметь значение 1.1, а не 3.0.
В следующей таблице показано, какая версия ядра
базы данных включена в разные версии продуктов Microsoft:
Microsoft Jet Microsoft Access Visual Basic Microsoft Excel Visual C++ (год выпуска) 1.0 (1992) 1.0 Нет Нет Нет 1.1 (1993) 1.1 3.0 Нет Нет 2.0 (1994) 2.0 Нет Нет Нет 2.5 (1995) Нет 4.0 (16-бит) Нет Нет 3.0 (1995) 95 (7.0) 4.0 (32-бит) ‘95 (7.0) 4.x 3.5 (1996) 97 (8.0) 5.0 ‘97 (8.0) 5.0
Пример
Следующая программа использует свойство Version для проверки
версии ядра базы данных Microsoft Jet в памяти, базы данных Microsoft
Jet и подключения ODBC.
Sub VersionX() Dim wrkJet As Workspace Dim dbsNorthwind As Database Dim wrkODBC As Workspace Dim conPubs As Connection ' Открывает объект Database Microsoft Jet. Set wrkJet = CreateWorkspace("NewJetWorkspace", "admin", "", dbUseJet) Set dbsNorthwind = wrkJet.OpenDatabase("Борей.mdb") ' Создает объект Workspace ODBCDirect ' и открывает объект Connection. Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC) Set conPubs = wrkODBC.OpenConnection("Connection1", , , "ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=Publishers") ' Демонстрирует три способа использования свойства Version. Debug.Print "Версия объекта DBEngine (Microsoft Jet " & "в памяти) = " & DBEngine.Version Debug.Print "Версия ядра Microsoft Jet " & "в которой была создана база данных " & dbsNorthwind.Name & " = " & dbsNorthwind.Version Debug.Print "Версия подключения ODBCDirect " & "(через свойство Database) = " & conPubs.Database.Version dbsNorthwind.Close conPubs.Close wrkJet.Close wrkODBC.Close End Sub