LOTUS CONNECTOR

例:NumRows メソッド
次のエージェントは、For ループ、NumRows、および CurrentRow を使用して、結果セット内のすべての行にアクセスします。ループの前には LastRow が必要です。これがないと NumRows は正確ではなくなります。

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
 result.LastRow
 msg = "Student names:"& Chr(10)
 For  i = 1 To result.NumRows
   result.CurrentRow = i
   firstName = result.GetValue("FIRSTNAME", firstName)
   lastName = result.GetValue("LASTNAME", lastName)
   msg = msg & Chr(10) & firstName & " " & lastName
 Next
 Messagebox msg,, "Student Names"
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

関連項目