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