LCConnection の New メソッド

LCConnection クラスのオブジェクト用のコンストラクタです。

定義位置

LCConnection

構文

Dim connectionName As New LCConnection(libraryName) ' DECS only

または

Dim connectionName As New LCConnection(ConnectionDocumentName) ' LEI Scripted Activity agents only

パラメータ

パラメータ

説明

libraryName

DB2® や Oracle などのインストールされている有効な Connector の名前。db2.lcx または oracle.lcx は Domino ディレクトリにあります。order、meter などの Metaconnector 名も使用できます。

注: 一部のファイルシステムでは大文字と小文字が区別されるので、libraryName は小文字で入力してください。インストールされている Connector の判断に使用する LCSession.ListConnectors メソッドを参照してください。

ConnectionDocumentName

LEI Administrator にある有効なコネクション文書の名前。

使用法

LCConnection の New メソッドを使用するときは、次のことを考慮してください。

' DECS only
Dim MyNewConnectionName as New LCConnection("oracle") 
 
' LEI scripted agents only
Dim MyNewConnection as New LCConnection("OracleConnDoc")

' with the "order" metaconnector
Option Public
Option Declare
Uselsx "*lsxlc"
Sub Initialize
	Dim birthdayTable As New LCConnection("order")
	Dim flds As New LCFieldList
	Dim i As Integer
	
	With birthdayTable
		.ConnectorName = "db2"
		.Database = "STATS" ' local database, no userid.
		.Metadata = "BIRTHDAYS"
		.OrderNames = "BIRTH_DATE" ' order metaconnector will sort by this field.
		.Connect
		.Select Nothing, 1, flds
		Do While birthdayTable.Fetch(flds)
			For i = 1 To flds.FieldCount
				Print flds.GetName(i) & " = " & flds.GetField(i).Text(0)
			Next
		Loop
	End With
End Sub

出力例

FIRSTNAME = Anapest
LASTNAME = Jones
BIRTH_DATE = 04/03/1901
FIRSTNAME = Ozymandias
LASTNAME = Miller
BIRTH_DATE = 02/20/1979
FIRSTNAME = Chlorine
LASTNAME = Foss
BIRTH_DATE = 09/01/1980