Описание
Возвращает размер, используемый в базе данных (а не в памяти), для объекта Field типа Memo или Long Binary, входящего в семейство Fields объекта Recordset.
Значение
Возвращаемое значение имеет тип данных Long и указывает число символов (для поля Memo) или размер в байтах (для поля типа Long Binary).
Замечания
Свойство FieldSize используют вместе с методами AppendChunk и GetChunk при работе с большими полями.
Поскольку размеры полей типа Long Binary или Memo могут превышать 64 Кбайт, значение, возвращаемое в свойстве FieldSize, следует присваивать переменной, способной сохранять значение типа Long.
Для определения размеров объектов Field, типы которых отличаются от типов Memo и Long Binary, используют свойство Size.
В рабочей области ODBCDirect свойство FieldSize является недоступным в следующих ситуациях:
Пример
Следующая программа использует свойство FieldSize для отображения количества байтов, используемых объектами Field типа Memo и Long Binary в двух таблицах.
Sub FieldSizeX() Dim dbsNorthwind As Database Dim rstCategories As Recordset Dim rstEmployees As Recordset Set dbsNorthwind = OpenDatabase("Борей.mdb") Set rstCategories = dbsNorthwind.OpenRecordset("Типы", dbOpenDynaset) Set rstEmployees = dbsNorthwind.OpenRecordset("Сотрудники", dbOpenDynaset) Debug.Print "Размеры полей в таблице 'Типы'" With rstCategories Debug.Print " Категория - " & "Описание (байт) - Иллюстрация (байт)" ' Отображает объект Recordset 'Типы' и печатает размеры ' полей в байтах для каждой записи. Do While Not .EOF Debug.Print " " & !Категория & " - " & !Описание.FieldSize & " - " & !Иллюстация.FieldSize .MoveNext Loop .Close End With Debug.Print "Размеры полей в таблице 'Сотрудники'" With rstEmployees Debug.Print " Фамилия - Примечания (байт) - " & "Фотография (байт)" ' Отображает объект Recordset Сотрудники' и печатает размеры ' полей в байтах для каждой записи. Do While Not .EOF Debug.Print " " & !Фамилия & " - " & !Примечания.FieldSize & " - " & !Фотография.FieldSize .MoveNext Loop .Close End With dbsNorthwind.Close End Sub