RecordSet.Close

From Xojo Documentation

Method

RecordSet.Close()

Supported for all project types and targets.

Closes an open RecordSet.

Notes

When the RecordSet goes out of scope, it is automatically closed.

If you try to use a RecordSet after it has been closed, an UnsupportedOperationException is raised.

Examples

The following method populates a ListBox with a RecordSet and closes the RecordSet when finished:

Sub PopulateListBox(dataList As Listbox, rs As RecordSet)
If rs Is Nil Then Return

// set up listbox state for population
dataList.DeleteAllRows
dataList.Columncount = rs.Fieldcount

// Add the DB columns as the heades for the ListBox
dataList.ColumnCount = rs.FieldCount
dataList.Column(-1).WidthExpression = "100"
For i As Integer = 0 To rs.FieldCount - 1
dataList.Heading(i) = rs.IdxField(i + 1).Name
Next

// Add the data from the table
While Not rs.EOF
dataList.AddRow("")

For i As Integer = 0 To rs.FieldCount - 1
dataList.Cell(dataList.LastIndex, i) = rs.IdxField(i + 1).StringValue
Next

rs.MoveNext
Wend
rs.Close
End Sub