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

関連項目