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 クラス

用語集