LOTUS CONNECTOR

例:ListFields メソッド
次のエージェントは ADTB データソースの STUDENTS テーブル内にあるすべてのフィールドの名前を表示します。

Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim msg As String
If Not con.ConnectTo("ATDB") Then
Messagebox "Cannot connect to ATDB"
Exit Sub
End If
fields = con.ListFields("STUDENTS")
msg = "STUDENTS contains the following fields:"& Chr(10)
For n% = Lbound(fields) To Ubound(fields)
msg = msg & Chr(10) & fields(n%)
Next
Messagebox msg,, "Fields for ATDB"
con.Disconnect
End Sub

関連項目