LOTUS CONNECTORS

Examples: GetValue method
This agent gets the value of each column in each row of a result set.

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

See Also