Описание
В рабочей области 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