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

Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet

Sub Postopen(Source As Notesuidocument)
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 ORDER BY LASTNAME"
result.Execute
...
End Sub

Sub Click(Source As Button)
Dim cacheLimit As String
Select Case result.CacheLimit
Case DB_ALL :cacheLimit = "DB_CALL"
Case DB_NONE :cacheLimit = "DB_NONE"
Case Else :cacheLimit = Cstr(result.CacheLimit)
End Select
If Messagebox("Current settings" & Chr(10) & Chr(10) _
& "Cache limit:" & cacheLimit & Chr(10) _
& "Fetch batch size:" & Cstr(result.FetchBatchSize), _
MB_YESNO, "Do you want change?")= IDYES Then
cLimit = Inputbox _
("Enter 0 for DB_NONE or size of cache", _
"Cache limit?")
If cLimit = 0 Then
result.cacheLimit = DB_NONE
Elseif cLimit > 0 Then
result.cacheLimit = cLimit
Else
Messagebox _
"Cache limit must be 0 or positive integer"
Exit Sub
End If
fbSize = Inputbox _
("Enter fetch batch size", "Fetch batch size")
If fbSize < 1 Then
Messagebox _
"Fetch batch size must be positive and not zero"
result.FetchBatchSize = 1
Elseif cLimit <> 0 And fbSize > cLimit Then
result.FetchBatchSize = cLimit
Messagebox _
"Fetch batch size cannot exceed cache limit"
Else
result.FetchBatchSize = fbSize
End If
Select Case result.CacheLimit
Case DB_ALL :cacheLimit = "DB_ALL"
Case DB_NONE :cacheLimit = "DB_NONE"
Case Else :cacheLimit = Cstr(result.CacheLimit)
End Select
Messagebox "New settings" & Chr(10) & Chr(10) _
& "Cache limit:" & cacheLimit & Chr(10) _
& "Fetch batch size:" & _
Cstr(result.FetchBatchSize), "New settings"
End If
End Sub

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
result.Close(DB_CLOSE)
con.Disconnect
End Sub

関連項目

CacheLimit プロパティ

用語集