LCField の New メソッド

LCField のコンストラクタメソッドです。LCField オブジェクトを初期化します。

定義位置

LCField

構文

Dim variablename As New LCField(type, count)

パラメータ

パラメータ	説明
type	Long。フィールドオブジェクトのデータ型。次の定数のいずれかです。
	LCTYPE_CURRENCY
	LCTYPE_DATETIME
	LCTYPE_INT
	LCTYPE_FLOAT
	LCTYPE_NUMERIC
	LCTYPE_TEXT
	LCTYPE_BINARY
count	Long。オプション、1 以上。このフィールドに割り振られるデータ値の数です。デフォルトは 1 です。これより大きな値を使用すると、1 から Count までのインデックスが付いた値の配列が作成され、同じ型の複数の値をこのフィールドに格納できます。これは、同じ数の要素が割り振られる LCFieldlist の要素として使う場合も便利です (LCFieldlist の New メソッドを参照)。単一の操作で複数のレコードをフェッチまたは更新できるためです。

例

Option Public
Uselsx "*lsxlc" 
Sub Initialize
  Dim session As New LCSession
     ' In an LEI Scripted Agent, use the following syntax instead:
     ' Dim session As New LCSession ("mySession")
  Dim person As New LCField(LCTYPE_TEXT, 10) ' sufficient space to 
                               'store 10 "rows" of name information.
  Dim dateOfBirth As New LCField(LCTYPE_DATETIME, 10) ' ten dates
  Dim outputFields As New LCFieldlist(10, LCFIELDF_KEY) ' a field list
                                'for 10-element fields.
  Call outputFields.IncludeField(1, person, "PERSON")
  Call outputFields.IncludeField(2, dateOfBirth, "BIRTH_DATE")
     ' outputFields is ready to be used to "insert" or "update" 
     ' up to 10 records of name/birthdate simultaneously 
     ' (once you put data in the fields). This could instead 
     ' have been done using the LCFieldlist.Append method, making
     ' it unnecessary to use the New method of LCField.