Шаг 8 - Свойство Version

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

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.