Uselsx "*LSXODBC"
%INCLUDE "lsconst.lss"

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 ORDER BY LASTNAME"
 result.Execute
 If Messagebox("", MB_YESNO, _
 "Do you want the whole result set?")= IDYES Then
   maxRows = 0
 Else
   maxRows = Inputbox("How many rows?", _
   "MaxRows", "50")
   If maxRows = "" Then maxRows = 0
 End If
 result.MaxRows = maxRows
 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"
 con.Disconnect
End Sub

関連項目

MaxRows プロパティ

用語集