定義位置

LCFieldlist

構文

Set field = fieldlist.Append(fieldName, dataType)

パラメータ

パラメータ	説明
fieldName	String。フィールドの名前です。
dataType	Long。データ型を表す定数です。次のいずれかです。
	LCTYPE_INT
	LCTYPE_FLOAT
	LCTYPE_CURRENCY
	LCTYPE_NUMERIC
	LCTYPE_DATETIME
	LCTYPE_TEXT
	LCTYPE_BINARY
	LCTYPE_FIELDLIST
	LCTYPE_CONNECTION

戻り値

値	説明
LCField	新しいフィールドへのポインタです。

使い方

フィールドの形式をその型のデフォルトから変更する場合や、後でフィールドを参照しやすくするには、新しいフィールドの参照を変数に保存しますその方法を次のコードに示します。

例

Option Public

Option Explicit

Uselsx "*lsxlc"

Sub Initialize

REM this example copies a DB2 table.

Dim src As New LCConnection ("db2")

Dim fldLstRecord As New LCFieldList

Dim companyname As LCField

REM build the table definition.

Call FldLstRecord.Append ("ACCOUNTMANAGER", LCTYPE_INT)

Call FldLstRecord.Append ("CONTACTNAME", LCTYPE_TEXT)

Set companyname = FldLstRecord.Append ("COMPANYNAME", LCTYPE_TEXT)

Call companyname.SetFormatStream(, 40) ' max length for company name _
 is 40 chars.

REM set properties to connect to both data sources.

src.Database = "Gold"

src.Userid = "JDoe"

src.Password = "xyzzy"

src.Metadata = "customer"

REM now connect.

src.Connect

REM create it based on the metadata property already set above.

On Error LCFAIL_DUPLICATE Goto tableexists

Call src.Create (LCOBJECT_METADATA, fldLstRecord)

Print "The '" & src.Metadata & "' table did not exist so it was created."

End

tableexists:

Print "The '" & src.Metadata & "' table exists."

End

End Sub

出力例
The 'customer' table exists.

用語集