Uselsx "*LSXODBC"

Sub Initialize
 Dim con As New ODBCConnection
 Dim qry As New ODBCQuery
 Dim result As New ODBCResultSet
 Dim firstName As String
 Dim lastName As String
 Dim msg As String
 Set qry.Connection = con
 Set result.Query = qry
 con.ConnectTo("ATDB")
 qry.SQL = "SELECT * FROM STUDENTS"
 result.Execute
 msg = "Student names:"& Chr(10)
 If result.IsResultSetAvailable Then
   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"
   result.Close(DB_CLOSE)
 Else
   Messagebox "Cannot get result set for STUDENTS"
   Exit Sub
 End If
 con.Disconnect
End Sub

関連項目

ODBCQuery クラス

用語集