Append Method for LCFieldlist
This method creates a new field and appends it to an existing fieldlist.
Defined In
LCFieldlist
Syntax
Set field = fieldlist. Append (fieldName, dataType)
Parameters
| Parameter |
Description |
|---|---|
| fieldName |
String. The name for the field. |
| dataType |
Long. The constant for the data type. One of the following: |
| LCTYPE_INT |
|
| LCTYPE_FLOAT |
|
| LCTYPE_CURRENCY |
|
| LCTYPE_NUMERIC |
|
| LCTYPE_DATETIME |
|
| LCTYPE_TEXT |
|
| LCTYPE_BINARY |
|
| LCTYPE_FIELDLIST |
|
| LCTYPE_CONNECTION |
Return Value
| Value |
Description |
|---|---|
| LCField |
A pointer to the new field. |
Usage Notes®
If you need the field format to be other than the default for its type, or if you need to refer to the field conveniently later, store the new field reference in a variable. The code that follows demonstrates this technique.
Example
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 SubExample Output
The 'customer' table exists.