LOTUS CONNECTOR

例:LocateRow メソッド
次のエージェントは、結果セット内の行で、フィールド 5 に「Cambridge」、フィールド 6 に「MA」の入った行をすべて検索します。

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 ORDER BY LASTNAME"
 result.Execute
 msg = "Students from Cambridge MA:"& Chr(10)
 result.FirstRow
 Do While result.LocateRow(5, "Cambridge", 6, "MA")
   msg = msg &Chr(10)
   For i = 1 To result.NumColumns
     msg = msg & result.GetValue(i) & "  "
   Next
   If result.IsEndOfData Then Exit Do
   result.NextRow
 Loop
 Messagebox msg
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

関連項目