Шаг 64 - Свойство V1xNullBehavior

Описание
Указывает, следует ли преобразовывать пустые строки (""), которые используются в программах для заполнения полей типа Text или Memo, в пустые значения (Null).

Значение
Задаваемое или возвращаемое значение является выражением типа Boolean, которое имеет значение True, если пустые строки преобразуются в пустые значения.

Замечания
Данное свойство применимо к базам данных с ядром Microsoft Jet версии 1.x, преобразованным в формат ядра Microsoft Jet версии 2.0 или 3.0
Это свойство автоматически создается ядром базы данных Microsoft Jet при преобразовании базы данных версии 1.x в базу данных версии 2.0 или 3.0. База данных версии 2.0 сохранит это свойство после преобразования в базу данных версии 3.0.
После изменения значения этого свойства необходимо закрыть базу данных и снова открыть ее, чтобы внесенные изменения вступили в действие.
Для увеличения быстродействия измените в программах инструкции, задающие пустые строки в значениях текстовых полей и полей Memo, на инструкции, задающие значения Null, и удалите свойство V1xNullBehavior из семейства Properties.

Пример
Следующая программа преобразует файл базы данных Microsoft Jet версии 1.1 в файл базы данных Microsoft Jet версии 3.0. При преобразовании свойство V1xNullBehavior создается и добавляется в семейство Properties новой базы данных. Для демонстрации изменений печатаются семейства Properties обеих баз данных. И наконец, свойство V1xNullBehavior удаляется. При этом подразумевается, что любые приложения будут преобразованы таким образом, чтобы сохранять в полях типа Text и Memo значения Null вместо пустых строк.
Для выполнения данной процедуры необходимо получить файл базы данных Microsoft Jet версии 1.1 с именем "Nwind11.mdb".

Sub V1xNullBehaviorX()

	Dim dbsNorthwind As Database
	Dim prpLoop As Property

	Set dbsNorthwind = OpenDatabase("Nwind11.mdb")

	With dbsNorthwind
		Debug.Print .Name & ", версии " & .Version
		' Отображает семейство Properties базы данных. 
		For Each prpLoop In .Properties
			On Error Resume Next
			If prpLoop <> "" Then Debug.Print "    " & prpLoop.Name & " = " & prpLoop
			On Error GoTo 0
		Next prpLoop
		.Close
	End With

	DBEngine.CompactDatabase "Nwind11.mdb", "Nwind30.mdb", , dbVersion30

	Set dbsNorthwind = OpenDatabase("Nwind30.mdb")

	With dbsNorthwind
		Debug.Print .Name & ", версии " & .Version

		' Отображает семейство Properties сжатой базы данных. 
		' На свойство V1xNullBehavior нельзя ссылаться в явном виде,
		' т.е. в формате dbsNorthwind.V1xNullBehavior. Однако
		' оно доступно в циклах или в ссылке с помощью 
		' строкового выражения, т.е. в формате 
		' dbsNorthwind.Properties("V1xNullBehavior").
		For Each prpLoop In .Properties
			On Error Resume Next
			If prpLoop <> "" Then Debug.Print "    " & 	prpLoop.Name & " = " & prpLoop
			On Error GoTo 0
		Next prpLoop

		.Properties.Delete "V1xNullBehavior"
		.Close
	End With

End Sub

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