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

関連項目

ODBCResultSet クラス

用語集