LOTUS CONNECTOR

例:FieldName メソッド
次のエージェントは SQL 検索を実行し、結果セット内の各フィールドの列番号と名前を表示します。

Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim msg As String
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS"
result.Execute
msg = "Fields in STUDENTS table:"& Chr(10)
For i = 1 To result.NumColumns
msg = msg & Chr(10) & i & " " & result.FieldName(i)
Next
Messagebox msg,, "Field names"
result.Close(DB_CLOSE)
con.Disconnect
End Sub

関連項目