LOTUS CONNECTOR

例:FieldID メソッド
次のエージェントは SQL 検索を実行し、ユーザーからフィールド名を取得して、そのフィールド ID を表示します。

Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim fieldName As String
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS"
result.Execute
fieldName = Inputbox$("Field name?", "STUDENTS table")
If result.FieldID(fieldName) Then
Messagebox result.FieldID(fieldName),, fieldName
Else
Messagebox "No such field",, fieldName
End If
result.Close(DB_CLOSE)
con.Disconnect
End Sub

関連項目