LOTUS CONNECTOR

例:PrevRow メソッド
次のエージェントは、結果セットのすべての行を最後の行から順にアクセスします。LastRow を明示的に設定してループの外で処理する必要があります。ループ内は、PrevRow がデータセット内の前の行を取得します。IsBeginOfData は最初の行が処理されたことを検知します。

Uselsx "*LSXODBC"

Sub Initialize
 Dim con As New ODBCConnection
 Dim qry As New ODBCQuery
 Dim result As New ODBCResultSet
 Dim firstName As String
 Dim lastName As String
 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 = "Student names:"& Chr(10)
 result.LastRow
 firstName = result.GetValue("FIRSTNAME", firstName)
 lastName = result.GetValue("LASTNAME", lastName)
 msg = msg & Chr(10) & firstName & " " & lastName
 Do
   result.PrevRow
   firstName = result.GetValue("FIRSTNAME", firstName)
   lastName = result.GetValue("LASTNAME", lastName)
   msg = msg & Chr(10) & firstName & " " & lastName
 Loop Until result.IsBeginOfData
 Messagebox msg,, "Student Names"
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

関連項目