LOTUS CONNECTOR

例:NumColumns メソッド
次のエージェントは SQL 検索を実行し、結果セット内の列の数を表示します。ほかの例については、FieldName を参照してください。

Uselsx "*LSXODBC"

Sub Initialize
 Dim con As New ODBCConnection
 Dim qry As New ODBCQuery
 Dim result As New ODBCResultSet
 Set qry.Connection = con
 Set result.Query = qry
 con.ConnectTo("ATDB")
 qry.SQL = "SELECT * FROM STUDENTS"
 result.Execute
 Messagebox result.NumColumns,,  _
 "Number of columns in result set"
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

関連項目