Examples: ODBCResultSet class

Uselsx "*LSXODBC"
Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Dim firstName As String
Dim lastName As String
Dim msg As String

Sub Initialize
  Set con = New ODBCConnection
  Set qry = New ODBCQuery
  Set result = New ODBCResultSet
  Set qry.Connection = con
  Set result.Query = qry
  con.ConnectTo("ATDB")
  qry.SQL = "SELECT * FROM STUDENTS"
  If Not result.Execute Then
    Messagebox result.GetExtendedErrorMessage,, _
    result.GetErrorMessage
    Exit Sub
  End If
  REM Display result set properties after Execute
  Call DisplayResultSetProperties
  msg = "Student names:" & Chr(10)
  Do
    result.NextRow
    firstName = result.GetValue("FIRSTNAME", firstName)
    lastName = result.GetValue("LASTNAME", lastName)
    msg = msg & Chr(10) & firstName & " " & lastName
  Loop Until result.IsEndOfData
  Messagebox msg,, "Student Names"
  REM Display result set properties after processing 
  REM result set
  Call DisplayResultSetProperties
  result.Close(DB_CLOSE)
  con.Disconnect
End Sub

Sub DisplayResultSetProperties
  If result.IsResultSetAvailable Then
    If result.NumRows = DB_ROWSUNKNOWN Then
      rows$ = "Not determined yet"
    Else
      rows$ = Cstr(result.NumRows)
    End If
    Messagebox _
    "NumColumns = " & result.NumColumns & Chr(10) & _
    "NumRows = " & rows$ & Chr(10) &  _
    "IsBeginOfData = " & result.IsBeginOfData & _
    Chr(10) & "IsEndOfData = " & result.IsEndOfData & _
    Chr(10) & "CurrentRow = " & result.CurrentRow,,  _
    "Result set properties"
  Else
    Messagebox "Result set not available",,  _
    "No result set"
  End If
End Sub