LCFieldlist の Append メソッド

このメソッドは、新しいフィールドを作成し、既存のフィールドリストに追加します。

定義位置

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 previously.
  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.