Описание
Указывает, следует ли преобразовывать пустые строки (""), которые
используются в программах для заполнения полей типа 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