LOTUS CONNECTOR

例:GetValue メソッド
次のエージェントは、結果セット内の各行のそれぞれの列の値を取得します。

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 = "Student names:"& Chr(10)
Do
result.NextRow
msg = msg & Chr(10)
For i = 1 To result.NumColumns
msg = msg & " " & result.GetValue(i)
Next
Loop Until result.IsEndOfData
Messagebox msg,, "Student data"
result.Close(DB_CLOSE)
con.Disconnect
End Sub

関連項目