QueryCircle method

Given a location as a circle center point and the radius distance from it, returns a Recordset object containing the records within the area of the circle. Returns an error for DataSet objects with a HowCreated property of geoDataSetDemographic.

Applies to

Objects: DataSet

Syntax

object.QueryCircle(Center, Radius)

Parameters

Part	Description
object	Required. An expression that returns a DataSet object.
Center	Required Location object. Location on the map that represents the center point of the circle.
Radius	Required Double. Distance from the specified Center, in GeoUnits.

Remarks

To return or set GeoUnits, use the Units property of an Application or MappointControl object.

Example

Sub QueryRecordsInCircleAtCenterOfMap()
Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objDataSet As MapPoint.DataSet
Dim objRecords As MapPoint.Recordset
Dim lngCount As Long

'Set up application and objects to use
objApp.Visible = True
objApp.UserControl = True
Set objMap = objApp.ActiveMap
lngCount = 0

'Let user create a data map
Set objDataSet = _
objApp.ActiveMap.DataSets.ShowImportWizard

'Find records in circle
Set objRecords = objDataSet.QueryCircle(objMap.Location, 2000)
objRecords.MoveFirst
Do While Not objRecords.EOF
lngCount = lngCount + 1
objRecords.MoveNext
Loop
MsgBox "Number of records in circle: " & lngCount
End Sub